Kosullu Toplama

[heyo]

Merhaba arkadaslar,
VBA Acil yardima ihtiyacim var. Simdiden yardimlariniz icin tesekkür ederim.

A Stunundaki degerleri karsilastirdiktan sonra,
ayni tarih olan satirlarin D Stunundaki degerleri toplayip,
E stununda grubun en son satirina nasil yazdiririm.

Dosya sürekli degistiginden makro ile yapmak zorundayim. Bir türlü algoritmanin icinden cikamadim.



Umarim derdimi kolay anlatabilmisimdir.
Tesekkürler.

 

[Murat OSMA]

Örnek dosya ekler misiniz?

 

[Murat OSMA]

Kendim bir tablo oluşturup gerekli kodları hazırladım..
Bu kodları kullanabilirsiniz..

Sub Emre()
    Dim i%, topla#
    For i = 2 To Range("A65536").End(3).Row
        If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
            topla = topla + Cells(i, 4).Value
                Else
            Cells(i, 5).Value = topla + Cells(i, 4).Value
            topla = Empty
        End If
    Next i
    i = Empty: topla = Empty
End Sub

 

[heyo]

Murat OSMA Kardesim cok tesekkür ederim. Bir iki ekleme daha yapmam lazim, ama beni büyük bir dertten kurtardin. sabahtan berri takilip kalmistim burda.

 

[Murat OSMA]

Bitte... gute nacht