kolommen vast, rijen variabel?

[harrybrinkman]

LS,

Ik gebruik een verzamelblad om gegevens van diverse teams bij elkaar te harken. Hierbij moet ik heel veel zelfde code telkens copieeren, alleen de rijnummers wijzigen steeds. Ik gebruik daarvoor gewoon:
Range("A1:Q5").select. Ik zou het veel prettiger vinden als ik boven in de code die rijnummers kan bepalen waarna in de onderliggende code dit automatisch aangepast wordt. Een beetje als
Range("A"&rijA : "Q"&rijB) (deze code werkt uiteraard niet)

Is zoiets voor elkaar te krijgen? Ik heb voor de duidelijkheid een voorbeeldje bijgesloten

Alvast bedankt,

Harry

 

[snb]

Waarom zo moeilijk ?
Verwijder dat 'verzamel'blad.
Gebruik nooit samengevoegde cellen.

Sub M_snb()
   Blad1.Cells.UnMerge
     Columns(3).Resize(, 170).Hidden = True
     Columns(2 + 28 * (InputBox("periodenummer", "snb", 1) - 1)).Resize(, 28).Hidden = False
End Sub

 

[harrybrinkman]

Zoals ik al aangaf ben ik dat verzamelblad nodig. Ik laat dat automatisch opslaan als een apart bestand.

Ik las ergens in dit forum de optie:

Sub Test()
R = 25
Range("B" & R).Select
End Sub

Dit lijkt deels een oplossing voor mijn "probleem", echter dit is een verwijzing naar 1 cel en gebruik ik een bereik "A1:Q5" en dan krijg ik dat niet voor elkaar. Ik heb het volgende geprobeerd:

Sub Test()
R1 = 1
R2 = 5
Range("B" & R1 : "Q" & R2).Select
End Sub

Maar dat werkt niet. Wat doe ik nou fout?
(ps ik heb echt minimale VBA kennis)

 

[snb]

Je hebt de code blijkbaar niet getest ?

Gebruik code tag in dit forum !

 

[HSV]

Vraag verder niet gelezen, alleen om je op weg te helpen.

Wat zou er aan de rode tekst veranderd moeten worden?

Range("B" & [COLOR=#ff0000]R1 : "Q"[/COLOR] & R2)