Macro kopieren,plakken in eerstvolgende lege rij in de tabel

Maurice1992 · 30 mei 2016

Goedemiddag,

Ik heb onderstaande macro opgenomen, maar krijg het niet voor elkaar om range ("Q3:Q9") te kopiëren in de eerstvolgende lege rij in de tabel.

Wanneer ik op de knop druk, blijft die in range ("G3") kopiëren.

Wie kan mij hiermee helpen

Sub Boekingen()
'
' Boekingen Macro
'
'
Range("Q3:Q9").Select
Selection.Copy
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

End Sub

Peter B · 30 mei 2016

Een voorbeeldbestandje helpt altijd. Met deze macro selecteer je steeds cel G3 (regel Range("G3").Select). Dus dat het zo werkt is logisch. Om de laatste lege regel te vinden kun je dit vervangen door

Code:

Cells(Cells(ws.Rows.Count, "G").End(xlUp).Row, "G").Offset(1, 0).Select

Deze code vindt de laatst gebruikte cel in kolom "G" (Cells(ws.Rows.Count, "G").End(xlUp).Row), telt hier 1 regel bij (Offset(1, 0) en selecteert dan de bijbehorende cel in kolom G.

Overigens is het beter om select zoveel mogelijk te voorkomen. Je kunt bv. de volgende code vervangen:

Code:

Range("Q3:Q9").Select
Selection.Copy

door

Code:

Range("Q3:Q9").Copy

Succes!

ExcelAmateur · 30 mei 2016

Test dit eens.

Code:

Sub Boekingen()
  Nr = Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Row
  Range("Q3:Q9").Copy
  Range("G" & Nr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=True
End Sub

Macro kopieren,plakken in eerstvolgende lege rij in de tabel

Maurice1992

Nieuwe gebruiker

Peter B

Gebruiker

ExcelAmateur

Terugkerende gebruiker

Nieuwste berichten

Wij waarderen jouw privacy