Kopieren naar ander werkblad

[don42]

Beste allemaal,

is het mogelijk om bv 4 cellen te kopieren (bv cel A12 ,B7 ,C7 en j3)
dit is dan een datum , factuur nummer, naam klant, bedrag.
uit de werkmap rekening
en deze dan te plakken in een andere werkmap (overzicht2016) blad overzicht
en die gekopieerde cellen dan keurig op de eerste lege rij zetten

Kan iemand mij hier mee op weg helpen?
Don

 

[VenA]

Bv zo

Sub VenA()
With Sheets("rekening")
    Sheets("overzicht2016").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = Array(.[A12], .[B7], [C7], .[J3])
End With
End Sub

 

[don42]

hoi

Ik heb dit

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i As Long
i = Sheets("blad2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3) = Array([g19], [h20], [j20])
Application.ScreenUpdating = True
End Sub

hier lukt het mij mee de waarde uit de voorbeeld cellen te kopieren naar blad 2 van het zelfde bestand
maar nu die gegevens naar Blad1 van een andere werkmap

 

[HSV]

Bv.

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False
workbooks.open "c:\users\don42\documents\map1.xlsx"
  with activeworkbook
   .Sheets("blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3) = Array(cdate([g19]), [h20], [j20])
   .close 1
  end with

End Sub