excel macro plakken

[TimTech20]

Mijn vraag
ik ben opzoek naar een functie waarbij ik mijn geselecteerde selectie plak en een specifieke kolom daarvan kopiëren. (er staat in het voorbeeld D1:D28)


dit zou ik willen plakken in een eerst volgende lege kolom in een andere tabel. dit kan bijvoorbeeld op blad 2 voor de makkelijkheid



Wat ik al gevonden of geprobeerd heb
ik heb wel een macro kunnen maken waarbij ik zelf de stappen heb gedaan van plakken en de specifieke kolom kopieren maar verder ben ik niet gekomen.
deze stappen komen vaak voor bij mij dus als iemand een idee heeft graag

[ Voor 88% gewijzigd door TimTech20 op 12-03-2023 20:35 . Reden: te snel verzonden ]

[Microkid]

@TimTech20 Ik denk dat je iets te snel op enter hebt gedrukt?

[dix-neuf]

Als de namen van de bladen waarvan en waarnaar je wil kopiëren respectievelijk 'Blad1' en 'Blad2' zijn, kun je onderstaande macro gebruiken:

code:

Sub Kopieer()
Dim nc As Integer
On Error GoTo einde
Sheets("Blad1").Activate
Selection.Copy
With Sheets("Blad2")
nc = .Cells(3, .Columns.Count).End(xlToLeft).Column + 1
.Cells(3, nc).PasteSpecial xlPasteAll
End With
With Application
.CutCopyMode = False
.Goto reference:=Cells(1, 1)
End With
einde:
End Sub

[TimTech20]

erg bedankt ik ben helemaal geholpen en ik begin het nu ook wel wat beter te begrijpen

[TimTech20]

beste allen,
ik wil graag een macro maken het gaat nog steeds om het zelfde principe maar ik wil eigenlijk van te voren aangeven dat die een paar selecties kan maken met bijvoorbeeld:

code:

RangeA1 = "E3"
RangeB1 = "H3"
Set A = Range(RangeA1, Range(RangeA1).End(xlDown))
Set b = Range(RangeB1, Range(RangeB1).End(xlDown))

maar ik weet niet hoe ik dit neer zou moeten zetten zodat ik dit later met een volgende functie weer die selectie kan gebruiken. met bijvoorbeeld:

code:

A.Select

of:

code:

Union(a,b).Select

ik wil namelijk deze ranges weer gebruiken bij een andere knop die een van die ranges selecteerd en kopieerd en ook weer plakt in een bepaalde range zoals eerder al besproken.

code:

A.Select
Selection.Copy
Dim nc As Integer
On Error GoTo einde
With Sheets("Blad2")
nc = .Cells(4, .Columns.Count).End(xlToLeft).Column + 1
.Cells(4, nc).PasteSpecial xlPasteAll
End With
With Application
.CutCopyMode = False
.Goto reference:=Cells(1, 1)
End With
einde:

code:

ik hoor graag wat allemaal mogelijk is

groet Tim