======= Private Sub Workbook_Open() Dim n As Integer n = Sheets.Count Sheets(n).Select End Sub
======= >semoga bermanfaat ________________________________ From: HerrSoe <[email protected]> To: [email protected] Sent: Thu, December 3, 2009 8:23:34 AM Subject: Re: ]] XL-mania [[ Modifikasi Macro untuk pilih sheet yang terakhir Terima kasih pak Tomy atas tambahan penjelasannya. Itu sangat berguna untuk dipelajari Namun sayangnya [sheets name] yg ada pada workbook saya tidak selalu "Sheet1", "Sheet2",.. "Sheet9" dst Bisa: "Pohon", "Daun", "Bunga", "Buah", "Sayur" dst urutan-letak- nya pun sering ditukar-tukar oleh para user jumlah sheet berkembang; sering bertampah kadang berkurang, tetapi memang keperluannya tetap: ketika worokbook dibuka = diinginkan Sheet terakhir (sheet yg posisi Tab-nya ada di paling kanan) yg otomatis aktif / selected. Dengan makro dari pak Tomy, makro akan selalu membuka sheet bernama "Sheet"&N di mana N adalah jumlah sheet yg ada saat itu misal 5, sedangkan pada workbook, Nama Sheet5 = tidak ada. Ini menyebabkan error msg / memunculkan dialogbox minta pilihan : debugging.. atau [End] mengakhiri eksekusi makro tanpa menghasilkan kehendak yg diinginkan. Mohon bantuannya sekali lagi pak... HerrSoe baru mau jadi pemula makro 2009/12/2 tomy gurtama <gurt...@yahoo. com> > > 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 <herr...@gmail. com> menulis: > Dari: HerrSoe <herr...@gmail. com> > Judul: Re: ]] XL-mania [[ Makro untuk sheet terakhir > Kepada: xl-ma...@yahoogroup s.com > 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?
