VBA Copy knop met variabel einde

[Micheltje13]

Hallo,

Ik ben bezig met een knop die een selectie kopieert via macro. Deze selectie is echter de ene keer langer dan de andere keer (meer rijen). Dat betekent dat wanneer ik bijvoorbeeld cell A1:A25 doe als selectie dat hij soms groot genoeg is maar soms niet. Nu dacht ik ik geef cell A25 een naam en wanneer deze verschuift kopieert ie dus de selectie met een variabele grootte. Dit was mijn code:

Nou ik weet inmiddels hoe ik een copy knop maken echter kan ik er niet uit komen hoe ik bijvoorbeeld cell A1 pak en de cell "Einde" ik zou simpelweg denken onderstaand:

Sub Macro6()
'
' Macro6 Macro
'

'
Sheets("outputtabel").Select
Range("A1:Einde").Select
Selection.Copy
End Sub

Echter werkt dit dus niet..

Kunnen jullie me helpen hierbij?

 

[HSV]

bv. bij een aaneengesloten bereik.

cells(1).currentregion

of bij een onderbroken bereik.

range("a1:a" & cells(rows.count,1).end(xlup).row)

 

[Micheltje13]

Thanks!

 

[HSV]

Die kun je opvragen met de F1 knop van je toetsenbord in de Vba-Help.

Of je doet even:

sub macro()
cells(1).currentregion.select
msgbox cells(1).currentregion.address
end sub

 

[Micheltje13]

Yes de 2e code van je werkte. Is het nu ook mogelijk om het gekopieerde gedeelte gelijk in een nieuw mailtje te plakken met dezelfde knop?

 

[HSV]

Dat kan, maar ik weet niet precies hoe je het een en ander voor ogen hebt.
Het ligt er ook aan met welk mailprogramma je werkt.

Upload anders een voorbeeldbestand met wat er moer gebeuren.

 

[Micheltje13]

Opzich is het niet zo bijzonder. Ik wil eigenlijk gewoon dat de selectie die ie kopieert vanuit de macro plakt in een nieuwe mail in outlook. Is dit simpel in te bouwen?

 

[snb]

Plakken in Outlook is niet simpel in VBA te maken.

Maar kijk bijv. hier:

http://www.snb-vba.eu/VBA_Excelgegevens_mailen.html#L26