type mistmach yardım

[aureliane]

Selamlar, arkadaşlar aşağıda tek satırda belirttiğim kısımda type mistmach hatası veriyor nasıl bir hata yapıyorum yol gösterebilirmisiniz.

son1 = S1.Cells(S1.Rows.Count, "c").End(3).Row
son2 = S2.Cells(S2.Rows.Count, "b").End(3).Row
son3 = s3.Cells(s3.Rows.Count, "l").End(3).Row
son4 = s4.Cells(s4.Rows.Count, "e").End(3).Row


For i = 4 To son2
S2.Range("c" & i) = wf.SumIf(s4.Range("e4:e" & son4), S2.Range("b" & i), s4.Range("ı4:ı" & son4)) + wf.SumIf(s3.Range("l5:l" & son3), S2.Range("b" & i), s3.Range("m5:m" & son3)) + wf.SumIf(S1.Range("c4:c" & son1), S2.Range("b" & i), S1.Range("g4:g" & son1))
Next i
For i = 4 To son2
S2.Range("d" & i) = wf.SumIf(s3.Range("r5:r" & son3), S2.Range("b" & i), s3.Range("t5:t" & son3)) + wf.SumIf(S1.Range("c4:c" & son1), S2.Range("b" & i), S1.Range("h4:h" & son1))
Next i

For i = 4 To son2
S2.Range("e" & i) = S2.Range("c4:c" & son2) - S2.Range("d4:d" & son2)
Next i

S2.Range("e" & i) = S2.Range("c4:c" & son2) - S2.Range("d4:d" & son2)

 

[Muzaffer Ali]

Merhaba.
Tip uyuşmazlığı hatası alıyorsunuz.

Çıkarma işlemi yapıyorsunuz. Büyük ihtimalle çıkarma işlemi yaptığınız değerlerden biri metindir.
C4 ve aşağısındaki hücreleri ayrıca D4 ve aşağısındaki hücreleri kontrol edin.

Eğer sorunu çözemezseniz dosyanızı dosya.tc gibi bir paylaşım sitesine ekleyin kontrol edelim.

 

[Korhan Ayhan]

Alternatif...

S2.Range("e" & i) = wf.Sum(S2.Range("c4:c" & son2)) - wf.Sum(S2.Range("d4:d" & son2))

 

[aureliane]

muzaffer bey ilginiz için teşekkürler, metin yoktu hücrelerde, demekki kodda yanlış varmış.
Korhan hocam elinize sağlık, vba da formül yazmayı bilemiyorum henüz. fakat yazdığımız kod tim c sütunu ve d stünunu toplayıp çıkan sonucu sabit bir şekilde e sütunundaki tüm hücrelere yazmakta, ondan öncesinde yazdığımız benzer etopla formülü öyle değil halbuki, öğrenebilmek adına da nasıl yapabiliriz diye sorsam.