Kopieren von 1 Blatt vertikalen Bereich zu horizontalen Zeile Blatt 2

Question

Ich bin nach vielen Jahren wieder in VBA und habe mehr vergessen als ich mich erinnere und fragte mich, ob jemand vielleicht helfen könnte.

Ich bin auf der Suche nach Daten aus Blatt 1, bestimmte Zellen kopieren und fügen Sie es dann in die nächste leere Zeile, so dass es horizontal und nicht vertikal eingefügt wird.

Der untenstehende Code funktioniert gut, außer dass jedes Element in die nächste Zeile nach unten anstatt horizontal über die Zeile eingefügt wird, wenn das Sinn macht?

Sub AddEntry() 

Range("I11, I13, I15, I21").Copy 

Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 

End Sub 

Answer 1

Sie müssen sicher "transponieren" parameter.Not verwenden, wenn es für Excel 2003 und frühere Versionen obwohl

Sub AddEntry() 

    Range("I11, I13, I15, I21").Copy 

    Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Transpose:=True 

    Application.CutCopyMode = False  

End Sub