• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

formulu macro ile yapmak.

Katılım
17 Mart 2009
Mesajlar
102
Excel Vers. ve Dili
2013 english.
merhaba arkadaslar. ekte derdimi anlatmaya calistim. umarim yardimci olursunuz.

simdiden cok tesekkur ediyorum.
 

Ekli dosyalar

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

merhaba mustafa bey

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

yeliz
 
Geri
Üst