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 >> > > >
