*ikutan urun-omong-asal-mangap, mohon maaf kalau 'gak nyambung and 'gak
penting..*
(kalau belum..) mbok ya dicoba, debugging dengan berbagai cara
misalnya jalankan makro step by step, sambil memperhatikan nilai-nilai di
Local Window;
memasukkan nilai expressi (yg ingin diketahui) yg ndak muncul di
Mr Kid,
saya lampirkan pengubahan saya yang terakhir dan masih terhadang di paste
special.
mungkin ada ubahan makronya yg salah posisinya.
regards,
yudha
-
Public Sub OpenFile(strPath As String)
Dim RngRowA As Range, RngRowB As Range
Di
Setelah dicoba beberapa hal sebelumnya, hasilnya adalah tidak ada masalah
yang timbul.
Jika ditempat anda bermasalah, maka coba ubah blok :
With book.Worksheets("ACTIVITY")
'xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
'mencari range yang ada
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.
> **
>
>
> Bagian :
>
> xlApp.Intersect(.UsedRange, .Ran
Bagian :
xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
Columns.Count))).Copy
Ganti dengan :
.UsedRange.Copy
Kid.
2011/9/30 Yudha Saptiadi
> **
>
>
> Mr.Kid...
> sudah di coba dua duanya tp
> Masih di tendang di paste specialnya
> apakah karena intersectnya juga yg harus d
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.
> **
>
>
> Bagian :
> With book.Worksheets("ACTIVITY")
>
> xlApp.Intersect(.UsedRange, .Range("A1", .Cells(Rows.Count,
> Col
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 w
7 matches
Mail list logo