Relatieve range met variabele

[sonicreflex]

Hoi!

Nu mijn eerste vraag perfect is beantwoord komt er meteen een tweede bovendrijven en wel de volgende:

Ik heb een variabele die het aantal gevulde kolommen bijhoud. Bijvoorbeeld waarde = 10 (Kolom J is de laatste gevulde kolom)

Nu will ik in rij 6 de cellen van kolom J en I mergen. Ik had gedacht het alsvolgt te kunnen fixen:

Range("R6C" & lastcol & ":R6C" & lastcol - 1).Select
Selection.Merge

Hierbij is 'lastcol' de variable die het kolomaantal bevat. Verkregen middels:

lastcol = Cells(6, Columns.Count).End(xlToLeft).Column

Helaas blijkt dit niet te werken....

Iemand die hulp kan bieden ? Alvast bedankt weer!

 

[Roncancio]

Zo kan het wel.

lastcol = Cells(6, Columns.Count).End(xlToLeft).Column
Range(Cells(6, lastcol - 1), Cells(6, lastcol)).Merge

Wellicht ten overvloede: samenvoegen van cellen kan voor problemen zorgen.

Met vriendelijke groet,


Roncancio

 

[sonicreflex]

Je bent wederom een held!

Daaruit voortvloeiend gebruik ik jouw notitie ook de range te definieren

Range(Cells(7, 5), Cells(lastrow, 5)).Select

Echter hoe kan ik twee areas selecteren (als dat kan).
In bovenstaande selecteer ik kolom E (cellen 5 t/m variabele lastrow). Kan ik hier ook bijvoorbeel ook de cellen 5 t/m lastrow van twee kolommen (bijv: E & G) selecteren ?

 

[Roncancio]

Als de macro het bereik van kolom E t/m het eind meeneemt, dan wordt m.i. de G-kolom automatisch ook gebruikt.

Hoe dan ook.
Je zou gebruik kunnen maken van Union.
Bijvoorbeeld:

LASTCOL = Cells(6, Columns.Count).End(xlToLeft).Column
R1 = "E5:" & Cells(5, LASTCOL).Address
R2 = "G3:" & Cells(3, LASTCOL).Address

Application.Union(Range(R1), Range(R2)).Interior.Color = vbBlue

De bereiken E5 t/m laatste kolom en G3 t/m laatste kolom krijgen een blauwe achtergrond.

Met vriendelijke groet,


Roncancio