Vergi no eşleştirme

[igultekin2000]

iyi günler; mevcut verinin vergi nosuna göre gelen verinin vergi nosuna göre eşleştirmeyi formül ile yapıyorum kullandığım formül

=EĞER(MAK(EĞER(SAĞDAN($C$1:$C$1000;9)=SAĞDAN(F2;9);SATIR($C$1:$C$1000)))=0;"--YOK--";İNDİS($C$1:$C$1000;MAK(EĞER(SAĞDAN($C$1:$C$1000;9)=SAĞDAN(F2;9);SATIR($C$1:$C$1000)))))

bunu daha pratik olması için aynı işlemi makro ile yapabilir miyiz ?

 

[Ziynettin]

Deneyiniz..

Sub elestir()
    son = Cells(Rows.Count, 1).End(3).Row
    a = Range("A2:C" & son).Value
    Set d = CreateObject("scripting.dictionary")
        For i = 1 To UBound(a)
            krt = Right(a(i, 3), 9)
            d(krt) = krt
        Next i
        son = 0
    son = Cells(Rows.Count, 6).End(3).Row
    b = Range("F2:F" & son).Value
    ReDim c(1 To UBound(b), 1 To 1)
        For i = 1 To UBound(b)
            krt = Right(b(i, 1), 9)
            If d(krt) Then
                c(i, 1) = d(krt)
            Else
                c(i, 1) = "--YOK--"
            End If
        Next i
    [E2].Resize(UBound(b)) = c
    MsgBox "İşlem tamam.", vbInformation
End Sub

 

[igultekin2000]

Deneyiniz..

Formülü uyguladım ama sonuç ilk satır --YOK-- ikinci satır eşleşiyor ve üçüncü satır boş oluyor.

 

[Ziynettin]

son = Cells(Rows.Count, 5).End(3).Row
Kod satırındaki kırmızı yazılı sayıyı 6 olarak değiştirin.

 

[igultekin2000]

son = Cells(Rows.Count, 5).End(3).Row
Kod satırındaki kırmızı yazılı sayıyı 6 olarak değiştirin.

Teşekkürler,sorunsuz çalıştı,