Dear Pak Herssoe, Berikut modifikasi untuk memilih sheet yang terakhir. Bila ada 3 sheet dalam file tersebut maka saat dibuka makro akan menyampaikan pesan (sekedar mengingatkan ke user), kemudian macro akan memilih sheet yang terakhir (sheet3). Bila ada 7 sheet...maka macro akan menyesuaikan secara otomatis. Dim n As Integer Dim LastSheet Sub Auto_Open() n = Sheets.Count LastSheet = "Sheet" & n MsgBox "Last Sheet = Sheet" & n Sheets(LastSheet).Select End Sub Met dicoba ya pak :D Regards, Tomy GS
--- Pada Ming, 29/11/09, HerrSoe <[email protected]> menulis: Dari: HerrSoe <[email protected]> Judul: Re: ]] XL-mania [[ Makro untuk sheet terakhir Kepada: [email protected] Tanggal: Minggu, 29 November, 2009, 9:51 AM Yth Bp Tomy, wah kebetulan, saya juga mempunyai keperluan yg sama dgn pak Ali Sayang sekali pak tomy gurtama belum tuntas memberikan pencerahannya. . Kalau WORKSHEET TERAKHIR / TERKANAN kami tulis Sheet5.Select (karna di workbook saat itu ada 5 sheets) yaitu mengikuti saran Bp Tomy (= " Kalo mau dimodif ke sheet yang paling kiri atau kanan, silahkan dimodif aja." ) maka di lain waktu jika workbook di update (yg menyebabkan jumlah sheet yg berkurang atau bertambah, maka perintah tsb tidak tidak lagi berlaku; bahkan dapat menimbulkan "error" jika saat itu tidak ada Sheet5. Keinginan kami: bagaimana cara menuliskan object worksheet terakhir / terkanan secara soft-coded bukan hard-coded seperti yg sudah Bapak contohkan. Mohon pencerahannya pak.. best regards, Heru Soetimbull 2009/11/28 tomy gurtama <gurt...@yahoo. com> > Coba bikin module baru di VB Editor. Misal yang mau dibuka paling awal > adalah sheet3, maka codingnya : > > Sub Auto_Open() > Sheet3.select > Sub > > Kalo mau dimodif ke sheet yang paling kiri atau kanan, silahkan dimodif aja. > Met coba ya :D > > --- Pada Rab, 25/11/09, ali_fatkhuri@ yahoo.com <ali_fatkhuri@ yahoo.com> > menulis: > kalau aku mau buka file excel otomatis buka sheet yg paling akhir atau > sheet paling kanan sekali dan select cellnya di A1, makronya gimana ya? Bersenang-senang di Yahoo! Messenger dengan semua teman. Tambahkan mereka dari email atau jaringan sosial Anda sekarang! http://id.messenger.yahoo.com/invite/
