Soru Düşeyara makro hali

[nes432]

merhaba,

Düşeyara ile sayfa 1 K sütunundan bir veri alıp sayfa 2 ye B sütununa aktarmak istiyorum Sayfa 2’deki A sütunundaki veriyi Sayfa 1 A sütununda arayıp o verinin K sütununu Sayfa 2 B ye getirecek ama bunu makro ile yapmasını istiyorum. Düşeyara formülüm şu;

DÜŞEYARA(A1;Sayfa1!$A$1:$AZ$10000;11;YANLIŞ)

10000 satıra kadar verimi B sütununa bu şekilde getirecek, ya da kaç veri var otomatik bulup ona göre de yapabilir

Teşekkür ediyorum

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub arabul()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa1")
son1 = s1.Cells(Rows.Count, "A").End(3).Row
son2 = s2.Cells(Rows.Count, "A").End(3).Row
Application.ScreenUpdating = False
    For i = 1 To son1
        If WorksheetFunction.CountIf(s2.Range("A1:A" & son2), s1.Cells(i, "A")) > 0 Then
            s1.Cells(i, "B") = WorksheetFunction.VLookup(s1.Cells(i, "A"), s2.Range("A1:AZ" & son2), 11, 0)
        Else
            s1.Cells(i, "B").ClearContents
        End If
    Next
Application.ScreenUpdating = True
End Sub