Toplama işlemi

[sakoz]

Merhabalar ,

Ekteki dosyadaki işlemler konusunda yardımcı olabilirmisiniz. Dosyada açıklayıcı bilgi mevcuttur.Fonksiyon veya makro ile çözüm bulabilirmiyiz ?


İlgilenen herkese şimdiden teşekkürler...

 

[efturgut]

dosyaya formülleri yazarak isteğinizi gerçekleştirdim.

 

[sakoz]

Sayın Efturgut ilginize teşekkür ederim fakat bu şekilde olmayacak.Çünkü yeni ay icin 3 sütun eklendiği zaman bu sütunlarında adlarını yazdığınız kısma yazmak zorunda kalıcaz...

Bizim istedigimiz var olanları toplayıp , yeni ay icin acılan 3 sütun bilgisinide otomatik olarak hesaplamaya katmasıdır.

Yinede cok tesekkür ederim.

 

[halit3]

bu kodu denermisiniz

Sub aktar()
sut = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("F2:IV2")) + 5
For i = 1 To sut
yer3 = Worksheets(ActiveSheet.Name).Cells(65536, i).End(xlUp).Row
If deg2 > yer3 Then
deg2 = deg2
Else
deg2 = yer3
End If
Worksheets(ActiveSheet.Name).Cells(i + 2, sut - 2).Value = ""
Worksheets(ActiveSheet.Name).Cells(i + 2, sut - 1).Value = ""
Worksheets(ActiveSheet.Name).Cells(i + 2, sut).Value = ""
Next i
For j = 3 To deg2
deger1 = 0
deger2 = 0
deger3 = 0
For n = 6 To sut
deger1 = deger1 + Worksheets(ActiveSheet.Name).Cells(j, n).Value
deger2 = deger2 + Worksheets(ActiveSheet.Name).Cells(j, n + 1).Value
deger3 = deger3 + Worksheets(ActiveSheet.Name).Cells(j, n + 2).Value
n = n + 2
Next n
Worksheets(ActiveSheet.Name).Cells(j, sut - 2).Value = deger1
Worksheets(ActiveSheet.Name).Cells(j, sut - 1).Value = deger2
Worksheets(ActiveSheet.Name).Cells(j, sut).Value = deger3
Next j
End Sub

 

[sakoz]

Halit3 Bey,

Çok teşekkür ederim.Verdiğiniz kod çalışıyor. Yalnız makroyu arka arkaya çalıştırdığım zaman yanlış toplama yapıyor.
Örnegin ; makroyu ilk çalıştırdığım zaman rakamlar 1125 827 3714 olarak veriyor.Doğru topluyor.Fakat hiçbirşeyi değiştirmeden tekrar makroyu çalıştırınca gelen rakamlar 2250 1654 7428. Normalde rakamları değiştirmemesi gerekiyor.
İlginize tekrar teşekkür ederim.
Saygılar.

 

[halit3]

yukarıdaki kodu yeniden düzelttim

 

[sakoz]

Halit Bey,

Çok teşekkür ederim.Ellerinize ve emeginize saglık.

 

[halit3]

rica ederim iyi günler