Membuat nomor urut secara otomatis - Sebenarnya saya sudah beberapa kali membuat tips cara membuat nomor urut di excel menggunakan macro pada blog sebelumya iparengan.com, entah karena bahasa yang saya gunakan susah untuk dimengerti jadi saya akan kembali mengulnaginya. Nomor urut digunakan untuk memberikan id pada setiap baris pada tabel excel . Untuk membuat nomor urut secara manual kita bisa mengetikkan satu persatu nomor pada cell dan baris akan tetapi membuat nomor urut secara manual ini mempunya beberapa kendala dan kelamahan


Jika jumlah barisnya ratusan atau ribuan tentu akan menyita waktu anda dan waktu anda akan habis buat ketik ketik nommor urut saja
Membuat nomor urut secara manual bisa saja terjadi kesalahan ketik bisa jadi anda mengetik nomor yang sama atau bisa jadi anda malah mengetik huruf bukan nomor

Untuk itu saya akan kembali memberikan anda tips membuat nomor urut secara otomatis tanpa harus njlimet ngetik satu persatu dijamin tidak akan terjadi kesalahan kesalahan yang saya sebutkan diatas

Membuat Nomor urut Otomatis di Excel

Untuk membuat nomor urut saya tidak akan menyarankan anda untuk memanfaatkan fungsi bawaan excel yaitu dengan drag drop kebawah, akan tetapi kita akan memanfaatkan macro (VBA) yang sudah menjadi kebiasaan

Cara pertama membuat nomor urut otomatis di excel dengan memanfaatkan fungsi Looping. Looping adalah proses yang dilakukan secara berulang-ulang sampai batas yang ditentukan, syntax dari Looping yang saya maksud adalah

For ...
Next ...

Untuk membuat omor urut otomatis di excel dengan looping cukup mudah, bayangkan saja anda akan membuat nomor urut pada kolom A baris pertama sampai baris ke 20 (A1-A20)
For No = 1 To 20
Cells(No, 1).Value = No
Next No
Jika anda ingin membuat nomor urut berjalan secara horizontal sesuakain kode macronya menjadi seperti ini
For No = 1 To 20
Cells(1, No).Value = No
Next No
Jika anda ingin membuat nomor urut 100 baris tinggal ganti kode For No = 1 To 20 menjadi For No = 1 To 100 dan setrusnya. Lihat hasilnya


Cara membuat nomor urut dengan bantuan userform - Cara yang kedua ini agak lumayan panjang yah, cara ini digunakan saat anda membuat data pada tabel menggunakan input dengan form, sebagaimana cara diatas kita tetap ingin kolom A adalah nomor urut tapi tanpa harus mengetik manual. Ikuti tips Cara membuat nomor urut dengan bantuan userform dibawah ini
Langkah pertama masuk kejendela visual basic editor (VBE) dengan memanfaatkan kombinasi tombol tombol Alt lalu tekan tombol F11
Insert userform seret satu atau dua textbox dan satu tombol commandbutton, lihat design userformnya dibawah ini


Setelah itu ketikan kode macro dibawah ini kedalam userform, ada dua model yang saya sarankan adalah yang pertama, karena lebih simpel, kode macro yang pertama adalah sebagai berikut

Private Sub CommandButton1_Click()
Set dt = Sheets("Nomor")
No = dt.Cells(dt.Rows.Count, "A"). _
End(xlUp).Offset(0, 0).Row
dt.Cells(No + 1, 1).Value = No
dt.Cells(No + 1, 2).Value = TextBox1.Value
dt.Cells(No + 1, 3).Value = TextBox2.Value
dt.Range("C1").Value = dt.Range("C1").Value + 1
End Sub

Catatan kecil :

Nomor urut secara otomatis akan mengikuti jumlah baris yang ada, ada hal yang harus anda pahami, jika baris pertama yang anda gunakan adalah baris 2 maka anda harus mengganti + 1, 1).Value = No menjadi + 1, 1).Value = No - 1, jika baris pertama yang anda gunakan adalah baris ketiga maka anda juga harus mengganti + 1, 1).Value = No menjadi + 1, 1).Value = No - 2 dan seterusnya

Kode macro yang kedua yang bisa anda gunakan juga sebagai berikut

Private Sub CommandButton1_Click()
Set dt = Sheets("Nomor")
No = dt.Cells(dt.Rows.Count, "A"). _
End(xlUp).Offset(0, 0).Row
If dt.Range("A2").Value = "" Then
NomorUrut = 1
dt.Range("C1").Value = 1
Else
NomorUrut = dt.Range("C1").Value
End If
dt.Cells(No + 1, 1).Value = NomorUrut
dt.Cells(No + 1, 2).Value = TextBox1.Value
dt.Cells(No + 1, 3).Value = TextBox2.Value
dt.Range("C1").Value = dt.Range("C1").Value + 1
End Sub

Tekan F5 untuk melihat hasilnya


Catatan kecil :


Saya menggunakan baris pertama ( nomor 1 ) adalah kolom A2
Range("A2").Value = ""
Makanya saya menggunakan logika
If dt.Range("A2").Value = "" Then
NomorUrut = 1
............
Yang artinya jika kolom A2 bernilai kosong maka nomor urut adalah 1 (satu) dan seterusnya

Untuk mempermudah mempelajari cara membuat nomor urut di excel silahkan anda mendownload file sampel yang telah saya sediakan pada link download dibawah ini, jika ada pertanyaan dan kendala silahkan tingalkan dikolom komentar atau hubungi kontak yang ada diatas. Semoga bermanfaat

Password RAR : iparengan
Download - Membuat nomor urut otomatis di excel

Demikianlah cara Membuat nomor urut otomatis semoga bermanfaat, Follow IG Wasis Zain atau Like fanpage Asis10.com
No comments