İki Sütundaki Verileri Karşılaştırıp Yan Sütunlarındaki Sayıların Farkını Almak?

[netsynter]

Merhabalar, muhtemelen aramayı beceremedim ya da derdimi arama kısmına anlatamadım. Sorunum 5 sütun düşünün A sütununda aratmak istediğim verileri içeren değerler B sütununda A sütunundaki değerin miktarları C sütununda karşılaştırmak istediğim değerler D sütununda da C sütununa ait miktarlar var. E sütununda A sütunundaki verinin B sütunundaki miktarını C sütunundaki aynı verinin D sütunundaki miktarıyla matematiksel farkını yazdırmak istiyorum. Yani A1 de "Ali" yazsın B1 de "3" C sütununda "Ali" diye arayıp atıyorum C5 te bulduysa D5 teki miktarı alıp B1-D5 yaparak E1 e yazsın. Mümkün müdür?

 

[netsynter]

Aşağıdaki şekilde makro ile hallettim fakat daha pratik bir yöntem var mıdır? Formülle yapılabilir mi?

Sub Karşılaştır()
Dim s As Integer
Dim i As Integer
Dim tarih As Date
Dim buldum As Boolean
    Sheets("Sayfa1").Select
s = 3

Do While (Cells(s, "A") <> "")
    i = 3
    buldum = False
    Do While (Cells(i, "D") <> "" And buldum = False)
        If (Cells(i, "D") = Cells(s, "A")) Then
         Cells(s, "C") = Cells(s, "B") - Cells(i, "E")
         buldum = True
        Else
         i = i + 1
        End If
    Loop


    s = s + 1
Loop
End Sub