formulu macro ile yapmak.

Katılım
17 Mart 2009
Mesajlar
102
Excel Vers. ve Dili
2013 english.
Altın Üyelik Bitiş Tarihi
28-09-2025
merhaba arkadaslar. ekte derdimi anlatmaya calistim. umarim yardimci olursunuz.

simdiden cok tesekkur ediyorum.
 

Ekli dosyalar

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,472
Excel Vers. ve Dili
Office 2010 & 2013 tr
Merhaba,
Kod:
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
 

Ekli dosyalar

Katılım
17 Mart 2009
Mesajlar
102
Excel Vers. ve Dili
2013 english.
Altın Üyelik Bitiş Tarihi
28-09-2025
minettarim.

tesekkur ediyorum. leumruk bey. cok mutlu oldum
 
Katılım
17 Mart 2009
Mesajlar
102
Excel Vers. ve Dili
2013 english.
Altın Üyelik Bitiş Tarihi
28-09-2025
merhaba mustafa bey

calismanizi ornek dosyamda denemeye basladim. problem yasarsam ki yasarim herhalde :) yardım icin rahatsiz edecegim kusura bakmayin :)

yeliz
 
Üst