Mantap pak rumusnya, berhasil...berhasil. Terima kasih banyak atas bantuannya pak Sudarsono.
TOP banget regards, Isti On Mon, Jan 30, 2012 at 3:56 PM, jkssxls Sudarsono <[email protected]>wrote: > ** > > > 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 > > > >
