Null hücreleri toplattırmak

[gkhn64]

Merhaba arkadaşlar ekli dosyada bulunan değerlerden sevk numarası bazında toplam tutar almak istiyorum fakat olmuyor.(sonuç olarak a nın karşısına bütün a değerlerinin toplamı,b'ye b gibi)
Yardımcı olabilecek arkadaşlar çıkar ise memnun olurum teşekkürler.

 

[İhsan Tank]

merhaba
dosyanızı 2003 formatında yüklermisiniz

 

[Korhan Ayhan]

Selamlar,

Bütün satırlara ilgili sevk numaralarını girerseniz toplamlarını rahatlıkla alabilirsiniz.

 

[gkhn64]

merhaba
dosyanızı 2003 formatında yüklermisiniz

merhaba İhsan bey;dosyayı istediğniz şekilde ekledim.

 

[gkhn64]

Selamlar,

Bütün satırlara ilgili sevk numaralarını girerseniz toplamlarını rahatlıkla alabilirsiniz.

Korhan bey; bu örnek olarak hazırlanmış bir dosyadır. Gerçek dosyanın satır sayısı baya var yani. o yüzden hepsini elle yapmak çok zor görünüyor.

 

[Serdar SELEN]

Merhaba,

Toplam aldırmak istediğiniz a,b,c nerede dosyada öyle bir veri göremiyorum.

 

[gkhn64]

Merhaba,

Toplam aldırmak istediğiniz a,b,c nerede dosyada öyle bir veri göremiyorum.

pardon sevk no altında yazan değerler 1-2-3 gibi
sonradan güncellemeiştim doyayı o yüzden yanlış oldu

 

[Serdar SELEN]

Merhaba,

Dosyanız ektedir.

Kolay gelsin.

 

[gkhn64]

Merhaba,

Dosyanız ektedir.

Kolay gelsin.

Serdar bey teşekkür ederim ama 'eğer' formulünde yazdığınız indisi her defasında güncellemem gerekecek yani her sevk no için formüllü güncellemem gerekecek. güncellemeye gerek kalmadan nasıl yapabiliriz??

 

[halit3]

aradığınız böyle birşeymiydi

Sub Aktar()
Worksheets(ActiveSheet.Name).Columns("D").ClearContents
sat = 2
For i = 2 To Worksheets(ActiveSheet.Name).[b65536].End(3).Row + 1
deg1 = 0
If Worksheets(ActiveSheet.Name).Cells(i, 1).Value > 0 Then
sut = i
For j = sat To sut
deg1 = deg1 + CDbl(Worksheets(ActiveSheet.Name).Cells(j, 3).Value)
Next j
Worksheets(ActiveSheet.Name).Cells(sat, 4).Value = deg1
sat = i
End If
Next i
deg1 = 0
For j = sat To Worksheets(ActiveSheet.Name).[b65536].End(3).Row + 1
deg1 = deg1 + CDbl(Worksheets(ActiveSheet.Name).Cells(j, 3).Value)
Next j
Worksheets(ActiveSheet.Name).Cells(sat, 4).Value = deg1
MsgBox ("işlem tamam")
End Sub

 

[gkhn64]

Serdar bey, Halit bey emekkleriniz için çok teşekkür ediyorum.

 

[halit3]

Serdar bey, Halit bey emekkleriniz için çok teşekkür ediyorum.

iyi çalışmalar