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-
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 <gurtama@yahoo.
>
> 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)
> End Sub
>
> Met dicoba ya pak :D
>
> Regards,
> Tomy GS
>
>
> --- Pada Ming, 29/11/09, HerrSoe <herrsoe@gmail.
> Dari: HerrSoe <herrsoe@gmail.
> Judul: Re: ]] XL-mania [[ Makro untuk sheet terakhir
> Kepada: XL-mania@yahoogroup
> 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 <gurtama@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?
| Setelah bang momods kawin bulan lalu... bulan ini tanggal |
| 2 Desember bu guru Siti Vi ulang tahun lhooo.... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário