Cell (Area) toevoegen dmv knop gelinked aan Macro

[NewVBAUser]

Hallo Allen,

Hetvolgende heb ik tot nu toe gedaan:
- Ik heb een macro opgenomen die een bepaald gebied met cells (zie voorbeeld hieronder) kopieert en dan daaronder in hetzelfde worksheet plakt
- Nu ik op het knopje druk waaraan ik onderstaande macro heb gelinked, kopieert hij en plakt hij telkens hetzelfde op het geselecteerde stuk.

En nu mijn vragen:
- Hoe kan ik ervoor zorgen dat ik een geselecteerde gebied herhaaldelijk onder mekaar kan krijgen? Dus als ik 3 keer op het knopje druk, 3 keer hetzelfde daaronder krijg?
- Ik weet dat ik een geselecteerde gebied (vb range "A1:E6" 1 naam kan geven, bv Group), zou ik in mijn code kunnen vertellen dat ik constant group onder de laatste regel toegevoegd wil hebben?

Ik hoop dat jullie mij als nieuweling kunnen helpen.

Bvd,

Grt,

Sander

[code}

Sub vraag()
'
Range("A1:E6").Select
Selection.Copy
Range("A8").Select
ActiveSheet.Paste
End Sub

[einde code]

 

[Hoornvan]

NewVBAUser,

Antwoord op je vraag heb ik niet maar de code die je nu heb kan korter.

Sub vraag()
    Range("A1:E6").Copy Range("A8")
End Sub

 

[A4A]

Hieronder de oplossing om telkens de cellen A1:E6 te kopiëren na de laatste regel.

Hier moet je dus kijken naar de gebruikte regels (usedrange.rows) en daar dan 1 bij optellen.

Cells(ActiveSheet.UsedRange.Rows.Count + 1,1) betekend dus dat hij kopieërt naar de laatst gebruikte regel (row) + 1 en de kolom A (1).

Sub vraag()

Range("A1:E6").Copy (Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1))

End Sub

Met vriendelijke groet,

René van der Drift
Applications 4 Applications
http://www.applications4applications.nl

 

[snb]

Of algemener/robuuster

Sub vraag()
  [A1:E6].Copy Cells(Rows.Count ,1).end(xlup).offset(1)
End Sub