- Katılım
- 17 Mart 2009
- Mesajlar
- 102
- Excel Vers. ve Dili
- 2013 english.
- Altın Üyelik Bitiş Tarihi
- 28-09-2025
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Topla()
Set syf = Sheets("data")
Range("c1:c" & [a65536].End(3).Row).ClearContents
For x = 1 To [a65536].End(3).Row
For y = 2 To syf.[d65536].End(3).Row
If Cells(x, "a") = syf.Cells(y, "d") And Cells(x, "b") = syf.Cells(y, "c") Then
Cells(x, "c") = syf.Cells(y, "b") + Cells(x, "c")
End If
Next
Next
End Sub
Rica ederim.tesekkur ediyorum. leumruk bey. cok mutlu oldum