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: [email protected]
From: [email protected]
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
