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 iEnd Sub
--- In belajar-excel@yahoogroups.com, 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
