Yang ini main Variable, lebih fleksible kaya burble walupun ga terlalu simple.....
Salam, Hendrik Karnadi ________________________________ From: Jokoplo <[email protected]> To: [email protected] Sent: Wednesday, 7 March 2012, 12:44 Subject: [belajar-excel] Re: Belajar Pencarian ternyata banyak cara ya.. ini satu lagi, gaya jurus wudang perguruan BaruKlinting... (="kebanyakan" menyiapkan variables) Private Sub CommandButton1_Click() 'Untuk Mengisi Sheet1 Kolom 2 Dim i As Integer, LookupVal As Variant Dim dTulis As Range, dTabel As Range, fun As Object Set dTabel = Sheet2.Range("A1").CurrentRegion.Offset(1, 0) Set dTulis = Sheet1.Range("B3:D3") LookupVal = dTulis(1, 0).Value fun = Application.WorksheetFunction For i = 1 To 3 dTulis(i).Value = fun.VLookup(LookupVal, dTabel, i + 1, False) Next i End Sub --- In [email protected], Mr Pecut <pecutmr@...> wrote: > > B-excel, > Aku kepingin belajar macro dikit-demi dikit, mencomot bahasa macronya dari > salah satu web lain, > kasih pencerahannya dong untuk aplikasinya.... > Maaf, banyak bertanya-tanya... > Best Regards, > Mr Pecut
