[belajar-excel] Digest Number 1660

Milis Belajar Microsoft Excel

Messages In This Digest (25 Messages)

1a.

Menampilkan message alert dengan kriteria tertentu From: Leonardo Endry widodo

1b.

Re: Menampilkan message alert dengan kriteria tertentu From: Kid Mr.

1c.

Re: Menampilkan message alert dengan kriteria tertentu From: Leonardo Endry widodo

1d.

Re: Menampilkan message alert dengan kriteria tertentu From: Kid Mr.

1e.

Re: Menampilkan message alert dengan kriteria tertentu From: Leonardo Endry widodo

1f.

Re: Menampilkan message alert dengan kriteria tertentu From: Kid Mr.

1g.

Re: Menampilkan message alert dengan kriteria tertentu From: Kid Mr.

1h.

Re: Menampilkan message alert dengan kriteria tertentu From: Leonardo Endry widodo

1i.

Re: Menampilkan message alert dengan kriteria tertentu From: Kid Mr.

1j.

Re: Menampilkan message alert dengan kriteria tertentu From: Leonardo Endry widodo

1k.

Re: Menampilkan message alert dengan kriteria tertentu From: Kid Mr.

2a.

Re: Tanya: mencari posisi ke-? From: Wiranata Kemala

3a.

Bls: [belajar-excel] satu tombol utk perintah yang berlawanan From: Absolute - Udin

3b.

Re: satu tombol utk perintah yang berlawanan From: Kid Mr.

3c.

Database mengundang pertanyaan From: Sexomad Adv

3d.

Re: Database mengundang pertanyaan From: dwint ruswanto

3e.

Re: Database mengundang pertanyaan From: bagus

3f.

Re: Database mengundang pertanyaan From: dwint ruswanto

3g.

Re: Database mengundang pertanyaan From: Kid Mr.

4a.

durasi waktu From: tuti andrayani

4b.

Re: durasi waktu From: dwint ruswanto

5.

Chekbox click From: Yusril Ramadani

6a.

Re: menambahkan baris secara otomatis From: Markonah

7a.

help sepertinya ada yg salah dengan code ku From: Harumi Wanasita

7b.

Re: help sepertinya ada yg salah dengan code ku From: Markonah

View All Topics | Create New Topic

Messages

1a.

Menampilkan message alert dengan kriteria tertentu

Posted by: "Leonardo Endry widodo" monalisaxx_16@yahoo.com   monalisaxx_16

Thu Jun 21, 2012 2:05 am (PDT)

Kakak" yg ganteng" dan cantik", mohon bantuannya untuk menampilkan message alert dengan kriteria tertentu
Sample file dan keterangan lainnya include didalamnya.

Terima Kasih.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1b.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jun 21, 2012 2:15 am (PDT)

Coba ganti & dengan AND

Kid.

2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

> **
>
>
> Kakak" yg ganteng" dan cantik", mohon bantuannya untuk menampilkan message
> alert dengan kriteria tertentu
> Sample file dan keterangan lainnya include didalamnya.
>
> Terima Kasih.
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1c.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Leonardo Endry widodo" monalisaxx_16@yahoo.com   monalisaxx_16

Thu Jun 21, 2012 2:25 am (PDT)

Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch pada tanda -
Sub Test()
Dim today() As Date
Dim range As range

If today() > today() - 1 and range("E3:e5000") = "" Then
a = MsgBox("test")
ElseIf today () > today() - 2 and range("e3:e5000") = "" Then
b = MsgBox("test")
Else: c = MsgBox("ok")

End If
End Sub

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, June 21, 2012 4:14 PM
Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu


 
Coba ganti & dengan AND

Kid.

2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

> 
>Kakak" yg ganteng" dan cantik", mohon bantuannya untuk menampilkan message alert dengan kriteria tertentu
>Sample file dan keterangan lainnya include didalamnya.
>
>
>Terima Kasih.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1d.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jun 21, 2012 2:30 am (PDT)

oops salah...

jika variabel today diberi () maka menjadi variabel array.

Andai yang dimaksud adalah menyimpan sebuah data tanggal dalam sebuah
variabel,
dim dtTglHariIni as date
dttglhariini=date

jika ingin menyimpan suatu object range dalam sebuah variabel,
dim rngDataKu as range
set rngdataku=range("e3:e5000")

Kemudian, suatu kondisi IF dengan operator perbandingan *sebuah *nilai
misal membandingkan cell e3 dulu :
IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
dst

Kid.

2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

> **
>
>
> Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch pada
> tanda -
> Sub Test()
> Dim today() As Date
> Dim range As range
>
> If today() > today() - 1 and range("E3:e5000") = "" Then
> a = MsgBox("test")
> ElseIf today () > today() - 2 and range("e3:e5000") = "" Then
> b = MsgBox("test")
> Else: c = MsgBox("ok")
>
> End If
> End Sub
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, June 21, 2012 4:14 PM
> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria
> tertentu
>
>
> Coba ganti & dengan AND
>
> Kid.
>
> 2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>
> **
>
> Kakak" yg ganteng" dan cantik", mohon bantuannya untuk
> menampilkan message alert dengan kriteria tertentu
> Sample file dan keterangan lainnya include didalamnya.
>
> Terima Kasih.
>
>
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1e.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Leonardo Endry widodo" monalisaxx_16@yahoo.com   monalisaxx_16

Thu Jun 21, 2012 2:40 am (PDT)

Kl sy coba artikan berarti untuk bagian rngdataku.cells(1,1).value = "" harus dilakukan berulang kali sampai ke rngdataku.cells(n,n) ???
atau bagaimana ?

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, June 21, 2012 4:30 PM
Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu


 
oops salah...

jika variabel today diberi () maka menjadi variabel array.

Andai yang dimaksud adalah menyimpan sebuah data tanggal dalam sebuah variabel,
dim dtTglHariIni as date
dttglhariini=date

jika ingin menyimpan suatu object range dalam sebuah variabel,
dim rngDataKu as range
set rngdataku=range("e3:e5000")

Kemudian, suatu kondisi IF dengan operator perbandingan sebuah nilai
misal membandingkan cell e3 dulu :
IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
dst

Kid.

2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

> 
>Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch pada tanda -
>Sub Test()
>Dim today() As Date
>Dim range As range
>
>
>If today() > today() - 1 and range("E3:e5000") = "" Then
>a = MsgBox("test")
>ElseIf today () > today() - 2 and range("e3:e5000") = "" Then
>b = MsgBox("test")
>Else: c = MsgBox("ok")
>
>
>End If
>End Sub
>
>
>
>________________________________
> From: Kid Mr. <mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, June 21, 2012 4:14 PM
>Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu
>
>
>
> 
>Coba ganti & dengan AND
>
>Kid.
>
>
>2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>
>
>> 
>>Kakak" yg ganteng" dan cantik", mohon bantuannya untuk menampilkan message alert dengan kriteria tertentu
>>Sample file dan keterangan lainnya include didalamnya.
>>
>>
>>Terima Kasih.
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1f.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jun 21, 2012 2:45 am (PDT)

cells( row_index , column_index )
Nanti bisa diisi dengan varibale yang menyimpan data angka, kemudian nilai
dalam variabel itu diganti melalui suatu proses loop.

Misal :
dim lBaris as long
for lBaris=3 to 5000
IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = ""
then
'dst
next l

Kid.

2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

> **
>
>
>
> Kl sy coba artikan berarti untuk bagian rngdataku.cells(1,1).value = "" harus
> dilakukan berulang kali sampai ke rngdataku.cells(n,n) ???
> atau bagaimana ?
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, June 21, 2012 4:30 PM
>
> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria
> tertentu
>
>
> oops salah...
>
> jika variabel today diberi () maka menjadi variabel array.
>
> Andai yang dimaksud adalah menyimpan sebuah data tanggal dalam sebuah
> variabel,
> dim dtTglHariIni as date
> dttglhariini=date
>
> jika ingin menyimpan suatu object range dalam sebuah variabel,
> dim rngDataKu as range
> set rngdataku=range("e3:e5000")
>
> Kemudian, suatu kondisi IF dengan operator perbandingan *sebuah *nilai
> misal membandingkan cell e3 dulu :
> IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
> dst
>
> Kid.
>
> 2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>
> **
>
> Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch pada
> tanda -
> Sub Test()
> Dim today() As Date
> Dim range As range
>
> If today() > today() - 1 and range("E3:e5000") = "" Then
> a = MsgBox("test")
> ElseIf today () > today() - 2 and range("e3:e5000") = "" Then
> b = MsgBox("test")
> Else: c = MsgBox("ok")
>
> End If
> End Sub
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, June 21, 2012 4:14 PM
> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria
> tertentu
>
>
> Coba ganti & dengan AND
>
> Kid.
>
> 2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>
> **
>
> Kakak" yg ganteng" dan cantik", mohon bantuannya untuk
> menampilkan message alert dengan kriteria tertentu
> Sample file dan keterangan lainnya include didalamnya.
>
> Terima Kasih.
>
>
>
>
>
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1g.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jun 21, 2012 3:34 am (PDT)

Sepertinya sudah dicoba dan sudah memahami dampak dari proses yang namanya
loop.

Jadi loop akan mengulang-ulang proses. Loop dengan For Next, akan
menambahkan nilai dalam variabel yang digunakan pada baris For.

Pada For lBaris=3 to 5000, maka nilai lBaris akan berubah dari 3 sampai
5000.
Loop dengan For Next diawali baris For bla = bli to blo dan diakhir Next bla
Script yang ada diantaranya akan diproses berulang-ulang.

Ketika proses membutuhkan nilai-nilai yang turut bergerak dari 3 sampai
5000 yang tersimpan dalam lBaris, maka variabel lBaris bisa digunakan.
Contoh proses IF pada baris :
IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
rngdataku inginnya akan dicek dari cell pertama (range dibaris 3) sampai
range terakhir di baris 5000.
Pada baris IF diatas, menggunakan cells( row, col)
Jadi row pada cells harus mulai dari 1, yaitu lbaris pertama dikurangi 2.
Maka IF dalam For Next akan berbentuk :
IF dttglhariini > dttglhariini-1 AND rngdataku.cells( lbaris - 2 ,1).value
= "" then

Sampai sini, maka proses loop dari range baris 3 sampai baris 5000 excel
telah dilakukan.

Kid.

2012/6/21 Kid Mr. <mr.nmkid@gmail.com>

> cells( row_index , column_index )
> Nanti bisa diisi dengan varibale yang menyimpan data angka, kemudian nilai
> dalam variabel itu diganti melalui suatu proses loop.
>
> Misal :
> dim lBaris as long
> for lBaris=3 to 5000
>
> IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value =
> "" then
> 'dst
> next l
>
>
> Kid.
>
>
> 2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>
>> **
>>
>>
>>
>> Kl sy coba artikan berarti untuk bagian rngdataku.cells(1,1).value = "" harus
>> dilakukan berulang kali sampai ke rngdataku.cells(n,n) ???
>> atau bagaimana ?
>> ------------------------------
>> *From:* Kid Mr. <mr.nmkid@gmail.com>
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Thursday, June 21, 2012 4:30 PM
>>
>> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria
>> tertentu
>>
>>
>> oops salah...
>>
>> jika variabel today diberi () maka menjadi variabel array.
>>
>> Andai yang dimaksud adalah menyimpan sebuah data tanggal dalam sebuah
>> variabel,
>> dim dtTglHariIni as date
>> dttglhariini=date
>>
>> jika ingin menyimpan suatu object range dalam sebuah variabel,
>> dim rngDataKu as range
>> set rngdataku=range("e3:e5000")
>>
>> Kemudian, suatu kondisi IF dengan operator perbandingan *sebuah *nilai
>> misal membandingkan cell e3 dulu :
>> IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
>> dst
>>
>> Kid.
>>
>> 2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>>
>> **
>>
>> Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch
>> pada tanda -
>> Sub Test()
>> Dim today() As Date
>> Dim range As range
>>
>> If today() > today() - 1 and range("E3:e5000") = "" Then
>> a = MsgBox("test")
>> ElseIf today () > today() - 2 and range("e3:e5000") = "" Then
>> b = MsgBox("test")
>> Else: c = MsgBox("ok")
>>
>> End If
>> End Sub
>>
>> ------------------------------
>> *From:* Kid Mr. <mr.nmkid@gmail.com>
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Thursday, June 21, 2012 4:14 PM
>> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria
>> tertentu
>>
>>
>> Coba ganti & dengan AND
>>
>> Kid.
>>
>> 2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>>
>> **
>>
>> Kakak" yg ganteng" dan cantik", mohon bantuannya untuk
>> menampilkan message alert dengan kriteria tertentu
>> Sample file dan keterangan lainnya include didalamnya.
>>
>> Terima Kasih.
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1h.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Leonardo Endry widodo" monalisaxx_16@yahoo.com   monalisaxx_16

Thu Jun 21, 2012 7:36 pm (PDT)

dari informasi yg sy dapatkan, saya mencoba utk m'buat scriptnya dan pada saat di run terdapat error yaitu Next without For.
dari script yg coba sy buat, dimanakah letak kesalahannya (mav,masih newbie otodidak) dilihat dari penulisan nama variabelnya
sudah sesuai dengan yg di deklarasikan.
berikut script :
===============================================================================================================================
Sub MessageAlert()
Dim dtTglHariIni As Date
Dim rngDataKu As Range
Dim lbaris As Long
Set rngDataKu = Range("AK3:AK5000")

For lbaris = 3 To 5000
    If dtTglHariIni > dtTglHariIni - 1 And rngDataKu.Cells(lbaris - 2, 1).Value = "" Then
        MsgAlert1 = MsgBox(" Cek nomor LS untuk hari kemarin karena nomor LS belum ada", vbOKOnly + vbExclamation, "Cek Nomor LS")
    ElseIf dtTglHariIni > dtTglHariIni - 2 And rngDataKu.Cells(lbaris - 2, 1).Value = "" Then
        MsgAlert2 = MsgBox("Cek nomor LS untuk hari kemarin karena nomor LS belum ada", vbOKOnly + vbExclamation, "Cek Nomor LS")
Next lbaris

End If
End Sub

===============================================================================================================================

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, June 21, 2012 5:34 PM
Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu


 
Sepertinya sudah dicoba dan sudah memahami dampak dari proses yang namanya loop.

Jadi loop akan mengulang-ulang proses. Loop dengan For Next, akan menambahkan nilai dalam variabel yang digunakan pada baris For.

Pada For lBaris=3 to 5000, maka nilai lBaris akan berubah dari 3 sampai 5000.
Loop dengan For Next diawali baris For bla = bli to blo dan diakhir Next bla
Script yang ada diantaranya akan diproses berulang-ulang.

Ketika proses membutuhkan nilai-nilai yang turut bergerak dari 3 sampai 5000 yang tersimpan dalam lBaris, maka variabel lBaris bisa digunakan.
Contoh proses IF pada baris :
IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
rngdataku inginnya akan dicek dari cell pertama (range dibaris 3) sampai range terakhir di baris 5000.
Pada baris IF diatas, menggunakan cells( row, col)
Jadi row pada cells harus mulai dari 1, yaitu lbaris pertama dikurangi 2.
Maka IF dalam For Next akan berbentuk :
IF dttglhariini > dttglhariini-1 AND rngdataku.cells( lbaris - 2 ,1).value = "" then

Sampai sini, maka proses loop dari range baris 3 sampai baris 5000 excel telah dilakukan.

Kid.

2012/6/21 Kid Mr. <mr.nmkid@gmail.com>

cells( row_index  ,   column_index  )
>Nanti bisa diisi dengan varibale yang menyimpan data angka, kemudian nilai dalam variabel itu diganti melalui suatu proses loop.
>
>Misal :
>dim lBaris as long
>for lBaris=3 to 5000
>
>      IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
>           'dst
>next l
>
>
>Kid.
>
>
>
>2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>
>
>> 
>>
>>
>>Kl sy coba artikan berarti untuk bagian rngdataku.cells(1,1).value = "" harus dilakukan berulang kali sampai ke rngdataku.cells(n,n) ???
>>atau bagaimana ?
>>
>>________________________________
>> From: Kid Mr. <mr.nmkid@gmail.com>
>>To: belajar-excel@yahoogroups.com
>>Sent: Thursday, June 21, 2012 4:30 PM
>>
>>Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu
>>
>>
>>
>> 
>>oops salah...
>>
>>jika variabel today diberi () maka menjadi variabel array.
>>
>>Andai yang dimaksud adalah menyimpan sebuah data tanggal dalam sebuah variabel,
>>dim dtTglHariIni as date
>>dttglhariini=date
>>
>>jika ingin menyimpan suatu object range dalam sebuah variabel,
>>dim rngDataKu as range
>>set rngdataku=range("e3:e5000")
>>
>>Kemudian, suatu kondisi IF dengan operator perbandingan sebuah nilai
>>misal membandingkan cell e3 dulu :
>>IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
>>dst
>>
>>Kid.
>>
>>
>>2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>>
>>
>>> 
>>>Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch pada tanda -
>>>Sub Test()
>>>Dim today() As Date
>>>Dim range As range
>>>
>>>
>>>If today() > today() - 1 and range("E3:e5000") = "" Then
>>>a = MsgBox("test")
>>>ElseIf today () > today() - 2 and range("e3:e5000") = "" Then
>>>b = MsgBox("test")
>>>Else: c = MsgBox("ok")
>>>
>>>
>>>End If
>>>End Sub
>>>
>>>
>>>
>>>________________________________
>>> From: Kid Mr. <mr.nmkid@gmail.com>
>>>To: belajar-excel@yahoogroups.com
>>>Sent: Thursday, June 21, 2012 4:14 PM
>>>Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu
>>>
>>>
>>>
>>> 
>>>Coba ganti & dengan AND
>>>
>>>Kid.
>>>
>>>
>>>2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>>>
>>>
>>>> 
>>>>Kakak" yg ganteng" dan cantik", mohon bantuannya untuk menampilkan message alert dengan kriteria tertentu
>>>>Sample file dan keterangan lainnya include didalamnya.
>>>>
>>>>
>>>>Terima Kasih.
>>>
>>>
>>>
>>
>>
>>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1i.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jun 21, 2012 7:45 pm (PDT)

For ... Next adalah sebuah blok script loop
IF ... END IF adalah sebuah blok script kondisi

Sebuah blok script bisa ada dalam blok script yang lain, tetapi tidak boleh
bersilangan.
Contoh blok script dalam blok script lain (nested)
FOR bla=bli to blo
IF klu=klo THEN
'perintah kerja kondisi
ELSEIF klu=kli THEN
'perintah kerja kondisi
ELSE
'perintah kerja kondisi
END IF
NEXT bla

Tapi tidak bersilangan seperti ini (pasti error)
FOR bla=bli to blo
IF klu=klo THEN
'perintah kerja kondisi
ELSEIF klu=kli THEN
'perintah kerja kondisi
ELSE
NEXT bla

END IF

Coba perhatikan juga, betapa bermanfaatnya indent dari sebuah blok script.
Blok IF yang ada dalam blok FOR ditulis lebih masuk (indent) sampai bertemu
END IF.
Script perintah dalam sebuah blok selalu diberi indent.
Hal ini memang merepotkan dalam menulis script, tetapi memudahkan pembacaan.
Mencari penyebab error dan memperbaikinya membutuhkan proses membaca yang
teliti, dan penyusunan seperti demikian (walau merepotkan awalnya) bisa
memberi manfaat yang banyak.
Penyusunan blok ter indent juga akan membuat script bisa mudah dipelajari
oleh programmer lain.

Wassalam,
Kid.

2012/6/22 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

> **
>
>
> dari informasi yg sy dapatkan, saya mencoba utk m'buat scriptnya dan pada
> saat di run terdapat error yaitu Next without For.
> dari script yg coba sy buat, dimanakah letak kesalahannya (mav,masih
> newbie otodidak) dilihat dari penulisan nama variabelnya
> sudah sesuai dengan yg di deklarasikan.
> berikut script :
>
> ===============================================================================================================================
> Sub MessageAlert()
> Dim dtTglHariIni As Date
> Dim rngDataKu As Range
> Dim lbaris As Long
> Set rngDataKu = Range("AK3:AK5000")
>
>
> For lbaris = 3 To 5000
> If dtTglHariIni > dtTglHariIni - 1 And rngDataKu.Cells(lbaris - 2,
> 1).Value = "" Then
> MsgAlert1 = MsgBox(" Cek nomor LS untuk hari kemarin karena nomor
> LS belum ada", vbOKOnly + vbExclamation, "Cek Nomor LS")
> ElseIf dtTglHariIni > dtTglHariIni - 2 And rngDataKu.Cells(lbaris - 2,
> 1).Value = "" Then
> MsgAlert2 = MsgBox("Cek nomor LS untuk hari kemarin karena nomor
> LS belum ada", vbOKOnly + vbExclamation, "Cek Nomor LS")
> Next lbaris
>
> End If
> End Sub
>
> ===============================================================================================================================
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, June 21, 2012 5:34 PM
>
> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria
> tertentu
>
>
> Sepertinya sudah dicoba dan sudah memahami dampak dari proses yang namanya
> loop.
>
> Jadi loop akan mengulang-ulang proses. Loop dengan For Next, akan
> menambahkan nilai dalam variabel yang digunakan pada baris For.
>
> Pada For lBaris=3 to 5000, maka nilai lBaris akan berubah dari 3 sampai
> 5000.
> Loop dengan For Next diawali baris For bla = bli to blo dan diakhir Next
> bla
> Script yang ada diantaranya akan diproses berulang-ulang.
>
> Ketika proses membutuhkan nilai-nilai yang turut bergerak dari 3 sampai
> 5000 yang tersimpan dalam lBaris, maka variabel lBaris bisa digunakan.
> Contoh proses IF pada baris :
> IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
> rngdataku inginnya akan dicek dari cell pertama (range dibaris 3) sampai
> range terakhir di baris 5000.
> Pada baris IF diatas, menggunakan cells( row, col)
> Jadi row pada cells harus mulai dari 1, yaitu lbaris pertama dikurangi 2.
> Maka IF dalam For Next akan berbentuk :
> IF dttglhariini > dttglhariini-1 AND rngdataku.cells( lbaris - 2,1).value = "" then
>
> Sampai sini, maka proses loop dari range baris 3 sampai baris 5000 excel
> telah dilakukan.
>
> Kid.
>
> 2012/6/21 Kid Mr. <mr.nmkid@gmail.com>
>
> cells( row_index , column_index )
> Nanti bisa diisi dengan varibale yang menyimpan data angka, kemudian nilai
> dalam variabel itu diganti melalui suatu proses loop.
>
> Misal :
> dim lBaris as long
> for lBaris=3 to 5000
>
> IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value =
> "" then
> 'dst
> next l
>
>
> Kid.
>
>
> 2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>
> **
>
>
> Kl sy coba artikan berarti untuk bagian rngdataku.cells(1,1).value = "" harus
> dilakukan berulang kali sampai ke rngdataku.cells(n,n) ???
> atau bagaimana ?
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, June 21, 2012 4:30 PM
>
> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria
> tertentu
>
>
> oops salah...
>
> jika variabel today diberi () maka menjadi variabel array.
>
> Andai yang dimaksud adalah menyimpan sebuah data tanggal dalam sebuah
> variabel,
> dim dtTglHariIni as date
> dttglhariini=date
>
> jika ingin menyimpan suatu object range dalam sebuah variabel,
> dim rngDataKu as range
> set rngdataku=range("e3:e5000")
>
> Kemudian, suatu kondisi IF dengan operator perbandingan *sebuah *nilai
> misal membandingkan cell e3 dulu :
> IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
> dst
>
> Kid.
>
> 2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>
> **
>
> Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch pada
> tanda -
> Sub Test()
> Dim today() As Date
> Dim range As range
>
> If today() > today() - 1 and range("E3:e5000") = "" Then
> a = MsgBox("test")
> ElseIf today () > today() - 2 and range("e3:e5000") = "" Then
> b = MsgBox("test")
> Else: c = MsgBox("ok")
>
> End If
> End Sub
>
> ------------------------------
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, June 21, 2012 4:14 PM
> *Subject:* Re: [belajar-excel] Menampilkan message alert dengan kriteria
> tertentu
>
>
> Coba ganti & dengan AND
>
> Kid.
>
> 2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>
> **
>
> Kakak" yg ganteng" dan cantik", mohon bantuannya untuk
> menampilkan message alert dengan kriteria tertentu
> Sample file dan keterangan lainnya include didalamnya.
>
> Terima Kasih.
>
>
>
>
>
>
>
>
>
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1j.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Leonardo Endry widodo" monalisaxx_16@yahoo.com   monalisaxx_16

Thu Jun 21, 2012 8:51 pm (PDT)

Dari hasil script dibawah, script akan meloop sebanyak n (5000x) dengan mengabaikan kondisi-kondisi if.
Maksud awal utk di buatnya message alert ini yaitu

message alert akan tampil jika pada kolom B bernilai blank/ kosong dan tanggal 1 hari / 2 hari dari tanggal sekarang
misal

Hari ini tanggal 22 Juni

Table
=========================
    =        A          =     B            =
=========================
 1 = 6/21/2012 = LSL111000 =
 2 = 6/21/2012 =                    =
 3 = 6/20/2012 =                    =
=========================

Message akan tampil setelah memeriksa bhwa pada baris 2 kolom B terdapat nilai kolom B yang masih kosong dan tanggal sudah 1 atau 2 hari berlalu 
Mohon bimbingannya 

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 22, 2012 9:45 AM
Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu


 
For ... Next adalah sebuah blok script loop
IF ... END IF adalah sebuah blok script kondisi

Sebuah blok script bisa ada dalam blok script yang lain, tetapi tidak boleh bersilangan.
Contoh blok script dalam blok script lain (nested)
   FOR  bla=bli to blo
               IF  klu=klo THEN
                                         
'perintah kerja kondisi
               ELSEIF klu=kli THEN
                                         
'perintah kerja kondisi
               ELSE
                                         
'perintah kerja kondisi
               END IF
   NEXT bla

Tapi tidak bersilangan seperti ini (pasti error)
   FOR  bla=bli to blo
         IF  klu=klo THEN
                                   
'perintah kerja kondisi
         ELSEIF klu=kli THEN
                                  
'perintah kerja kondisi
         ELSE
   NEXT bla

         END IF

Coba perhatikan juga, betapa bermanfaatnya indent dari sebuah blok script.
Blok IF yang ada dalam blok FOR ditulis lebih masuk (indent) sampai bertemu END IF.
Script perintah dalam sebuah blok selalu diberi indent.
Hal ini memang merepotkan dalam menulis script, tetapi memudahkan pembacaan.
Mencari penyebab error dan memperbaikinya membutuhkan proses membaca yang teliti, dan penyusunan seperti demikian (walau merepotkan awalnya) bisa memberi manfaat yang banyak.
Penyusunan blok ter indent juga akan membuat script bisa mudah dipelajari oleh programmer lain.

Wassalam,
Kid.

2012/6/22 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

> 
>dari informasi yg sy dapatkan, saya mencoba utk m'buat scriptnya dan pada saat di run terdapat error yaitu Next without For.
>dari script yg coba sy buat, dimanakah letak kesalahannya (mav,masih newbie otodidak) dilihat dari penulisan nama variabelnya
>sudah sesuai dengan yg di deklarasikan.
>berikut script :
>===============================================================================================================================
>Sub MessageAlert()
>Dim dtTglHariIni As Date
>Dim rngDataKu As Range
>Dim lbaris As Long
>Set rngDataKu = Range("AK3:AK5000")
>
>
>
>
>For lbaris = 3 To 5000
>    If dtTglHariIni > dtTglHariIni - 1 And rngDataKu.Cells(lbaris - 2, 1).Value = "" Then
>        MsgAlert1 = MsgBox(" Cek nomor LS untuk hari kemarin karena nomor LS belum ada", vbOKOnly + vbExclamation, "Cek Nomor LS")
>    ElseIf dtTglHariIni > dtTglHariIni - 2 And rngDataKu.Cells(lbaris - 2, 1).Value = "" Then
>        MsgAlert2 = MsgBox("Cek nomor LS untuk hari kemarin karena nomor LS belum ada", vbOKOnly + vbExclamation, "Cek Nomor LS")
>Next lbaris
>
>
>End If
>End Sub
>
>===============================================================================================================================
>
>________________________________
> From: Kid Mr. <mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, June 21, 2012 5:34 PM
>
>Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu
>
>
>
> 
>Sepertinya sudah dicoba dan sudah memahami dampak dari proses yang namanya loop.
>
>Jadi loop akan mengulang-ulang proses. Loop dengan For Next, akan menambahkan nilai dalam variabel yang digunakan pada baris For.
>
>Pada For lBaris=3 to 5000, maka nilai lBaris akan berubah dari 3 sampai 5000.
>Loop dengan For Next diawali baris For bla = bli to blo dan diakhir Next bla
>Script yang ada diantaranya akan diproses berulang-ulang.
>
>Ketika proses membutuhkan nilai-nilai yang turut bergerak dari 3 sampai 5000 yang tersimpan dalam lBaris, maka variabel lBaris bisa digunakan.
>Contoh proses IF pada baris :
>IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
>rngdataku inginnya akan dicek dari cell pertama (range dibaris 3) sampai range terakhir di baris 5000.
>Pada baris IF diatas, menggunakan cells( row, col)
>Jadi row pada cells harus mulai dari 1, yaitu lbaris pertama dikurangi 2.
>Maka IF dalam For Next akan berbentuk :
>IF dttglhariini > dttglhariini-1 AND rngdataku.cells( lbaris - 2 ,1).value = "" then
>
>Sampai sini, maka proses loop dari range baris 3 sampai baris 5000 excel telah dilakukan.
>
>Kid.
>
>
>2012/6/21 Kid Mr. <mr.nmkid@gmail.com>
>
>cells( row_index  ,   column_index  )
>>Nanti bisa diisi dengan varibale yang menyimpan data angka, kemudian nilai dalam variabel itu diganti melalui suatu proses loop.
>>
>>Misal :
>>dim lBaris as long
>>for lBaris=3 to 5000
>>
>>      IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
>>           'dst
>>next l
>>
>>
>>Kid.
>>
>>
>>
>>2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>>
>>
>>> 
>>>
>>>
>>>Kl sy coba artikan berarti untuk bagian rngdataku.cells(1,1).value = "" harus dilakukan berulang kali sampai ke rngdataku.cells(n,n) ???
>>>atau bagaimana ?
>>>
>>>________________________________
>>> From: Kid Mr. <mr.nmkid@gmail.com>
>>>To: belajar-excel@yahoogroups.com
>>>Sent: Thursday, June 21, 2012 4:30 PM
>>>
>>>Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu
>>>
>>>
>>>
>>> 
>>>oops salah...
>>>
>>>jika variabel today diberi () maka menjadi variabel array.
>>>
>>>Andai yang dimaksud adalah menyimpan sebuah data tanggal dalam sebuah variabel,
>>>dim dtTglHariIni as date
>>>dttglhariini=date
>>>
>>>jika ingin menyimpan suatu object range dalam sebuah variabel,
>>>dim rngDataKu as range
>>>set rngdataku=range("e3:e5000")
>>>
>>>Kemudian, suatu kondisi IF dengan operator perbandingan sebuah nilai
>>>misal membandingkan cell e3 dulu :
>>>IF dttglhariini > dttglhariini-1 AND rngdataku.cells(1,1).value = "" then
>>>dst
>>>
>>>Kid.
>>>
>>>
>>>2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>>>
>>>
>>>> 
>>>>Sudah dicoba ganti & dengan AND tetapi masih terdapat type mismatch pada tanda -
>>>>Sub Test()
>>>>Dim today() As Date
>>>>Dim range As range
>>>>
>>>>
>>>>If today() > today() - 1 and range("E3:e5000") = "" Then
>>>>a = MsgBox("test")
>>>>ElseIf today () > today() - 2 and range("e3:e5000") = "" Then
>>>>b = MsgBox("test")
>>>>Else: c = MsgBox("ok")
>>>>
>>>>
>>>>End If
>>>>End Sub
>>>>
>>>>
>>>>
>>>>________________________________
>>>> From: Kid Mr. <mr.nmkid@gmail.com>
>>>>To: belajar-excel@yahoogroups.com
>>>>Sent: Thursday, June 21, 2012 4:14 PM
>>>>Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu
>>>>
>>>>
>>>>
>>>> 
>>>>Coba ganti & dengan AND
>>>>
>>>>Kid.
>>>>
>>>>
>>>>2012/6/21 Leonardo Endry widodo <monalisaxx_16@yahoo.com>
>>>>
>>>>
>>>>> 
>>>>>Kakak" yg ganteng" dan cantik", mohon bantuannya untuk menampilkan message alert dengan kriteria tertentu
>>>>>Sample file dan keterangan lainnya include didalamnya.
>>>>>
>>>>>
>>>>>Terima Kasih.
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

1k.

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jun 21, 2012 11:05 pm (PDT)

Kapan alert akan muncul ?
Saat diinput tanggal ? saat buka workbook ? saat ada cell berubah isi ?
saat pencet tombol cek ? atau kapan ?

Kid.

2012/6/22 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

> **
>
>
> Dari hasil script dibawah, script akan meloop sebanyak n (5000x) dengan
> mengabaikan kondisi-kondisi if.
> Maksud awal utk di buatnya message alert ini yaitu
>
> message alert akan tampil jika pada kolom B bernilai blank/ kosong dan
> tanggal 1 hari / 2 hari dari tanggal sekarang
> misal
>
> Hari ini tanggal 22 Juni
>
> Table
> =========================
> = A = B =
> =========================
> 1 = 6/21/2012 = LSL111000 =
> 2 = 6/21/2012 = =
> 3 = 6/20/2012 = =
> =========================
>
> Message akan tampil setelah memeriksa bhwa pada baris 2 kolom B terdapat
> nilai kolom B yang masih kosong dan tanggal sudah 1 atau 2 hari berlalu
> Mohon bimbingannya
> ------------------------------
> **
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

2a.

Re: Tanya: mencari posisi ke-?

Posted by: "Wiranata Kemala" kwiranata@gmail.com   kwiranata

Thu Jun 21, 2012 2:16 am (PDT)

Terima kasih Mr. Kid atas trick nya. Sangat membantu :)
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 21 Jun 2012 05:19:47
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tanya: mencari posisi ke-?

Fungsi-fungsi dalam grup lookup bekerja berdasar tipedata.
Untuk mencari nomor indeks lookup value, bisa menggunakan fungsi Match.
=Match("z",e5:h5,1)
Jika teks dalam e5:h5 ada yang diawali 'z' (z kecil), ganti 'z' dengan 'zz'
Hasilnya, adalah antara 1 sampai 4 jika ada data bertipe teks di e5:h5
(jadi e5 nomor 1 dan h5 nomor 4)
Ketika tidak ada data bertipe teks di e5:h5, maka akan menghasilkan error
value.
Di Excel 2007 error value bisa dikontrol dengan fungsi IFError
=IFError( Match( "z" , e5:h5 , 1 ) , "tidak ada" )
Di Excel 2003 kebawah, bisa menggunakan IF( IsError() )
=IF( IsError( Match( "z" , e5:h5 , 1 ) ) , "tidak ada" , Match( "z" ,
e5:h5 , 1 ) )
atau memanfaatkan karakteristik data
=IF( Count(e5:h5)=Counta(e5:h5),"tidak ada", Match( "z" , e5:h5 , 1 ) )

Jika akan mengambil suatu teks berdasar indeks posisi yang didapatkan,
gunakan LookUp
Misal baris 3 berisi suatu teks keterangan kondisi data setiap kolom :
=LookUp( "z" , e5:h5 , $e$3:$h$3 )

Wassalam,
Kid.


2012/6/20 WIRAnata Kemala Deng <kwiranata@gmail.com>

> **
>
>
> dear rekan-rekan,
>
> mohon bantuannya untuk formula trick excel untuk mencari posisi ke
> berapa (dari selection beberapa column) yang mengandung character
> (huruf), dengan asumsi per row nya hanya ada satu column yang
> mengandung huruf, sisa nya numeric).
>
> Untuk jelas nya, bisa tolong dilihat di attachment nya.
>
> Terima kasih atas bantuan / masukannya.
>
> regards, Wira
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

3a.

Bls: [belajar-excel] satu tombol utk perintah yang berlawanan

Posted by: "Absolute - Udin" omnivora@yahoo.com   omnivora

Thu Jun 21, 2012 11:56 am (PDT)

maklumi sy yg byk mau tp sedikit mampu
Set rngShp = Sheet1.Shapes(sShpName).TopLeftCell

"the item with the specified name wasn't found"
apa yg salah dan kenapa begitu kalau sy terapkan selain di file lampiran?

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 21 Juni 2012 10:37
Judul: Re: [belajar-excel] satu tombol utk perintah yang berlawanan


 
Silakan coba file terlampir.
Kondisi :
>> shape untuk filter akan membaca range pertama (pojok kiri atas shape) -> hati-hati dalam meletakkan shape
>> setiap shape di assign ke prosedur FilterItem

Berikut bunyi prosedur filter item (rujukan range untuk membaca tabel data masih statis, sesuaikan dengan kebutuhan).
Public Sub FilterItem()
    Dim sShpName As String
    Dim rngData As Range, rngShp As Range
   
    'get caller (kasus ini : sebuah shape -> diambil namanya [string])
    sShpName = Application.Caller
    Set rngShp = Sheet1.Shapes(sShpName).TopLeftCell        'range excel pertama si shape
   
    Set rngData = Range("b4").CurrentRegion
    'set area autofilter
    If Sheet1.AutoFilterMode Then
        'autofilter udah on maka di clear aja (gak peduli tabel apa yang di autofilter)
        Sheet1.AutoFilterMode = False
    Else
        'autofilter masih off, filter berdasar nilai di rangenya si shape (gak pakai panah filter)
        rngData.AutoFilter 1, rngShp.Value, visibledropdown:=False
        rngData.AutoFilter 2, visibledropdown:=False
        rngData.AutoFilter 3, visibledropdown:=False
    End If
End Sub

Wassalamualaikum Wr. Wb.
Kid.

2012/6/20 Absolute - Udin <omnivora@yahoo.com>

> 
>dear all
>mau bertanya codenya utuk satu tombol dg dua perintah, keterangan & hasil yg diinginkan ada di lampiran
>
>
>terima kasih
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

3b.

Re: satu tombol utk perintah yang berlawanan

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jun 21, 2012 12:00 pm (PDT)

Coba tutup semua excel, dan mulai buka dari file tersebut. Kemudian di coba
klik shapenya, save.

Kid.

2012/6/22 Absolute - Udin <omnivora@yahoo.com>

> **
>
>
> maklumi sy yg byk mau tp sedikit mampu
> Set rngShp = Sheet1.Shapes(sShpName).TopLeftCell
>
> "the item with the specified name wasn't found"
> apa yg salah dan kenapa begitu kalau sy terapkan selain di file lampiran?
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 21 Juni 2012 10:37
> *Judul:* Re: [belajar-excel] satu tombol utk perintah yang berlawanan
>
>
> Silakan coba file terlampir.
> Kondisi :
> >> shape untuk filter akan membaca range pertama (pojok kiri atas shape)
> -> hati-hati dalam meletakkan shape
> >> setiap shape di assign ke prosedur FilterItem
>
> Berikut bunyi prosedur filter item (rujukan range untuk membaca tabel data
> masih statis, sesuaikan dengan kebutuhan).
> Public Sub FilterItem()
> Dim sShpName As String
> Dim rngData As Range, rngShp As Range
>
> 'get caller (kasus ini : sebuah shape -> diambil namanya [string])
> sShpName = Application.Caller
> Set rngShp = Sheet1.Shapes(sShpName).TopLeftCell 'range excel
> pertama si shape
>
> Set rngData = Range("b4").CurrentRegion
> 'set area autofilter
> If Sheet1.AutoFilterMode Then
> 'autofilter udah on maka di clear aja (gak peduli tabel apa yang
> di autofilter)
> Sheet1.AutoFilterMode = False
> Else
> 'autofilter masih off, filter berdasar nilai di rangenya si shape
> (gak pakai panah filter)
> rngData.AutoFilter 1, rngShp.Value, visibledropdown:=False
> rngData.AutoFilter 2, visibledropdown:=False
> rngData.AutoFilter 3, visibledropdown:=False
> End If
> End Sub
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> 2012/6/20 Absolute - Udin <omnivora@yahoo.com>
>
> **
>
> dear all
> mau bertanya codenya utuk satu tombol dg dua perintah, keterangan & hasil
> yg diinginkan ada di lampiran
>
> terima kasih
>
>
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

3c.

Database mengundang pertanyaan

Posted by: "Sexomad Adv" secomad@yahoo.com   secomad

Thu Jun 21, 2012 2:11 pm (PDT)

Dear, sahabat semuanya, saya punya beberapa pertanyaan (sebagaimana file terlampir) yang membingungkan bagi saya, barangkali atau mungkin bagi teman-teman semua itu hal yang mudah. nah..! untuk itu, saya mohon maaf karena akan berbagi kesusahan dengan kalian. Pokoknya saya percaya dengan kawan-kawan semuanya dan sebelumnya saya ucapkan thank's berat buat semuanya...

salam....

________________________________

Recent Activity: * New Members 14
Visit Your Group
----------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
----------------------------------------------------------

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use
.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

3d.

Re: Database mengundang pertanyaan

Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com

Thu Jun 21, 2012 6:22 pm (PDT)

Pertanyaan 1:

mengapa E15 ketika angkanya diganti semisal 170 yang seharusnya muncul
kecamatan "CISOLOK" pada kolom H16 kok jadi #N/A ..?

Jawab:

Karena data dalam cell B14 s/d B23 bertipe TEXT sehingga jika cell E15
diisi dengan angka 170 yang bertipe NUMBER akan menghasilkan data #N/A. Hal
ini juga terjadi pada pertanyaan nomor 2 di bawah. Untuk menguji tipe data
gunakan =IsNumber dan =IsText

Solusi:

Ubah tipe data pada cell B14 s/d B23 menjadi tipe Number, atau ubah tipe
data input di E15 menjadi tipe Text, intinya adalah kedua tipe data harus
sama.

Pertanyaan 2:

cell H15 adalah nama Desa yang seharusnya muncul berdasarkan vlookup data
yang sudah di define dengan kata "CARINGIN" yang diambila langsung dari
cell H15 (mengingat cell tersebut nantinya akan sering barubah) berbanding
dengan kriteria cel F13 yaitu 023, dengan demikian pada cell H15
seharusnya berisi desa "SUKAMULYA" kenapa muncul : #VALUE!....?

Jawab:

Ini adalah cuplikan dari formula yang tertulis di cell H15

=IF(F13<>"";VLOOKUP(F13;*H16*;2))

Perharikan yang diberi warna merah, harusnya di situ dimasukkan
range_lookup yang berari nilai seharusnya adalah B26:C33

Solusi:

Jika ternyata kode desa digunakan untuk lebih dari 1 nama (beda kecamatan
bisa memiliki kode desa yang sama), maka sebaiknya data base disusun
berdasarkan kode kecamatan diikuti dengan kode desa, jadi dilakukan lookup
dengan lebih dari 1 kriteria, misal kode desa 016 di didalam kecamatan
yang memiliki kode 017.

maaf, tidak melampirkan file

-dwint-

Pada 22 Juni 2012 04:09, Sexomad Adv <secomad@yahoo.com> menulis:

> **
>
>
> Dear, sahabat semuanya, saya punya beberapa pertanyaan (sebagaimana file
> terlampir) yang membingungkan bagi saya, barangkali atau mungkin bagi
> teman-teman semua itu hal yang mudah. nah..! untuk itu, saya mohon maaf
> karena akan berbagi kesusahan dengan kalian. Pokoknya saya percaya dengan
> kawan-kawan semuanya dan sebelumnya saya ucapkan thank's berat buat
> semuanya...
> salam....
> ------------------------------
> **
> Recent Activity:
>
> - New Members<http://groups.yahoo.com/group/belajar-excel/members;_ylc=X3oDMTJnbnA4bWI1BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxMzQwMzA1MjA0?o=6>
> 14
>
> Visit Your Group<http://groups.yahoo.com/group/belajar-excel;_ylc=X3oDMTJmb2s4OWE4BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEzNDAzMDUyMDQ->
> ----------------------------------------------------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-subscribe@yahoogroups.com
>
> posting ke milis, kirimkan ke:
> belajar-excel@yahoogroups.com
>
> berkunjung ke web milis
> http://tech.groups.yahoo.com/group/belajar-excel/messages
>
> melihat file archive / mendownload lampiran
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
>
> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> ----------------------------------------------------------
> [image: Yahoo! Groups]<http://groups.yahoo.com/;_ylc=X3oDMTJlZWx0aDB0BF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTM0MDMwNTIwNA-->
> Switch to: Text-Only<belajar-excel-traditional@yahoogroups.com?subject=Change%20Delivery%20Format:%20Traditional>,
> Daily Digest<belajar-excel-digest@yahoogroups.com?subject=Email%20Delivery:%20Digest>•
> Unsubscribe<belajar-excel-unsubscribe@yahoogroups.com?subject=Unsubscribe>• Terms
> of Use <http://docs.yahoo.com/info/terms/>
> .
>
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

3e.

Re: Database mengundang pertanyaan

Posted by: "bagus" bagus@kingjim.co.id   bagus4bls

Thu Jun 21, 2012 6:23 pm (PDT)

Dear Sexomad;

Mungkin begini:
1. Pada cell E13 & F13 pakai dropdown dengan validation:
2. Pada cell H15 coba diganti menjadi =IF(F13<>"",VLOOKUP(F13,CARINGIN,2,0),"")
3. Pada cell H16 & H18: coba ganti formula menjadi =IF(E13<>"",VLOOKUP(E13,KECAMATAN,2,0),"")

File terlampir;

Bagus

Sent from my Taxiphone®

----- Original Message -----
From: Sexomad Adv
To: belajar-excel@yahoogroups.com
Sent: Friday, June 22, 2012 4:09 AM
Subject: [belajar-excel] Database mengundang pertanyaan

Dear, sahabat semuanya, saya punya beberapa pertanyaan (sebagaimana file terlampir) yang membingungkan bagi saya, barangkali atau mungkin bagi teman-teman semua itu hal yang mudah. nah..! untuk itu, saya mohon maaf karena akan berbagi kesusahan dengan kalian. Pokoknya saya percaya dengan kawan-kawan semuanya dan sebelumnya saya ucapkan thank's berat buat semuanya...

salam....

----------------------------------------------------------

Recent Activity:
a.. New Members 14
Visit Your Group
----------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
----------------------------------------------------------

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use
.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

3f.

Re: Database mengundang pertanyaan

Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com

Thu Jun 21, 2012 6:58 pm (PDT)

coba ubah bentuk data base seperti file terlampir, gunakan format cell
Custom 000 untuk kode desa dan kecamatan

untuk mencari nama desa berdasarkan kode kecamatan yang tepat gunakan
formula Index(Match())

-dwint-

Pada 22 Juni 2012 08:26, bagus <bagus@kingjim.co.id> menulis:

> **
>
>
> **
> Dear Sexomad;
>
> Mungkin begini:
> 1. Pada cell E13 & F13 pakai dropdown dengan validation:
> 2. Pada cell H15 coba diganti menjadi *
> =IF(F13<>"",VLOOKUP(F13,CARINGIN,2,0),"")*
> 3. Pada cell H16 & H18: coba ganti formula menjadi *
> =IF(E13<>"",VLOOKUP(E13,KECAMATAN,2,0),"")*
>
> File terlampir;
>
> ****
>
> **Bagus **
>
> Sent from my Taxiphone®
>
> ----- Original Message -----
> *From:* Sexomad Adv <secomad@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, June 22, 2012 4:09 AM
> *Subject:* [belajar-excel] Database mengundang pertanyaan
>
>
>
> Dear, sahabat semuanya, saya punya beberapa pertanyaan (sebagaimana file
> terlampir) yang membingungkan bagi saya, barangkali atau mungkin bagi
> teman-teman semua itu hal yang mudah. nah..! untuk itu, saya mohon maaf
> karena akan berbagi kesusahan dengan kalian. Pokoknya saya percaya dengan
> kawan-kawan semuanya dan sebelumnya saya ucapkan thank's berat buat
> semuanya...
> salam....
> ------------------------------
> **
> Recent Activity:
>
> - New Members<http://groups.yahoo.com/group/belajar-excel/members;_ylc=X3oDMTJnbnA4bWI1BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxMzQwMzA1MjA0?o=6>
> 14
>
> Visit Your Group<http://groups.yahoo.com/group/belajar-excel;_ylc=X3oDMTJmb2s4OWE4BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEzNDAzMDUyMDQ->
> ----------------------------------------------------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-subscribe@yahoogroups.com
>
> posting ke milis, kirimkan ke:
> belajar-excel@yahoogroups.com
>
> berkunjung ke web milis
> http://tech.groups.yahoo.com/group/belajar-excel/messages
>
> melihat file archive / mendownload lampiran
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
>
> menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
> ----------------------------------------------------------
> [image: Yahoo! Groups]<http://groups.yahoo.com/;_ylc=X3oDMTJlZWx0aDB0BF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTM0MDMwNTIwNA-->
> Switch to: Text-Only<belajar-excel-traditional@yahoogroups.com?subject=Change%20Delivery%20Format:%20Traditional>,
> Daily Digest<belajar-excel-digest@yahoogroups.com?subject=Email%20Delivery:%20Digest>•
> Unsubscribe<belajar-excel-unsubscribe@yahoogroups.com?subject=Unsubscribe>• Terms
> of Use <http://docs.yahoo.com/info/terms/>
> .
>
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

3g.

Re: Database mengundang pertanyaan

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Jun 21, 2012 9:18 pm (PDT)

Mungkin file terlampir bisa membantu memberi penjelasan.
Isinya sekedar celotehan tentang :
1. pengaruh tipe data pada kegiatan me-lookup data,
2. nama range dan cara merujuk nama range secara tidak langsung untuk data
yang terdiri dari tabel grup dan tabel-tabel sub grup,
3. beberapa bentuk umum penyusunan data referensi berupa tabel grup dan
tabel-tabel sub grup
4. contoh pemakaian beberapa bentuk umum susunan data referensi tabel grup
dan tabel-tabel sub grup

Secara umum, permasalahan Pak Secomad disebabkan karena tipedata antar key
lookup dan cara merujuk nama range yang tidak menggunakan fungsi Indirect.

Wassalam,
Kid.

2012/6/22 Sexomad Adv <secomad@yahoo.com>

> **
>
>
> Dear, sahabat semuanya, saya punya beberapa pertanyaan (sebagaimana file
> terlampir) yang membingungkan bagi saya, barangkali atau mungkin bagi
> teman-teman semua itu hal yang mudah. nah..! untuk itu, saya mohon maaf
> karena akan berbagi kesusahan dengan kalian. Pokoknya saya percaya dengan
> kawan-kawan semuanya dan sebelumnya saya ucapkan thank's berat buat
> semuanya...
> salam....
> ------------------------------
> **
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (12)

4a.

durasi waktu

Posted by: "tuti andrayani" andrayani_lee@yahoo.co.id   andrayani_lee

Thu Jun 21, 2012 8:16 pm (PDT)

Dear All,
 
Mohon pencerahannya, apabila saya ingin menghitung durasi antara 2 waktu dalam desimal 0,5 an  dengan toleransi 2 menit  bagaimana rumusnya?
Misal :
10.00 - 15.27 durasinya adalah 5 jam
10.00 - 15.28 durasinya adalah 5,5 jam
10.00 - 15.32 durasinya adalah 5,5 jam
Thanks
 
Tuti

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

4b.

Re: durasi waktu

Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com

Thu Jun 21, 2012 9:21 pm (PDT)

coba formula berikut:

=IF((((B2-A2)*24)-INT((B2-A2)*24))>0,45;INT(((B2-A2)*24))+0,5;INT(((B2-A2)*24)))

mungkin member miliis yang lain bisa memberikan solusi yang lebih baik

-dwint-

Pada 22 Juni 2012 10:11, tuti andrayani <andrayani_lee@yahoo.co.id> menulis:

> **
>
>
> Dear All,
>
> Mohon pencerahannya, apabila saya ingin menghitung durasi antara 2 waktu
> dalam desimal 0,5 an dengan toleransi 2 menit bagaimana rumusnya?
> Misal :
> 10.00 - 15.27 durasinya adalah 5 jam
> 10.00 - 15.28 durasinya adalah 5,5 jam
> 10.00 - 15.32 durasinya adalah 5,5 jam
> Thanks
>
> Tuti
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

5.

Chekbox click

Posted by: "Yusril Ramadani" yusrilramadani@gmail.com   yusril_rmd

Thu Jun 21, 2012 8:53 pm (PDT)

Selamat pagi para pakar

Mohon bantuannya untuk case terlampir

Saya mau menggunakan chekbok untuk memunculkan dan menyembunyikan sheet
Pada posisi pertama ke dua sheet tersembunyi dan bergantung kepada clck
chekbox nya
dan pada saat close pun hanya sheet yg di click yg tetap muncul

Salam
YR

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

6a.

Re: menambahkan baris secara otomatis

Posted by: "Markonah" markonatul@gmail.com   m_tulqiyem

Thu Jun 21, 2012 8:56 pm (PDT)

ternyata pak widodo aji tidak sedang membuat database, tetapi sekedar
TULISAN-TULISAN
di cel-cel excel yg tidak harus berkaidah database.

jadi (kalau begitu) barangkali kita perlu mengkonversi data-datanya menjadi
TABEL atau LIST (lha wong sheet datanyapun tidak pernah ada /dikirimkan ke
milis, pak wid datang bertangan kosong)

prinsipnya Jika Cell E6 di isi / diedit sehingga menjadi *"A atau B"*, maka
akan disisipkan baris baru di bawahnya
(selebar tabel yg ada), that's all.

VBA code ditulis di molude mmilik Sheet1 (sheet berisi data yg akan
'dikerjain')

Private Sub *Worksheet_Change*(ByVal Target As Range)
'----------------------------------
' markonah - for BeExcel Msg #17714
' Jun 21 2012 // versi fixed
'----------------------------------
If Target.Address = "$E$6" Then
If Target.Value = "A atau B" Then
Range("A7:H7").Insert -4121, 1
End If
End If
End Sub

was-salam
mpok markonah,
'penjual karedok di gang sebelah'

*2012/6/21 widodo aji <bosseaz@yahoo.com>
*
>
> * *
>
> Bisa ngga kalo data sudah sampai baris ke-10, kemudian misal data di baris
> ke-6 di salah satu kolom diedit dengan nilai tertentu maka ada penambahan
> baris secara otomatis tepat di bawah baris ke-6 tersebut.
> Tks.
>
> --- Mods ---
> Coba search dimilis
> Hal ini pernah didiskusikan
> ------------
> ________________________________
> Dari: Kid Mr. <mr.nmkid@gmail.com>
> Dikirim: Kamis, 21 Juni 2012 14:01
> Coba manfaatkan fitur table di xl2007 ke atas atau fitur List di xl2003
> seperti file terlampir.
> Coba isi dibaris baru pada file terlampir.
> Cara buat :
> 1. Buat sebuah tabel data yang baik :
> >>header hanya 1 baris gak pakai merge cell dan semua kolom ada
> namanya rapat (gak ada kolom kosong)
> 2. isi dengan 1 baris dummy yang dilengkapi semua fitur atau formula bila
> perlu, dan tidak ada baris kosong antara header dengan data pertama maupun
> antar record
> 3. blok tabel (mulai header sampai baris dummy tersebut
> 4. ke ribbon Home -> grup Styles -> klik Format as table -> pilih salah
> satu style yang ada
> 5. coba isi datanya.
>
> Wassalam,
> Kid.
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

7a.

help sepertinya ada yg salah dengan code ku

Posted by: "Harumi Wanasita" hwanasita@yahoo.com   hwanasita

Thu Jun 21, 2012 9:13 pm (PDT)

help

apakah ada yg salah dengan kode ku di vb yah?
kenapa saat pilih nama di combo box nya kok gak otomatis tertulis di worksheet form?
makasih...

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

7b.

Re: help sepertinya ada yg salah dengan code ku

Posted by: "Markonah" markonatul@gmail.com   m_tulqiyem

Thu Jun 21, 2012 10:49 pm (PDT)

yg pendek saja mbak, karena nilai dropdwon itu adalah Bilangan
(index baris range yg dirujuk), tidak seperti yg tampak di dropdownnya;
dan tabel juga punya index, jadi tinggal ambil berdasarkan alamat
Cell(RowIdx,ColumnIdx) saja
tidak perlu membuat select case sebanyak data tabel yg ada
Kalau jml muridnya 1000, selec casenya tentu panjang sekali (1000 case)

Sub MengambilData()
Dim RowIdx As Long, ShBt As Worksheet
Set ShBt = Sheets("bantuan")
RowIdx = Sheets("bantuan").Range("D1").Value + 1
With Worksheets("Form")
.Cells(5, 2).Value = ShBt.Cells(RowIdx, 1)
.Cells(6, 2).Value = ShBt.Cells(RowIdx, 2)
.Cells(7, 2).Value = ShBt.Cells(RowIdx, 3)
End With
ShBt.Cells(1, 4).ClearContents
End Sub

2012/6/22 Harumi Wanasita <hwanasita@yahoo.com>

> **
> help
> apakah ada yg salah dengan kode ku di vb yah?
> kenapa saat pilih nama di combo box nya kok gak otomatis tertulis di
> worksheet form?
> makasih...
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Recent Activity

•  14
  New Members

Visit Your Group

Cat Groups

on Yahoo! Groups

Share pictures &

stories about cats.

Yahoo! Groups

Parenting Zone

Family and home

Tips for mom

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe