MENCARI BARIS DATA TERAKHIR TABEL EXCEL DENGAN “Range.End(xlDown)” [MACRO VBA EXCEL TUTORAL SERIES]
Assalamulaikum Warohmatullahi Wabarokatuh
Sodara2 sekaliYan para pembatja jang boediman … melanjutkan artikel sebelumnya tentang cara menentukan baris yang akan digunakan saat menambahkan data baru yang akan menampilkan bintang tamu metode Range.End(XlDown)…. seperti metode Range.End(xlUp) yang bisa sOdara sekaliYan baca dengan klik dimarih …. metode ini jugaK bisa dikatakan sudah mainstream aliyas banyak yang pakai … karena Down adalah kebalikan dari Up … maka metode Range.End(xlDown) juga merupakan kebalikan dari metode Range.End(xlUp)
maksud dari kebalikan tersebut adalah jika metode Range.End(xlUp) dimulai dengan mengaktifkan Cell A1048576 yang merupakan baris terakhir pada kolom A …. maka Range.End(xlDown) dimulai dari baris pertama yaitu Cell A1 … selanjutnya Excel akan mencari baris terakhir tabel tersebut ke arah bawah … kodenya pun mirip dengan metode Range.End(xlUp) seperti berikut ini … kalau kurang jelas silahkan klik gambarnya
Prosedur CariBarisTerakhir_xlDown_1 untuk tabel yang dimulai dari Cell A1 dan prosedur CariBarisTerakhir_xlDown_1 tabel dimulai dari Cell K14
demikiYanlah sedikit uraiyan tentang cara mencari baris data terakhir dengan metode Range.End(xlDown) …. metode selanjutnyah yang akan saya bahas adalah metode Do…Loop … insyaAllah minggu depan publish (klik dimarih) … seperti biasa sOdara bisa Download file contohnya TheLastRowXlDown.xlsm pada folder 2016 >> 11NOV ….. sekiYan semoga manpaat …. MDLMDL
bingung cara downloadnya ??Baca aja halaman download dengan klik icon di samping |
|
feed , email and my social media        |
Jika sOdara menemukan sesuatu yang bermanpaat di marih .... silahkan kasih komennya
This site uses Akismet to reduce spam. Learn how your comment data is processed.
Ikut “doprok” menunggu yang cara nomor 3 dan 4 om! 😀
kasihan nunggunya sendirian ndak ada temennya 🙂
waakakakkaa… 😀
Private Sub CmdSave_Click() ‘ CommandButton
Tanya = MsgBox(“Yakin S A V E ? “, vbQuestion + vbYesNo, “BLABLABLA”)
If Tanya = vbYes Then
Sheets(“ADD DATA”).Activate
Set dvd = Sheets(“ADD DATA”)
Dim kolom As Long
kolom = WorksheetFunction.CountA(Range(“B:B”)) + 4
With dvd
Cells(kolom, 2).Value = TextBox1.Value
Cells(kolom, 3).Value = Label.Caption
End With
MsgBox ” DATA SUDAH DI SAVE “, vbOKOnly, “BLABLABLA”
Unload Me
Else
MsgBox ” Save Data C A N C E L”, vbOKOnly, “BLABLABLA”
Exit Sub
End If
End Sub
”’ Buat UserForm – TextBox – Label ”’
”’ Pengisisan data dimulai dari kolom B baris ke 5
”’ Silakan dikembangkan Semoga bermanfaat