VBA probleempje

[Masjimo]

Hoi,

Ik probeer een macro te maken die een waarde uit een werkblad kopieert en hem in een tweede werkblad opslaat.

Daarvoor heb ik de volgende VBA opgenomen;

Sub MaandKopie()
'
' MaandKopie Macro
'
Range("J4").Select
Selection.Copy
Sheets("Historie").Select
Range("A4").Select
Application.CutCopyMode = False
Selection.End(xlDown).Select
Selection.down Dit gaat dus niet.......
ActiveSheet.Paste
End Sub

Ik zou dus op het tweede werkblad in range J4 m'n cursor willen plaatsen die het einde van de kolom zoekt.
Eenmaal op het einde van de kolom moet nog een stap gezet worden naar de eerst volgende lege cel......

Dat laatste stapje lukt dus niet, wat doe ik verkeerd?????

Alvast bedankt!!

Henk

 

[snorretje]

heb je dit al eens gelezen?

http://handleiding.helpmij.nl/index.php?action=detail&id=498

 

[Cobbe]

Ik zou DIT eerst lezen:
Code-tags gebruiken:
http://www.worksheet.nl/forumexcel/...ontwikkelingen/78242-code-tags-gebruiken.html

 

[Cobbe]

Trouwens dit is voldoende om dat te doen wat je aangeeft:

Sub MaandKopie()
 '
 ' MaandKopie Macro
 '
 With Sheets("Historie")
  Range("J4").Copy .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
 End With
End Sub

 

[Roncancio]

Op 1 regel.

Sub MaandKopie()
Sheets("Historie").Range("A4").End(xlDown).Offset(1, 0).Value = Range("J4").Value
End Sub

Met vriendelijke groet,


Roncancio