coba : Sub CopyPaste() Dim dataTbl As Range, dataRekap As Range, Rng As Range Dim Row As Integer, Col As Integer Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' Sheet berubah sesuai dengan data tabel sumber Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1, 0) For Row = 1 To dataTbl.Rows.Count - 1 ' karena offset(1,0) Cari = dataTbl(Row, 1) Set Rng = dataRekap.Find(Cari, LookIn:=xlValues) If Rng Is Nothing Then GoTo Lab_NextRow End If For Col = 2 To dataTbl.Columns.Count baris = Rng.Row - 1 'offset (1,0) dataRekap(baris, Col) = dataTbl(Row, Col) ' Jika pakai coding ini hanya value saja yang ke paste, maunya plus comment dataTbl(Row, Col).Copy dataRekap(baris, Col).PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Next Col Lab_NextRow: Next Row End Sub
To: belajar-excel@yahoogroups.com From: milisas...@gmail.com Date: Mon, 30 Jan 2012 14:12:32 +0700 Subject: [belajar-excel] Tanya: Bagaimana cara copy paste value plus comment saja via makro Dear All Master, Mohon bantuannya makro untuk copy paste tapi hanya value plus commentnya saja, untuk format dan lainnya tidak ikut ter-paste di cell yang dituju. Adapun koding yang sudah ada saya ambil dari Bu Haps & Pak Seno dengan sedikit modifikasi tapi masih bingung juga, berikut makronya: ==================================================================================== Sub CopyPaste() Dim dataTbl As Range, dataRekap As Range, Rng As Range Dim Row As Integer, Col As Integer Dim i As Long Set dataTbl = Sheet1.Range("B1:D4").CurrentRegion.Offset(1, 0) ' Sheet berubah sesuai dengan data tabel sumber Set dataRekap = Sheet2.Cells(1).CurrentRegion.Offset(1, 0) For Row = 2 To dataTbl.Rows.Count For Col = 2 To dataTbl.Columns.Count Set Rng = Sheet2.Range("B1:D1").Find(Col, LookIn:=xlValues) i = Rng.Column dataRekap(RekRow, i) = dataTbl(Row, Col) ' Jika pakai coding ini hanya value saja yang ke paste, maunya plus ' commentnya Next Col Next Row End Sub =========================================================================================== Tabel kasus terlaimpir. Terima kasih. regards, Isti