Coba juga yang berbeda berikut ini,
Sub CopySpecial() 'anton suryadi, 30/Jan/2012 Dim Z As String, nh
As Long, nd As Long, x As Range, K nh = Sheet2.Cells(Rows.Count,
1).End(3).Row nd = Sheet1.Cells(Rows.Count, 1).End(3).Row For Each
x In Sheet2.Range("A1:A" & nh) If x.Value <> "" Then Z
= x.Value Set K = Sheet1.Range("A1:A" & nd).Find(What:=Z,
LookIn:=xlValues, LookAt:=xlWhole) If Not K Is Nothing Then
K.Offset(, 1).Resize(, 3).Copy With x.Offset(, 1)
.PasteSpecial xlPasteValues .PasteSpecial
xlPasteComments End With
Application.CutCopyMode = 0 End If End If NextEnd
Sub
>semoga bermanfaat
--- In [email protected], Isti Astro <milisastro@...> wrote:
>
> 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
>
