Range selecteren in vba

[Scallebe]

Beste ontwikkelaars,

Hoe kan ik volgende Range selecteren :

vanaf de cellen B6 : D6 tot en met de laatste rij met gegevens.

Ik heb eigenlijk de Range B6 : D36 nodig maar er zij niet altijd 36 rijen.


Thanks

Greetz
Pascal

 

[Gijsbert1]

Selecteer B6 t/m D6.
Daarna toetscombinatie: Ctrl+Shift+pijltje-naar-beneden.

 

[Scallebe]

Gijsbert,

Sorry, mijn fout...

Ik heb de VBA code nodig...

Toch bedankt ...

Greetz

Pascal

 

[VenA]

Neem een macro op.

 

[Scallebe]

VenA,

Bedank voor de reactIe

Dit is het resultaat van de opgenomen Macro...

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B6:D36").Select
End Sub

Een eenvoudige selectie dat ken ik, maar ik weet dat er ook een manier is om van cel B6 : D6 en zo tot de laatste rij een selectie te maken maar ik weet niet meer hoe

Thanks

Pascal

 

[gast0660]

Pascal,
Je moet Select en Activate vermijden,het vertraagt je code en is zelden nodig.

Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Range("B6:D" & Lastrow).Select

 

[Scallebe]

gast0660,

Bedankt

Dit is precies wat ik zoek...

Tot de volgende

Greetz

Pascal

 

[VenA]

MsgBox Range("B6:D" & Cells(Rows.Count, 2).End(xlUp).Row).Address
MsgBox Cells(6, 2).CurrentRegion.Address

 

[jkpieterse]

Als je nou de macro met relatieve verwijzingen had opgenomen had je dit gekregen:

    Range(Selection, Selection.End(xlDown)).Select