Menghitung baris aktif

Excel Pro - Ketika bekerja dengan menggunakan Microsoft Excel akan dijumpai tabel yang berisi record yang tersusun sampai berbaris baris jumlahnya bisa puluhan ratusan sampai ada yang berjumlah ribuan baris, yang disebut dengan baris pada microsoft excel itu angka yang berjejer disebelah kiri yang dimulai dari angka 1,2,3,4,5,6,7,8,9,10 dan seterusnya sampai 1.048.576 baris, biasanya baris sering ditulis dengan "row"

Teori kali ini adalah cara menghitung atau mengetahui baris yang aktif pada microsoft excel, apa itu baris aktif ? yaitu baris yag mempunyai record atau nilai didalamnya, jadi baris yang tidak ada nilai atau record tidak akan dihitung karena akan dibaca sebgai baris yang tidak terpakai atau tidak aktif. Untuk memulai cara menghitung baris aktif saya akan buatkan tabel sebagaimana tabel dibawah ini

K/B	A	B	C
1	-	-	-
2	NAMA KARYAWAN	JENIS KELAMIN	JABATAN
3	Agus mahardika	L	HRD
4	Mubin	L	Maintenance Building
5	Sujiyono	L	Staff OB
6	Mas Eko	L	Staff OB
7	Karim	L	Driver
8	Nadi Maulana	L	Driver
9	Siti Rukmini	P	OG
10	Wasis zain	L	OB
11	Sudarso	L	OB
12	-	-	-
13	-	-	-
14	-	-	-

Jikalau tabel yang ada hanya berjumlah kurang dari 20 atau kurang dari 50 maka masih bisa dihitung manual dan tidak akan memakan waktu sampai berjam jam, akan tetapi masalah akan timbul ketika tabel yang ada berjumlah ratusan atau bahkan ribuan, bayangkan berapa lama waktu yang dibutuhkan untuk menghitung baris baris tersebut ?. Ikuti Teori berikut ini untuk menghitung baris aktif

Buka menu tab developer Insert Insert Commandbutton activeX controls, lalu ketikan baris kode macro dibawah ini

Private Sub CommandButton1_Click()
MsgBox "Jumlah baris aktif adalah " & Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
End Sub

Jika kurang puas dengan baris kode macro diatas ganti saja dengan kode macro dibawah ini

Private Sub CommandButton1_Click()
With Sheets("HOME")
.Range("F2") = .Cells(.Rows.Count, "A").End(xlUp).Offset(0, 0).Row - 2
.Range("F1") = .Cells(.Rows.Count, "A").End(xlUp).Offset(0, 0).Row

Jmlh = .Range("F1") + 1
.Range("c" & Jmlh) = "Total Karyawan : " & .Range("F2")

With .Range("A" & Jmlh & ": C" & Jmlh).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
End With

End With
End Sub

Lihat hasilnya

Catatan Menghitung baris yang aktif

Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row

Baris kode macro ini adalah menghitung baris aktif berdasarkan record yang ada pada kolom A, jikalau kolom yang mempunyai record adalah kolom B, silahkan rubah menjadi seperti ini

Cells(Rows.Count, "B").End(xlUp).Offset(0, 0).Row

Saya akan modifikasi segingga bisa dimanfaatkan untuk membuat entri data sederhana

Sub Entridata()
i = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Range("A" & i + 1).Value = "Baris Aktif " & i + 1
End Sub

Jika prosedur ini dijalankan secara terus menerus maka otomatis akan menjadi seperti gambar dibawah ini



Demikianlah ulasan kali ini mengenai Menghitung baris aktif, semoga ulasan ini dapat dipahamai dengan baik. Menghitung baris aktif bisa dimanfaatkan untuk membuat banyak sekali fungsi salah satunya membuat entri data yang akan kita bahas setelah teori ini.

#Menghitungbarisaktif #ExcelPro #Macro #VBA #MacroExcel #ExcelVba #BelajarExcel #BelajarMacro #BelajarVBA #KelasExcel #RumahExcel
ExcelPro, Excel Pro, Macro, VBA, #MacroExcel, ExcelVba, BelajarExcel, BelajarMacro, BelajarVBA, KelasExcel, RumahExcel

Follow IG kami atau Like fanpage Excel Pro dapatkan update seputar excel VBA hanya di Excel Pro

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini