Soru Makro ile sutundaki bir hüçreye diğer hüçrelerin toplamı.

[seryapı]

Merhaba arkadaşlar.
Ben yapmaya çalıştığım excel makro çalışmasında hüçrelerin toplamını alamadım, nekadar uğraştımsa sonuç vermedi hata çıkardı hesaplayamadım.
Yapmaya çalıştığım ve eklediğim deneme excel dosyasında sarı ile işaretlediğim hüçrelerin üzerindeki aynı sutunda ki hüçrelerin toplamını almak istiyorum .Bu konuda yardımlarınızı bekliyorum.
Yazmaya çalıştığım makro modülünün içeriesindeki çalışma dökümanını buraya kopyaladım. .Yardımlarınızı bekliyorum hepinize selamlar ve saygılar.

Yapmaya çalıştığım modül 14 içeriği :

Sub DEMİR_AĞIRLIKLARI_HESABI()

Dim s1 As Worksheet, satır, i

Set s1 = ActiveSheet

ActiveSheet.Select

DDD = 0: EEE = 0: FFF = 0: GGG = 0: HHH = 0: III = 0: JJJ = 0: KKK = 0: LLL = 0
MMM = 0: NNN = 0: OOO = 0: PPP = 0


i = 8

1 If s1.Cells(i, C) <> " TOPLAMLAR = " Then

DDD = DDD + s1.Cells(i, D)
EEE = EEE + s1.Cells(i, E)
FFF = FFF + s1.Cells(i, F)
GGG = GGG + s1.Cells(i, G)
HHH = HHH + s1.Cells(i, H)
III = III + s1.Cells(i, i)
JJJ = JJJ + s1.Cells(i, J)
KKK = KKK + s1.Cells(i, K)
LLL = LLL + s1.Cells(i, L)
MMM = MMM + s1.Cells(i, M)
NNN = NNN + s1.Cells(i, N)
OOO = OOO + s1.Cells(i, O)
PPP = PPP + s1.Cells(i, P)
QQQ = QQQ + s1.Cells(i, Q)
SSS = SSS + s1.Cells(i, S)
UUU = UUU + s1.Cells(i, U)

End If

i = i + 1 : GoTo 1

Else

s1.Cells(i, D) = DDD
s1.Cells(i, E) = EEE
s1.Cells(i, F) = FFF
s1.Cells(i, G) = GGG
s1.Cells(i, H) = HHH
s1.Cells(i, i) = III
s1.Cells(i, J) = JJJ
s1.Cells(i, K) = KKK
s1.Cells(i, L) = LLL
s1.Cells(i, M) = MMM
s1.Cells(i, N) = NNN
s1.Cells(i, O) = OOO
s1.Cells(i, P) = PPP
s1.Cells(i, Q) = QQQ
s1.Cells(i, S) = SSS
s1.Cells(i, U) = UUU

End If

End Sub

 

[YUSUF44]

Cells(i,D) ve buna benzeyen diğer kodlardan sütun harfini tırnak içinde yazmalısınız:

Cells(i,"D")

Gibi.

Bir de C sütunundaki ifade aynen makroda yazdığınız şekilde olmalı, yani tırnak içindeki tüm ifade (baştaki ve sondaki boşluklar dahil).

 

[YUSUF44]

Bir de ortadaki End if satırını iptal edip deneyin.

 

[seryapı]

Sayın Yusuf44.
Göstrmiş olduğunuz ilgi ve desteğe çok teşekkür ederim.
Yapmış olduğunuz açıklamalar ve düzenleme şekillerini uyguladığımda hatalar giderildi ve proğram sorunsuz çalıştı.
Yardımlarınız için teşekkür eder, saygılarımı sunarım.