Cari Hesabı Otomatik(Yardım)

[auafina47]

arkadaşlar elimdeki örnek tabloda kasaya yazılan her açıklama veya masraf vs. ilgili cari hesabına otomatik atılmasını istiyorum.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Sub CariHesap()
Dim sayfa As String
Set s1 = Sheets("2011 KASA")

For i = 2 To Worksheets.Count
Sheets(i).Range("B5:F32").ClearContents
Next

ss = Sheets("2011 KASA").Range("C65536").End(3).Row
For i = 8 To ss
sayfa = Trim(s1.Cells(i, "I").Text)
ss1 = Sheets(sayfa).Range("C65536").End(3).Row
Sheets(sayfa).Cells(ss1 + 1, "B") = s1.Cells(i, "C")
Sheets(sayfa).Cells(ss1 + 1, "D") = s1.Cells(i, "D")
Sheets(sayfa).Cells(ss1 + 1, "F") = s1.Cells(i, "E")

Sheets(sayfa).Cells(ss1 + 2, "B") = s1.Cells(i, "H")
Sheets(sayfa).Cells(ss1 + 2, "D") = s1.Cells(i, "J")
Sheets(sayfa).Cells(ss1 + 2, "E") = s1.Cells(i, "K")
Next
End Sub

 

[auafina47]

ilginiz için teşekkürler ancak yeni yazılan değer cari hesaplara girip eski tutar silinip yeni tutar geçiyor ona bakabilirmisin
yani eski ve yeni girilen tutarlar değişmeyecek

 

[auafina47]

Arkadaşlar bana yardımcı olacak kimse yokmu