Macro: gegevens kopiëren naar eerstvolgende lege cel in rij

[cloosen]

Bij het schrijven van een macro stuit ik op een probleempje waar ik hopelijk mee kan worden geholpen. In een aantal verschillende sheets is informatie opgenomen die dagelijks wordt gewijzigd. Een aantal van deze gegevens wil ik graag bewaren en zodoende kopiëren naar een sheet waar deze wordt opgenomen.

Nu is het de bedoeling dat deze informatie (bijv. cel A1 in sheet2) gekopieerd wordt naar de eerstvolgende lege cel in bijv. rij 3 van sheet 1. Er vast iemand die mij hiermee kan helpen?! Dank alvast!

 

[Jan van Asseldonk]

Met bijgaande code wordt de waarde uit A1 op blad2 steeds rechts toegevoegd aan regel 3 op blad1.
Plaats de code eventueel onder een knop.

Sub kopieer()
Sheets("blad2").Range("A1").Copy
Sheets("blad1").Range("A3").End(xlToRight).Offset(0, 1).PasteSpecial
End Sub

 

[cloosen]

Thnx!!

:thumb: SUPER DANKJEWEL! :thumb: