Coba manfaatkan event worksheet change. Kira-kira susunan blok prosedurnya
seperti berikut :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If .Count = 1 Then
If .Row > 3 Then
If .Column = 2 Then
.Offset(0, 1).Resize(1, 2).Formula = _
"=VLOOKUP($b" & .Row &
",master!$b$4:$d$26,column(b1),FALSE)"
.Parent.Calculate
.Offset(0, 1).Resize(1, 2).Value = .Offset(0,
1).Resize(1, 2).Value
End If
End If
End If
End With
Application.EnableEvents = True
End Sub
Asumsi :
area input key lookup di kolom B mulai baris ke-4 Excel.
yang diisi adalah 2 kolom, yaitu kolom C dan D
lookup ke sheet master range tertentu
Wassalam,
Kid.
2012/7/21 Adi Susanto <[email protected]>
> **
>
>
> makasih mas hendrik, ini saya lampirkan. kalau value di sheet/ range lain
> gimana caranya?
>
> Trims..
>
>
>
>
