Codes samenvoegen

[JanOdb]

Weeral een nieuwe vraag. Ik heb dit:

Range("I2") = Range("I2") + Range("B5").Value

Range("I5") = Range("I5") + Range("B7").Value

Range("H13") = Range("H13") + Range("C13").Value
Range("H14") = Range("H14") + Range("C14").Value
Range("H15") = Range("H15") + Range("C15").Value

Range("H17") = Range("H17") + Range("C17").Value
Range("H18") = Range("H18") + Range("C18").Value
Range("H19") = Range("H19") + Range("C19").Value
Range("H20") = Range("H20") + Range("C20").Value
Range("H21") = Range("H21") + Range("C21").Value

Range("H23") = Range("H23") + Range("C23").Value
Range("H24") = Range("H24") + Range("C24").Value

Range("H26") = Range("H26") + Range("C26").Value
Range("H27") = Range("H27") + Range("C27").Value
Range("H28") = Range("H28") + Range("C28").Value

Range("H30") = Range("H30") + Range("C30").Value
Range("H31") = Range("H31") + Range("C31").Value
Range("H32") = Range("H32") + Range("C32").Value
Range("H33") = Range("H33") + Range("C33").Value
Range("H34") = Range("H34") + Range("C34").Value
Range("H35") = Range("H35") + Range("C35").Value
Range("H36") = Range("H36") + Range("C36").Value
Range("H37") = Range("H37") + Range("C37").Value
Range("H38") = Range("H38") + Range("C38").Value
Range("H39") = Range("H39") + Range("C39").Value
Range("H40") = Range("H40") + Range("C40").Value
Range("H41") = Range("H41") + Range("C41").Value
Range("H42") = Range("H42") + Range("C42").Value
Range("H43") = Range("H43") + Range("C43").Value
Range("H44") = Range("H44") + Range("C44").Value
Range("H45") = Range("H45") + Range("C45").Value
Range("H46") = Range("H46") + Range("C46").Value
Range("H47") = Range("H47") + Range("C47").Value
Range("H48") = Range("H48") + Range("C48").Value
Range("H49") = Range("H49") + Range("C49").Value

(de lege regels zijn om het voor mezelf duidelijk te houden)

Dit werkt uiteraard, maar is het niet mogelijk om al deze regels samen te voegen tot één code. Het is niet noodzakelijk, maar wel 'mooier'.

 

[Haije]

Om je op weg te helpen: dit

Range("H30") = Range("H30") + Range("C30").Value
Range("H31") = Range("H31") + Range("C31").Value
Range("H32") = Range("H32") + Range("C32").Value
Range("H33") = Range("H33") + Range("C33").Value
Range("H34") = Range("H34") + Range("C34").Value
Range("H35") = Range("H35") + Range("C35").Value
Range("H36") = Range("H36") + Range("C36").Value
Range("H37") = Range("H37") + Range("C37").Value
Range("H38") = Range("H38") + Range("C38").Value
Range("H39") = Range("H39") + Range("C39").Value
Range("H40") = Range("H40") + Range("C40").Value
Range("H41") = Range("H41") + Range("C41").Value
Range("H42") = Range("H42") + Range("C42").Value
Range("H43") = Range("H43") + Range("C43").Value
Range("H44") = Range("H44") + Range("C44").Value
Range("H45") = Range("H45") + Range("C45").Value
Range("H46") = Range("H46") + Range("C46").Value
Range("H47") = Range("H47") + Range("C47").Value
Range("H48") = Range("H48") + Range("C48").Value
Range("H49") = Range("H49") + Range("C49").Value

kun je vervangen door:

for t= 30 to 49
Range("H" & t) = Range("H" & t) + Range("C" & t)
next t

 

[JanOdb]

Heb het door. Bedankt.

 

[snb]

of door

Sub M_snb()
  [H30:H49]=[index(H30:H49+C30:C49,)]
End Sub

 

[JanOdb]

De code van Haije is me duidelijk, die van snb ben ik nog aan het uitpuzzelen. Maar het belangrijkste is dat mijn vraag is opgelost. Dank allen.