Is dit voorbeeld werkend te krijgen en kan het simpeler??

[EdWel]

Sub Macro1()
Regel = 6
With Sheets("Urentotalen")
Range("C9").FormulaR1C1 = "=Totalen!R[Regel-1]C[3]" 'Moet dus Totalen!F14 copiëren
Range("C10").FormulaR1C1 = "=Totalen!R[-2+Regel]C[4]" 'Moet dus Totalen!G14 copieren
Range("C11").FormulaR1C1 = "=Totalen!R[-3+Regel]C[5]" 'Moet dus Totalen!G14 copieren
Range("C12").FormulaR1C1 = "=Totalen!R[-4+Regel]C[6]" 'Moet dus Totalen!G14 copieren
Range("C13").FormulaR1C1 = "=Totalen!R[-5+Regel]C[7]" 'Mei
Range("C14").FormulaR1C1 = "=Totalen!R[-6+Regel]C[8]" 'Jun
Range("C15").FormulaR1C1 = "=Totalen!R[-7+Regel]C[9]" 'Jul
Range("C16").FormulaR1C1 = "=Totalen!R[-8+Regel]C[10]" 'Aug
Range("C17").FormulaR1C1 = "=Totalen!R[-9+Regel]C[11]" 'Sep
Range("C18").FormulaR1C1 = "=Totalen!R[-10+Regel]C[12]" 'Okt
Range("C19").FormulaR1C1 = "=Totalen!R[-11+Regel]C[13]" 'Nov
Range("C20").FormulaR1C1 = "=Totalen!R[-12+Regel]C[14]" 'Dec
End With
End Sub

 

[svennetje]

Hoe bedoel je werkend te krijgen? Wat zou er moeten gebeuren volgens jou?

 

[Wigi]

EdWel

Ik denk dat je best wat meer aandacht besteedt aan het stellen van je vraag, anders ga je ook niet echt helpers 'overhalen' om jouw probleem op te lossen.

De commentaren achter de eerste 4 regels zijn waarschijnlijk de maanden januari tot en met april? En G14 moet H14, I14 en zo worden?

M.a.w. zonder input van jouw kant, geen deftige output van de kant van de helpers.

Wigi

 

[EdWel]

Hoe regel en kolomnummers te manipuleren met een variabele

Op 1 werkblad heb ik per 6 regels dezelfde soort info staan.
Nu wil ik met een variabele bijv. regel 24 t/m 30 in een overzicht krijgen.
Ik hoopte door bijgaand (niet werkend voorbeeld) duidelijkheid te scheppen waar ik heen wil.
Sorry voor mijn summiere uitleg, maar heb in een soort 'fake' routine geprobeerd uit te leggen waar ik heen wil.

In elk geval bedankt voor je reaktie Wigi

 

[Wigi]

Zoiets dan

Sub Macro1()
Dim Regel As Long

With Sheets("Urentotalen")
For Regel = 24 To 30

Range("C9").Offset(Regel - 24).Value = Worksheets("Totalen").Range("F14").Offset(Regel - 24).Value

Next

End With
End Sub

 

[EdWel]

Hard to explain

In Urentotalen moet steeds in de cellen C9:C20 informatie komen te staan die in Totalen eens per 6 regels de benogde informatie bevat.
Mijn idee was om in Totalen om de 6 regels drukknoppen te definieren waar de variabele Regel doogegeven zou worden aan Macro 1.
Dus druk ik in Totalen op de knop, behorende bij regel 300 t/m 306 dan zou de variabele 'Regel' 300 of zoiets moeten zijn en zou de informatie overgedragen moeten worden aan Urentotalen Range(C9:C20)
Lastig uit te leggen hoor! Ben hier voor het eerst!

 

[Wigi]

Ben hier voor het eerst!

Ah! Welkom dan hoor :thumb:

Mijn idee was om in Totalen om de 6 regels drukknoppen te definieren waar de variabele Regel doogegeven zou worden aan Macro 1.

Doe dit niet (al zou het wel kunnen werken).

Je kan gemakkelijk uitvragen in VBA waar je staat.

ActiveCell.Row geeft je bijvoorbeeld de rij van waar je cursor staat.

Maar hoe ga je in bereik C9:C20 de info zetten uit pakweg bereik A300:A306? Welke cellen komen waar terecht?

 

[EdWel]

Dus toch drukknoppen denk ik.

Als ik op Commandbutton50 zou drukken:
In Urentotalen/C9 zou info moeten komen uit Totalen/F301
In Urentotalen/C10 zou info moeten komen uit Totalen/G301
In Urentotalen/C11 zou info moeten komen uit Totalen/H301
In Urentotalen/C12 zou info moeten komen uit Totalen/I301

Als ik op Commandbutton2 zou drukken:
In Urentotalen/C9 zou info moeten komen uit Totalen/F7
In Uretotalen/C10 zou info moeten komen uit Totalen/G7
In Urentotalen/C11 zou info moeten komen uit Totalen/H7
In Urentotalen/C12 zou info moeten komen uit Totalen/I7

Dus werkblad Urentotalen dient als (printable) sjabloon.

Wederom bedankt voor reaktie !!!

 

[Wigi]

Zet je cursor op F7 of F301 en druk op een knop met daarachter deze code:

Sub Macro1()
Dim Regel As Long

With Sheets("Urentotalen")
For Regel = 1 To 4
   .Range("C9").Offset(Regel - 1).Value =ActiveCell.Offset(,Regel - 1).Value
Next

End With
End Sub

Dan is 1 knop al genoeg.

Wigi

 

[EdWel]

Thanks

Ik heb je suggestie uitgeprobeerd.
Werkt fantastisch!
Slim opgelost met de ActiveCell.Offset.
Nu ben ik waar ik wezen wil met slechts 1 drukknop.
Bedankt Wim !

 

[Wigi]

Zet de vraag nog eventjes op opgelost aub.