RowIdx = Sheets("bantuan").Range("D1").Value + 1
*artinya:*
Nilai Cell D1 ditambah 1, kemudian HASILNYA dimsukkan / diingat di Variable
bernama RowIdx
*Catatan:*
D1 itu selalu berubah nilainya sesuai NAMA yg dipilih melalui Drow Down
Ingat DropDown itu Anda buat dengan FORM ComboBox (bukan ActiveX control
ComboBox)
Jadi setiap dipilih sebenarnya nilainya adalah ANGKA URUT DATA
Dan Anda telah menunjuk Cell D1 itu sebagai Cell-Link - nya.
Row Index di Tabel (Khusus Data) di sheet "bantuan") tidak sama dengan row
index milik Sheet,
dlm contoh selisih 1 karena baris 1 pada tabel berupa JUDUL KOLOM (bukan
data)
Sedangkan nantinya anga RowIdx itu akan dipakai untuk merujuk cell
berdasarkan Sheet
(bukan Range(Tabel)
Maka Nilai Cell D1 harus ditambah 1 agar nantinya dapat digunakan untuk
merujuk
data /cell yg berindukkan SHEET secara langsung.
*Catatan Tambahan:*
Dengan telah diketahuinya nilai di D1 (sheet bantuan), setiap anda menunjuk
nama melalui
"ComboBox" sebenarnya dapat dicari data KELAS dan NIS secara langsung,
TIDAK PERLU
menggunakan Select Case yg bisa panjang.
~Rara
2012/6/25 Harumi Wanasita <[email protected]>
> **
> sorry bisa terjemahin ini saja? RowIdx =
> Sheets("bantuan").Range("D1").Value + 1
> dari rumusan.
> 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
>
>
