Makro'da vlookup uygulaması

[serhatyrdmc]

Merhaba arkadaslar;

Ekte gönderdiğim örnekteki e9-f9-g10 hücrelerine belirli bir sistemde yazdıgım düşeyara formülünü tüm sarı renkli hücrelere aynı şekilde makroda yaptırmak istiyorum. 1. sütundaki a değeri için yaptıktan sonra yine 1.sütundaki b değeri içinde (e27 hücresinde örnek formülde yazdıgım gibi) tekrar ettirmek istiyorum.
Bu konuda yardımcı olursanız memnun olurum.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub AraBulYaz()
    
    Dim s1  As Worksheet, _
        s2  As Worksheet, _
        Rng As Range, _
        Hcr As Range, _
        c   As Range, _
        Sat As Long, _
        Ara As String
        
    Set s1 = Sheets("x")
    Set s2 = Sheets("aranacak tablo")
    
    Sat = s1.Cells(Rows.Count, "A").End(3).Row
    
    Set Rng = s1.Range("E9:GO" & Sat)
    Rng.ClearContents
    
    For Each Hcr In Rng
        If Hcr.Interior.ColorIndex = 6 Then
            Ara = Cells(6, Hcr.Column) & "/" & Cells(Hcr.Row, "A")
            Set c = s2.Range("F:F").Find(Ara, LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then Hcr = s2.Cells(c.Row, "G")
        End If
    Next Hcr
    
    MsgBox "Arama Tamamlanmıştır....", vbInformation, "Excel.web.tr"
    
End Sub

 

[serhatyrdmc]

ilgi alakanız için teşekkür ederim,iyi çalışmalar

 

[Necdet]

ilgi alakanız için teşekkür ederim,iyi çalışmalar

ilgi = alaka

Daha ne deyim ki?

 

[serhatyrdmc]

ilgi = alaka

Daha ne deyim ki?

Bu yaklaşıma ben ne diyeyim ? keşke sadece teşekküre odaklanabilseymişsiniz,tek derdiniz ilgi =alaka olsun.