Bagian :
xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
Ganti dengan :
.UsedRange.Copy
Kid.
2011/9/30 Yudha Saptiadi <[email protected]>
> **
>
>
> Mr.Kid...
> sudah di coba dua duanya tp
> Masih di tendang di paste specialnya
> apakah karena intersectnya juga yg harus di perbaiki makronya..??
>
>
> 2011/9/30 Kid Mr. <[email protected]>
>
> **
>>
>>
>> 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
>>>
>>
>>
>
>
