verwijzing naar Active.Row

[jan2007]

Geachte formum,

Ik leer steeds meer, maar weet nog niet genoeg; daarom heb ik weer even jullie gewaardeerde hulp nodig:

In onderstaande coderegel wel ik op de plaats "R[-10]" verwijzen naar de active rij. Deze active rij is opgeslagen in "rij = ActiveCell.Row"

ActiveCell = "=sum(R[-22]C[-3]:R[-10]C[-3])"

Hoe doe ik dat?

mvrgr

Jan2007

 

[Wigi]

Waarom wil je dat? Dit is toch al een relatieve verwijzing? Ik begrijp het niet goed denk ik.

 

[jan2007]

Waarom wil je dat? Dit is toch al een relatieve verwijzing? Ik begrijp het niet goed denk ik.

Dag Wigi,

Misschien was de vraagstelling niet geheel duidelijk. De code is als volgt:

Range("E6").Select
dezeplaats:
If ActiveCell = "5000" Then
ActiveCell.Offset(1, 0).Select
GoTo dezeplaats
Else
rij = ActiveCell.Row
Range("M28").Select
ActiveCell = "=sum(R[-22]C[-3]:R[-10]C[-3])"

De rij-aanduiding R[-10] in de formule =sum... enz, zou moeten verwijzen naar de actieve rij die is opgeslagen in rij = ActiveCell.Row

mvgr

jan2007

 

[Wigi]

Is het dit?

Sub zetformule()
    Dim rij As Long
    rij = 6
    Do Until Range("E" & rij) = 5000
        rij = rij + 1
    Loop
    Range("M28") = "=sum(R[-22]C[-3]:R[rij-28]C[-3])"
End Sub

Wigi

 

[jan2007]

Is het dit?

Sub zetformule()
    Dim rij As Long
    rij = 6
    Do Until Range("E" & rij) = 5000
        rij = rij + 1
    Loop
    Range("M28") = "=sum(R[-22]C[-3]:R[rij-28]C[-3])"
End Sub

Wigi

Sorry, Wigi,

Nee, jouw laatste code-regel geeft een foutmelding.

mvrgr

Jan2007

 

[Wigi]

Welke cellen moeten nu juist opgeteld worden?

Van J6 tot de cel met rijnummer "rij" en kolomletter J?

Klopt dit?

 

[jan2007]

Welke cellen moeten nu juist opgeteld worden?

Van J6 tot de cel met rijnummer "rij" en kolomletter J?

Klopt dit?

Goedemorgen Wigi,

Ja dat klopt.


mvrgr

Jan2007

 

[Wigi]

Sub zetformule()
    Dim rij As Long
    rij = 6
    Do Until Range("E" & rij) = 5000
        rij = rij + 1
    Loop
    Range("M28").Formula = "=SUM(J6:J" & rij & ")"
End Sub

Wigi

 

[jan2007]

Sub zetformule()
    Dim rij As Long
    rij = 6
    Do Until Range("E" & rij) = 5000
        rij = rij + 1
    Loop
    Range("M28").Formula = "=SUM(J6:J" & rij & ")"
End Sub

Wigi

Bedankt, het werkt nu zoals ik graag wil.
(Ik begrijp overigens niet waarom de formule met de relatieve verwijzing een foutmelding gaf)

Mvrgr
Jan2007

 

[Wigi]

Bedankt, het werkt nu zoals ik graag wil.
(Ik begrijp overigens niet waarom de formule met de relatieve verwijzing een foutmelding gaf)

Er ontbraken nog de nodige " in de buurt van de variabele rij. De andere methode is beter volgens mij.

Wigi

 

[jan2007]

Er ontbraken nog de nodige " in de buurt van de variabele rij. De andere methode is beter volgens mij.

Wigi

Ben ik mee eens; nogmaals bedankt voor je hulp.

mvrgr

Jan2007

 

[Wigi]

Zet de vraag op opgelost aub.