topla

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodu epeyce kurcaladım ama çalıştıramadım. Yapmak istediğim satır satır döngü ile AB:AD aralığını toplayarak AL sütununa yazdırmak. Kodun neresi hatalı merak ediyorum.

For a = 21 To 200
Cells(a, "AL") = WorksheetFunction.Sum(Range("AB:AD" & a))
Next

 

[Huseyinkis]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodu epeyce kurcaladım ama çalıştıramadım. Yapmak istediğim satır satır döngü ile AB:AD aralığını toplayarak AL sütununa yazdırmak. Kodun neresi hatalı merak ediyorum.

For a = 21 To 200
Cells(a, "AL") = WorksheetFunction.Sum(Range("AB:AD" & a))
Next

bu şekilde denermisiniz.

For a = 21 To 200
Cells(a, "AL") = WorksheetFunction.Sum(Range("AB" & a &":AD" & a))
Next

 

[excellcan]

bu şekilde denermisiniz.

For a = 21 To 200
Cells(a, "AL") = WorksheetFunction.Sum(Range("AB" & a &":AD" & a))
Next

Hocam bir virgül , bir tırnak işareti yüzünden epeyce uğraştığım zamanlar olmuştu. Ama burda epeyce unutmuşum. Emeğinize yüreğinize sağlık. Teşekkürler.