Verschillende selecties selecteren/kopieren

[Tweety1]

Ik heb onderstaande macro opgenomen.
Hoe kan ik de vaste selectie veranderen in variabele selectie (laatste cel).

Opgenomen macro

Range("A1:A5,C1:C5,E1:E5").Select

Geprobeerd:

Dim LastRow As Long
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Range("A1:A" & LastRow & ",C1:C" & LastRow & ",E1:E" & LastRow).Select

mvg

 

[VenA]

Je kan bv je range in een aparte variabele zetten.

With Sheets("blad1")
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    s = "A1:A" & LastRow & ",C1:C" & LastRow & ",E1:E" & LastRow
    .Range(s).Select
End With

 

[Tweety1]

Thanks

 

[VenA]

Ik weet niet wat je veder met de code wil maar probeer Select te vermijden.

En vergeet niet de vraag op opgelost te zetten.

 

[HSV]

Union(Range("A1:A" & LastRow), Range("C1:C" & LastRow), Range("E1:E" & LastRow)).Select

Maar je eigen werkt ook gewoon.

Range("A1:A" & LastRow & ",C1:C" & LastRow & ",E1:E" & LastRow).Select

 

[Tweety1]

Bedankt voor het meedenken