Makro ile düşeyara

[acolkesen1]

Merhaba arkadaşlar,
Forumda uzun süre aremama rağmen uygun bir örnek bulamadım. Büyük çoğunluğu da 11/2008 öncesi olduğu için açılmıyor.
Aşağıdaki kodla düşeyara hücreye formül olarak yazılıyor.
ActiveCell.FormulaR1C1 = _
"=IF(ISBLANK(RC[-1]),"""",VLOOKUP(RC[-1],daireler,2,FALSE))"
Ben ise formül sonucunu hücreye yazdırmak için kodu aşağıdaki şekilde değiştirdim ama nerede hata yaptığımı bulamıyorum..:frown:
ActiveCell = WorksheetFunction.IF(ISBLANK((-1)), """", VLookup(RC(-1), daireler, 2, False))
Yardımlarınızı bekliyorum..

 

[Ömer]

Merhaba,

Örnek olarak veriyorum. Dosyanıza uyarlayamazsanız küçük bir örnek ekleyerek açıklayınız..

Cells(i, "a") = WorksheetFunction.VLookup(Cells(i, "b"), Range("b:d"), 3, 0)

.

 

[acolkesen1]

Merhaba Ömer,
ilgin için teşekkür ederim. Açıklama içeren dosya ektedir.

 

[Ömer]

Sayfa1 in kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Set S1 = Sheets("Sayfa2")
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, S1.[D:E], 2, 0)
End Sub

.

 

[acolkesen1]

Merhaba Sayın Ömer,
Yardımlarınız için çok teşekkür ederim, esenkalın.