Re: [belajar-excel] help sepertinya ada yg salah dengan code ku

[Markonah]

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 <hwanas...@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...
>

Ambil Data bdskn Nilai DropDown (markonah).xlsm
Description: Binary data