oh begitu ya mbak... jdi berbeda yah dengan menuliskan dulu nama =.cells(5,2).value dengan
.cells(5,2).value = nama jadi seperti sy bikin rumus baru di worksheet form dan tidak tehubung dengan worksheet bantuan gitu kah mbak? trims... ________________________________ Dari: Markonah <[email protected]> Kepada: [email protected] Dikirim: Jumat, 22 Juni 2012 14:48 Judul: Re: [belajar-excel] help sepertinya ada yg salah dengan code ku 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 > >
