Bagian :
With book.Worksheets("ACTIVITY")
xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
'mencari range yang ada datanya dimulai dari cell A1 supaya judul
datanya ikut ke copy
End With
* 'create folder with name cost center
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = xcostcenterno*
ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(0,
0).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(0,
0).PasteSpecial Paste:=xlPasteColumnWidths, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Letakkan yang biru di atas With book.blah
Menjadi :
* 'create folder with name cost center
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = xcostcenterno
* With book.Worksheets("ACTIVITY")
xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
'mencari range yang ada datanya dimulai dari cell A1 supaya judul
datanya ikut ke copy
End With
ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(0,
0).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(0,
0).PasteSpecial Paste:=xlPasteColumnWidths, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Jika masih error juga, ubah proses copas menjadi :
With book.Worksheets("ACTIVITY")
xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
'mencari range yang ada datanya dimulai dari cell A1 supaya judul
datanya ikut ke copy
ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(0,
0).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
'mencari range yang ada datanya dimulai dari cell A1 supaya judul
datanya ikut ke copy
ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(0,
0).PasteSpecial Paste:=xlPasteColumnWidths, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Regards.
Kid.
2011/9/30 Yudha Saptiadi <[email protected]>
> **
>
>
>
> Dear para pakar...
>
> mohon bantuannnya yaaa...memperbaiki macronya pada saat copy range dari
> file lain spt terlampir.
>
> paste spesialnya error melulu..
>
> "pastespecial method of range class failed"
>
> Notes: untuk mengambil datanya gunakan file: __Konsolidasi Activity
> v0.1_test.xlsm
>
> atas waktu dan effortnya saya ucapkan terimaksih.
>
>
> regards,
> Yudha
>
>
