makro op bereik toepassen

[dirkc]

Beste,

Ik heb me al zotgezocht en kom er niet uit.

Ik wil volgende macro'tje doortrekken tot laatst ingevulde cel in kolom a :

Range("b5").Value = Range("a5") + Range("b5").Value

Ik doe dus b5=b5+a5 dus de waarde van a5 optellen bij de (reeds ingevulde waarde) van b5

Dit regeltje werkt, maar nu wil ik zelfde doen in b6,b7,b8,.....tot waar in kolom a laatste waarde staat

Ik dacht in de richting van DIM-toestanden...of is het simpeler?..;

 

[edmoor]

Als je dat macrootje doortrekt heb je er kennelijk een formule van gemaakt.
Die kan alleen een waarde terug geven aan de cel waarin hij staat.
Je kan met een ALS uiteraard controleren of een andere cel is gevuld ja of nee.

Plaats anders een voorbeeld documentje waarin ook je macro aanwezig is.

 

[VenA]

bv

Sub VenA()
  lr = Cells(Rows.Count, 1).End(xlUp).Row
  Names.Add "A", Range("A5:A" & lr)
  Names.Add "B", Range("B5:B" & lr)
  [B] = [A+B]
End Sub

 

[dirkc]

Code van vena werkt perfect

Het omvat eveneens mijn formule ¨ = [A+B]
zonder dat ik ergens nog de regel "Range("b5").Value = Range("a5") + Range("b5").Value" moet gebruiken...

is dus simpeler als ik dacht...


Alweer een vraag opgelost
Dank aan de helpers

 

[dirkc]

nog een snelle vraag : wat als mijn getal van "a" op blad1 staat en "b" op blad2?

Names.Add "A", Range("A5:A" & lr)
Names.Add "B", Range("B5:B" & lr)

 

[VenA]

Dan moet je verwijzen naar het het juiste object. Iets van blad1.range() en blad2.range()

 

[HSV]

Of:

 blad2.Range("A5:A" & lr).name= "A"

 

[dirkc]

alweer een probleem opgelost
bedankt aan de helpers