MENCARI BARIS DATA TERAKHIR TABEL EXCEL DENGAN “Range.End(xlDown)” [MACRO VBA EXCEL TUTORAL SERIES] - Belajar Microsoft Excel : Tips, Tricks & Tutorial
Iklan
November 1, 2016
HomeExcelMENCARI BARIS DATA TERAKHIR TABEL EXCEL DENGAN “Range.End(xlDown)” [MACRO VBA EXCEL TUTORAL SERIES]

MENCARI BARIS DATA TERAKHIR TABEL EXCEL DENGAN “Range.End(xlDown)” [MACRO VBA EXCEL TUTORAL SERIES]

By  Excel  8 Comments

VBA microsoft visual basic for application excel

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

Range.End(XlDown)

Prosedur CariBarisTerakhir_xlDown_1 untuk tabel yang dimulai dari Cell A1 dan prosedur CariBarisTerakhir_xlDown_1 tabel dimulai dari Cell K14

mencari baris data terakhir range.end(xlup)

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
Iklan
Tags:, , , , , ,

Related Posts

8 Comments
  1. Kang IM

    Ikut “doprok” menunggu yang cara nomor 3 dan 4 om! 😀

    Balas
    • excellerates

      kasihan nunggunya sendirian ndak ada temennya 🙂

      Balas
      • Kang IM

        waakakakkaa… 😀

  2. david

    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

    Balas

Jika sOdara menemukan sesuatu yang bermanpaat di marih .. atau pengen kasih masukan .... silahkan kasih komennya

This site uses Akismet to reduce spam. Learn how your comment data is processed.