2 sütundaki carileri eşleştirip farkını almak

[haimow]

Arkadaşlar Merhaba,

Ekli dosyamda görebileceğiniz gibi yardım rica ettiğim durum şöyledir;

4 adet kolonda değerlerimiz bulunmakta (A,B,D,E)

A Kolonunda bulunan carilerden eğer D kolonunda da var ise
F kolonuna cari ismi ve G kolonuna =(B-E) yi getirecek.

Fonksiyon kullanarak yapmak istiyorum.

Teşekkürler

 

[veyselemre]

Sub TEST()
    Dim veri
    [g:j].ClearContents
    son = [a65536].End(3).Row
    veri = Range("A1:B" & son).Value

    ReDim Preserve veri(1 To UBound(veri), 1 To 4)
    veri(1, 3) = "İskonto"
    veri(1, 4) = "Net Tutar"

    With CreateObject("scripting.dictionary")
        .comparemode = vbTextCompare
        For i = 1 To UBound(veri)
            .Item(veri(i, 1)) = i
        Next i

        For i = 4 To [a65536].End(3).Row
            ref = Cells(i, "D")
            If .exists(ref) Then
                sira = .Item(ref)
                veri(sira, 3) = Cells(i, "E")
                veri(sira, 4) = veri(sira, 2) - veri(sira, 3)
            End If
        Next i
    End With

    [g1].Resize(UBound(veri), 4).Value = veri

End Sub

 

[haimow]

Cevabınız için teşekkürler fakat makrodan hiç anlamıyorum fonksiyon ile yapma şansımız var mıdır ?

 

[veyselemre]

Var tabi, başka arkadaşlar yardımcı olucaklardır, ben pek fonkisyonlardan anlamam.

 

[Ömer BARAN]

Merhaba.

Dosya ekte.

 

[haimow]

Ömer Bey çok teşekkürler süper bir çalışma olmuş elinize sağlık.