Kopieer meerdere cells en plak het naast elkaar

[dennisj]

Hallo Allemaal!

heb hier weer een uitdaging en hoop dat iemand mij hierbij kan helpen.
Ik heb een bestand dat van Blad1 informatie kopieert en vervolgens plakt in Blad 2 alleen krijg ik alle cellen niet naastelkaar (in Blad2).

Misshien iemand die mij hierbij kan helpen.

Bekijk bijlage 322003

Alvast bedankt voor de hulp!

 

[edmoor]

Je bijlage doet het niet.

 

[dennisj]

Je bijlage doet het niet.

Bij deze!
Bekijk bijlage Test1.xls

 

[SjonR]

zoiets?

Sub Copy_Click()
Application.ScreenUpdating = False
    With Sheets("Blad1")
        Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 6) = Array(.Range("A5"), .Range("B5"), .Range("C5"), .Range("D5"), .Range("A8"), .Range("B8"))
    End With
Application.ScreenUpdating = True
End Sub

 

[dennisj]

zoiets?

Sub Copy_Click()
Application.ScreenUpdating = False
    With Sheets("Blad1")
        Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 6) = Array(.Range("A5"), .Range("B5"), .Range("C5"), .Range("D5"), .Range("A8"), .Range("B8"))
    End With
Application.ScreenUpdating = True
End Sub

Helemaal top man! bedankt voor de hulp!