Jawaban Mr. Kid sangat tepat sasaran.
Saya ingin bertanya, apakah pengaruhnya jika .Parent.Calculate dihilangkan ? 
Bukankah Vlookup akan mengcalculate secara otomatis jika tidak diset manual ?

Salam,
Hendrik Karnadi



________________________________
 From: Kid Mr. <[email protected]>
To: [email protected] 
Sent: Saturday, 21 July 2012, 20:26
Subject: Re: [belajar-excel] Re: vba paste spesial - value
 

  
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.. 
>

 

Kirim email ke