oiya, sebelum terlanjur menjadi salah kaprah...
a 1 TRUE 1
s 2 FALSE
d 3 FALSE
a 4 TRUE 4
s 5 FALSE
d 6 FALSE
e 7 FALSE
s 8 FALSE
a 1 TRUE 1
x 2 FALSE
s 3 FALSE
d 4 FALSE
a 5 TRUE 5
s 6 FALSE
a 11 TRUE 11
kriteria: "a"
hasil / tujuan akhir seperti di kolom KUNING itu, tidak tepat kalau
disebut sebagai UNIQUE LIST
barangkali lebih tepat : list data yg sesuai 1 kriteria
--------------------------------------------------------------------------------
----- Original Message -----
From: Edo Ymail
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 28, 2010 4:28 PM
Subject: [belajar-excel] Belajar membuat perintah macro
Dear master XL,
Saya sedang mencoba-coba untuk belajar membuat perintah macro sederhana,
yang saya coba buat adalah macro untuk membuat unique list dimana dari list
yang ada di Sheet 1 akan saya coba untuk ditampilkan di Sheet 2.
Adapun perintah macro yang saya buat adalah :
Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Worksheets("Sheet1").Range("A1:A15")
If c.Value = "a" Then
Range("A1").Offset(1, 0).Value = c.Offset(0, 1).Value
End If
Next c
End Sub
Hasil yang saya harapkan adalah pada Sheet 2 cell A1 sampai kebawah adalah 1,
4, 1, 5, 11.
Tetapi dari perintah yang saya coba diatas hanya menghasilkan angka 11 di
Sheet2 cell A2.
Mohon bantuannya dimana kira-kira letak kesalahannya? Terima Kasih
