Met Macro regels selecteren

[youdeni]

Beste mensen,

Wederom een vraagje. Ik wil een aantal rijen selecteren in een Excel bestand.
De selectie begint altijd bij Rij 2. Dan zoek ik met een macro naar de eerste lege cel.
Vervolgens moet de macro rij 2 t/m de rij boven de eerste lege cel selecteren.
Ik heb onderstaande macro gemaakt (ben een beginner)

Maar ik krijg de foutmelding: Fout 13 tijdens uitvoering: Typen komen niet met elkaar overeen.

Sub RijSelect()
  'Rij als variabele declareren
Dim Row As Long
'startpunt bestand selecteren
Range("a2").Select
'In kolom A de eerste lege cel zoeken.
    Do While ActiveCell.Value <> Empty
    ActiveCell.Offset(1, 0).Select
    Loop
Row = ActiveCell.Row
'De cellen selecteren dmv de variabele en constanten
    [B]    Rows("1:Row").Select[/B]  End Sub

 

[pasan]

Range(Rows(1), Rows(1).End(xlDown)).Select

Select moet je eigenlijk vermijden, wat wil je met het bereik doen?
want in plaats van Select doe je meteen wat je eigenlijk wil doen.

 

[youdeni]

Pasan,

Super bedankt,

Ik wil de selectie kopieren en plakken? Dus ik kan meteen Copy doen toch?

Ik heb wel een ander vraagje? Waarom werkt mijn Macro niet? Wat doe ik daar fout?

 

[huijb]

@youdeni Zou je de forumregels willen volgen aangaande VBA-code i.p.v. het zeer grote lettertype te gebruiken. Lees dit dus maar eens door http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn

 

[pasan]

Rows("1:" & Row - 1).Copy

zet achter .Copy meteen het bereik neer waar je het wil plakken

 

[youdeni]

@youdeni Zou je de forumregels willen volgen aangaande VBA-code i.p.v. het zeer grote lettertype te gebruiken. Lees dit dus maar eens door http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn

Excuus

 

[youdeni]

Rows("1:" & Row - 1).Copy

Thanks