Sub No_urut()
Dim r As Long
Worksheets(1).Select
Cells(3, 1).Select
For r = 3 To 1000
Cells(r, 2).Value = r - 2
Next
End Sub
ini no urutnya sampai 998 ------------ tinggal di ganti saja . mau nya berapa ?
Cells(r, 2).Value = r - 2 -- di letakan di B3 --- kalau maunya mulai dari A3 ---- di ganti : cells(r,1).value = r-2
2012/11/24 Suka Sih <suka2sih@yahoo.co.id>
Kepada penggemar excel saya mohon bantuannya untuk meringkas/menyederhanakan kode mengurutkan nomor yang saya buat, terima kasih
__._,_.___
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (6) |
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat jalan SitiVi, semoga bahagia di sisi-Nya... |
| Maaf moderasi lemooOooOott... momods siboek |
+-------------------------------------------------------------------+
| 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.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 |
+-------------------------------------------------------------------+
| Selamat jalan SitiVi, semoga bahagia di sisi-Nya... |
| Maaf moderasi lemooOooOott... momods siboek |
+-------------------------------------------------------------------+
| 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.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