coba dibandingkan makro asli dari mbak Harum -VS
makro yg telah kami coba perbaiki ini
kesalahan hanya pengisian cell terbalik
harusnya cell diisi dengan variables hasil select case
yg mbak Harum lakukan Variables diisi dengan cell di FORM
Sub GetData()
Dim nama, kelas As String
Dim nim As Long
With Worksheets("Bantuan")
nama = .Cells(1, 5).Value
Select Case nama
Case "Budi"
nis = .Cells(2, 2).Value
kelas = .Cells(2, 3).Value
Case "Bambang"
nis = .Cells(3, 2).Value
kelas = .Cells(3, 3).Value
Case "Wati"
nis = .Cells(4, 2).Value
kelas = .Cells(4, 3).Value
Case "Iwan"
nis = .Cells(5, 2).Value
kelas = .Cells(5, 3).Value
End Select
Cells(1, 4).ClearContents
End With
With Worksheets("Form")
*.Cells(5, 2).Value = nama*
*.Cells(6, 2).Value = nis*
*.Cells(7, 2).Value = kelas*
End With
End Sub
-mar-
2012/6/22 Harumi Wanasita <[email protected]>
**
> thanks buat jawabannya dan rumusnya yg singkat. tp sy lg belajar dr
> buku... kl misalkan tetap pake rumus itu yg salah yg dimana? karena sy
> sedang belajar bertahap. biar lebih ngerti lg.. terlepas dr jumlah murid
> berapapun.
>
>
------------------------------
> *Dari:* Markonah <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Jumat, 22 Juni 2012 6:48
> *Judul:* Re: [belajar-excel] help sepertinya ada yg salah dengan code ku
>
> 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
>
>
