*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 local windows ke Watch Window kalau perlu layar monitor dibelah dua; separoh menampilkan Sheet Window, separoh lagi menampilkan Module yg sedang di Step-By-Step (dengan F8) cara ini mungkin primitif, tapi selama ini telah mengajariku, menjawab sendiri masalah yg dihadapi. bahkan dari 'Local Window' kita sering menemukan properties yg kita belum kenal... blok kuning pada saat makro berhenti karena menemukan error; belum tentu menunjukkan bahwa blok itu yg salah; misal ada bok If - Else - End if didalam Blok For Next yg sering saya temui; jika "IF" lupa di-tup-tup dengan End If nya VBA menyalahkan : "For Without Next" ! Sebuah ocx yg tidak ada, bisa menyebabkan "CODE biasa" kena blok kuning / dianggap tidak dikenal; Library yg belum dirujuk/ didaftarkan: juga sering menimbulkan error, dan "code biasa" yg ada yg di jadikan kambing hitam.... selain itu, tentunya rajin memeriksa sintaks yg kita gunakan, apakah sudah sesuai dengan bentuk bakunya ( ini berarti kiboard anda harus ada tombol F1 - nya (dan *jangan "tidak sering"* dipencet!) ) (adalah hill yg mustahall *jika ada orang hafal semua sintaks* baku pada VBA.. lha wong buanyak sekali. jee..) *sekali lagi, maaf kalau 'gak nyambung wal 'gak penting...* *2011/9/30 Yudha Saptiadi <[email protected]>* > 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) > '----- > End Sub > > *> 2011/9/30 Kid Mr. <[email protected]>* >> Setelah dicoba beberapa hal sebelumnya, hasilnya adalah tidak ada masalah yang timbul. >> Jika ditempat anda bermasalah, maka coba ubah blok :
