masih sama mr Kid..
errornya kena disini :
ws.Range("A" & ws.Range("A65536").End(xlUp).Row).Offset(0, 0).PasteSpecial
Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Regards,
ys
2011/9/30 Kid Mr. <[email protected]>
> **
>
>
> 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
>>>>
>>>
>>>
>>
>
>
