Code voor selectie laatst gevulde regel c.q. bereik

[carlocarlo]

Ik gebruik onderstaande code. In plaats van .Range("A2:e92").Copy zou ik graag willen dat vanaf cel A2 tot de laatste volle regel wordt geselecteerd tot kolom E?
Wie kan mij daarmee helpen?


Private Sub CommandButton1_Click()
With Sheets("turflijst")
Evrij = .Range("A" & .Rows.Count).End(xlUp).Row + 1
With Sheets("namen")
.Range("A2:e92").Copy
Sheets("turflijst").Range("A" & Evrij).PasteSpecial Paste:=xlPasteValues
End With
End With
Application.CutCopyMode = False
End Sub

 

[JEC.]

Sub j()
With Sheets("Namen")
  .Range("A2", .Cells(Rows.Count, 1).End(xlUp)).Copy
   Sheets("turflijst").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End With
End Sub

 

[carlocarlo]

Beste JVeer, dank je door de code. Als ik de code gebruik dan wordt alleen kolom A geselecteerd en naar het volgende blad gekopieerd. Is het mogelijk om t/m kolom E mee te nemen?
Vast bedankt.

 

[VenA]

1 van de vele opties

.Range("A2", .Cells(Rows.Count, 1).End(xlUp)).resize(,5).Copy

 

[emields]

En als het enkel om de volle rijen gaat doe je het zo.

 

[carlocarlo]

Iedereen hartelijk bedankt voor de mooie oplossingen.