Thread: is this vba code correct or is there a more simple way to do this ?
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Jean-Pierre D via OfficeKB.com Jean-Pierre D via OfficeKB.com is offline
external usenet poster
  
Posts: 31
Default is this vba code correct or is there a more simple way to do this ?
Hi,

I'am a novice on vba programming and constructed this code:

Sheets("staffelberekening").Range("I27") = Application.Sum(Sheets
("toekomst_oud").Columns("P:P")) + Range("D12") + Range("D13")
Sheets("staffelberekening").Range("I28") = Application.Sum(Sheets
("toekomst_oud").Columns("AB:AB")) + Range("D12") + Range("D13")
Sheets("staffelberekening").Range("I29") = Application.Sum(Sheets
("toekomst_oud").Columns("AF:AF")) + Range("D12") + Range("D13")
Sheets("staffelberekening").Range("I30") = Application.Sum(Sheets
("toekomst_oud").Columns("AJ:AJ")) + Range("D12") + Range("D13")
Sheets("staffelberekening").Range("I31") = Application.Sum(Sheets
("toekomst_oud").Columns("AN:AN")) + Range("D12") + Range("D13")
Sheets("staffelberekening").Range("I32") = Application.Sum(Sheets
("toekomst_oud").Columns("AR:AR")) + Range("D12") + Range("D13")
Sheets("staffelberekening").Range("I33") = Application.Sum(Sheets
("toekomst_oud").Columns("AV:AV")) + Range("D12") + Range("D13")

This works but it seems cumbersome. Is this the correct way to do this or....
Thanks,
Jean-Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200508/1
Reply With QuoteReply With Quote