Frage : Kopien- und Pastendaten

Hallo helfen Experten,

I Notwendigkeit Experten, ein Makro zu verursachen, um Daten von Spalte C, H und J (Quellblatt) und Paste in Spalte A, C und E zu kopieren (Blatt versöhnen). Ich kopiert manuell diese Daten versöhne innen Blatt, damit Experten eine bessere Ansicht erhalten. Hoffnung-Experten konnten mir helfen, diese Eigenschaft zu verursachen.

Attached das Arbeitsbuch für Experten perusal.

Attachments:

Copypaste.xls (77 KBS)  (Akten-Art Details)  

xls

Antwort : Kopien- und Pastendaten

Vor dem Handeln der Kopienpaste diese geringfügige Änderung löscht allen Inhalt von, um geklebtes Blatt zu sein

VorButton1_Click ()
Schwaches WS als Arbeitsblatt, ds als Arbeitsblatt
Schwaches lRow als lang
Einstellen WS = ThisWorkbook.Worksheets („Quelle“)
Einstellen ds = ThisWorkbook.Worksheets („versöhnen“)
ds. Strecke (ds. Zellen (5, 1), ds. Zellen (ds.UsedRange.Rows.Count, ds.UsedRange.Columns.Count)). Freier Raum
lRow = WS. Strecke („C65536“). Ende (xlUp). Reihe
WS. Strecke („C5: C“ u. lRow). Ds kopieren. Strecke („A5“)
WS. Strecke („H6: H“ u. lRow). Ds kopieren. Strecke („C5“)
WS. Strecke („J6: J“ u. lRow). Ds kopieren. Strecke („E5“)
Enden-Unterseeboot