Yth. Pakar Excel
Mohon bantuannya ,
Saya dapat barisan code macro berikut (dari milis ini juga) :
Sub Gabung()
Dim rngGabung As Range
Dim sh As Worksheet
Dim rngsh As Range
Dim brs As Long
Set rngGabung = Sheets("Gabung").Range("A2").CurrentRegion
Set rngGabung = rngGabung.Offset(1, 0).Resize(rngGabung.Rows.Count - 1)
Application.ScreenUpdating = False
rngGabung.ClearContents
For Each sh In Worksheets
If sh.Name <> "Gabung" Then
If sh.Name <> "nim_nama" Then
If sh.Name <> "a2" Then
If sh.Name <> "pivot_table" Then
Set rngsh = sh.Range("A2").CurrentRegion
Set rngsh = rngsh.Offset(1, 0).Resize(rngsh.Rows.Count
- 1)
brs =
WorksheetFunction.CountA(Sheets("Gabung").Columns("A:A"))
rngsh.Copy Sheets("Gabung").Range("A" & brs + 1)
End If
End If
End If
End If
Next sh
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Barisan code macro tersebut jika diterapkan hasilnya "copy paste" ..
keinginan saya bagaimana biar hasilnya "copy VALUE" saja, mohon bantuannya
merevisi barisan code macro tersebut ..
Terima kasih
ari
