Delete, Display dan No Urut pada Userform

  1. 2 bulan yang lalu

    Selamat Pagi para master Excell
    Mohon bantuannya kembali untuk pertanyaan berikut

    1. Saat saya ingin "delete" no. 10 kenapa yang ter-delete malah nomor diatasnya, ada kesalahan dimana untuk scriptnya?
    2. Bagaimana cara membuat agar nomor muncul secara berurutan dan otomatis sesuai dengan nomor list data terakhir
    3. bagaimana cara menampilkan list data pada userform saat kita klik insert data (sebelum mengisi data) dan sesuai dengan excellnya, karena untuk saat ini display list hanya keluar saat "add data" [attachment:5c7f3eafd9853]
  2. file nya (saat buat post 1 sudah di attach tapi kenapa ga ada ya file nya)

  3. 1

  4. manweljs_

    Mar 8 Terverifikasi + 8.583 Poin
    Di sunting 2 bulan yang lalu oleh manweljs_

    @Badawa 1. Saat saya ingin "delete" no. 10 kenapa yang ter-delete malah nomor diatasnya, ada kesalahan dimana untuk scriptnya?

    Listbox indexnya mulai dari 0, sedangkan Row Excel dimulai dari 1. untuk itu nilai i harus ditambah 1

    ...
    Rows(i + 1).Delete
    ...

    @Badawa 2. Bagaimana cara membuat agar nomor muncul secara berurutan dan otomatis sesuai dengan nomor list data terakhir

    pada Userform_initialize tambahkan skrip berikut :

    Private Sub Userform_initialize()
    ...
    Dim x As Long
    x = Range("A" & Rows.Count).End(xlUp)
    TxtNo = x + 1
    ...
    End sub

    @Badawa 3. bagaimana cara menampilkan list data pada userform saat kita klik insert data (sebelum mengisi data) dan sesuai dengan excellnya, karena untuk saat ini display list hanya keluar saat "add data"

    masih pada User Userform_initialize tambahkan skrip :

    ...
    Call ComButtADD_Click
    ...

  5. mas @manweljs_
    script di atas sudah saya tambahkan

  6. tetapi error saat dijalankan

  7. manweljs_

    Mar 11 Terverifikasi + 8.583 Poin

    @Badawa ...script di atas sudah saya tambahkan tetapi error saat dijalankan...

    cek lampiran

  8. terima kasih koreksinya mas @manweljs_

 

atau Mendaftar untuk ikut berdiskusi!