Aynı Fiş Numarasına aynı Kdv açıklaması yazdırma

[walabi]

Üstadlar ve forum sakinleri merhaba,

Bir konuda yardım gerekli. Ekte örnek dosya mevcut.

Yapmak istediğim şudur,

Aynı fiş numarası ile ilgili tüm hesapların yanına ilgili KDV açıklamasını yazdırmak, getirmek istiyorum. Makro ya da formül , her ikisi de olabilir.

Örneğin ekteki dosyada 03108142 numaralı fişde 4 farklı muhasebe hesabı var. Yapmak istediğim kdv hesabı olan 391 hesabın karşısındaki Hesap Adı açıklamasını ilgili fiş içindeki tüm hesapların yanına getirmek istiyorum. KDV Açıklama Sütunu adlı sütuna yani.

Teşekkürler,
Saygılar,

 

[veyselemre]

Sub test()
    With CreateObject("Scripting.Dictionary")
        For i = 2 To Cells(Rows.Count, 1).End(3).Row
            If Cells(i, 2).Value Like ("391*") Then
                .Item(Cells(i, 1).Value) = Cells(i, 3).Value
            End If
        Next i
        For i = 2 To Cells(Rows.Count, 1).End(3).Row
            If .exists(Cells(i, 1).Value) Then Cells(i, "L").Value = .Item(Cells(i, 1).Value)
        Next i
    End With
End Sub