Sheet1.Range(Cells(4, 6 + x), Cells(23, 6 + x)).Value = vbNullString

tambahkan formula di atas mas Chris untuk menambah penghapusan data mulai cell 4 samapai cell 23, bisa di kembangkan sesuai keperluan.

Terima kasih.

@Eunike Abigail
maaf untuk yg @Eunike Abigail berikan juga termasuk yg saya cari ,.
tapi yg lebih saya maskutkan seperti ini
' alt='-image-'/>
karena gif yg saya contohkan mengunakan cara manual , yg saya cari mengunakan vba berdasrkan dari comboboxnya
:) hehhhe

Maksudnya seperti itu...
Coba file ini.
Terima kasih.

Mas @Eunike Abigail
Terima kasih
saya pelajari dulu :)

Mas @Eunike Abigail

maaf bertanya lagi , karena masih bingung

Sheet1.Range(Cells(bb, cc), Cells(bb + 21, cc))

1. untuk angka +21 itu apa ya ?

2.cara membut set range ( berdasrkan button Add ) bagaimana ya ?,
Tujuannya saat menambah Intsansi + kota maka auto border ( cara penulisan set range yg bingung )

3. saya sudah googling dan belum menemukannya , bagaimana agar Muncul Msgbox saat Input Instansi+Kota sudah sampai batas ( AD (30)

4. apakah bisa Mengatasi data ganda di Input di Intsansi + kota ?
jika ada Data PT.A kota Malang , ingin input PT.A kota Malang akan otomatis msgbox " DATA GANDA " muncul , jika Input PT.A kota Surabya di izinkan , jika input PT.B kota Malang di iznkan

Karena banya yg saya tanyakan , unutk no 3-4 jika ada referensi untuk dibaca bolehkan di linkkan
saya coba pelajari dan terapka di data saya ;)

Selamat malam mas Chris,
saya coba jawab:

1. Angka 21 itu penambahan nilai cell, kalau kita bermain data di excel, harus paham penggunaan cell dan Row
2. Untuk membatasi, bisa menggunakan fungsi Countif untuk membatasi, untuk logicnya bisa menggunakan fungsi IF, untuk menggunakan fungsi IF, logic kita harus bermain.
3. Seperti di atas, jika sudah pahan penggunaan fungsi IF, tinggal penggunaan msgbox.
4. Bisa mas, harus menggunakan beberapa kondisi di tambah pemahaman fungsi FIND, contoh waktu itu saya kasi, hanya menggunakan fungsi Left dan Right karena contohnya hanya 1 huruf untuk masing-masing (Instansi dan Kota), ngga mungkin nama kota dan instansi 1 huruf...oleh sebab itu kita harus menggunakan delimeter untu menggabungkan anatara Instansi dan kota , setelah data di gabungkan, kita bisa menggunakan fungsi SPLIT untuk memisahkannya kembali dan fungsi FIND sebagai refrence pencarian datanya.

Fungsi-fungsi dasar dalam pengelolahan data sebenarnya tidak terlalu sulit, cuma terkadang banyak yang kurang memahami "Prinsip dasar data base" atau kaidah data base.

Terima Kasih.

@Eunike Abigail
Pagi ,.
Terima kasih sudah menjawab
Bolehkah saya bertanya lagi :)

Angka 21 itu penambahan nilai cell, kalau kita bermain data di excel, harus paham penggunaan cell dan Row

Sheet1.Range(Cells(bb, cc), Cells(bb + 21, cc)).Select									
bb = ActiveCell.Cells.Row			dim bb as string						
cc = ActiveCell.Cells.Column		dim cc as integer		

+21 karena Penambahan Nilai di mulai ( dituju ) dari Kolom 7 baris 3 ( G3 ) , dan tujuan akhir adalah Baris 24
jika tujuan akhir baris saya 30 , maka +21 berubah menjadi +27
apakh benar pemahaman saya ?

sama , cc itu kenapa integer dan bukan string
apakah karena ini

Cells(bb + 21, cc + 1 + a)).Copy Destination:=Cells(bb, cc)

Terima kasih

Selamat Siang mas Chris,

Benar mas, angka 21 ada penambahan nilai, penambahan nilai disini berdasarkan activecell yang di tuju.
Penggunaan Deklarasi sesuai kebutuhan mas, saya menggunakan Integer karna saya bermain di angka saja, ngga masalah menggunakan string/integer tapi kita jg harus tahu kebutuhan program yang kita buat.
Gimana mas sudah jadi programnya yang waktu itu mengenai pemisahan data ganda, saya sudah buatkan, tapi saya mau lihat program yang mas Chris buat, biar bisa belajar sama-sama di sini.

Terima Kasih.

Siang , mas @Eunike Abigail

maaf terlalu lama membalasnya
5 hari buat memahami alur find scrip saya ^_^; , tapi tidak tahu ini sudah benar atau tidak ( untuk tujuan yg saya cari ) script berjalan normal

pertanyan no 2+3 sudah berhasil saya buat ( apkah scrip sudah banar atau tidak masih belum tahu , karena berjalan normal sya beranggapan sudah benar ) heehheehhe :)

untuk pertanyaan nomer 4 , saya hanya bisa sampai find saja ( + Penambhan backcolor jika sudah ada datanya ) ,masih ada tapinya ^_^; ( wkwkwkw ) , ragu untuk ke split nya
apakah script find saya sudah benar untuk menacari tujuan yang saya maksut

4. apakah bisa Mengatasi data ganda di Input di Intsansi + kota ?
jika ada Data PT.A kota Malang , ingin input PT.A kota Malang akan otomatis msgbox " DATA GANDA " muncul , jika Input PT.A kota Surabya di izinkan , jika input PT.B kota Malang di iznkan

jika salah , bisakah diberitahu untuk letaknya :) , jika sudah benar + saya akan coba palajari lagi bagian split nya :) untuk nextya

Terima kasih

Ok mas Chris, formnya masih bisa masukan nama ganda, ngga apa-apa mas namanya juga belajar, saya juga masih belajar mas, ini program yg saya buat, mungin bisa belajar sama-sama.

Terima Kasih.

Mas @Eunike Abigail
Siap , saya coba pahami
Terima kasih , sudah dibantu :)

Sama-sama mas, kalau masih ada pertanyaan di persilahkan...

Terima Kasih.

pagi ,.
Mas @Eunike Abigail
mau tanya mengenai control listbox

adakah conttoh sederhana untuk menampilkan data Area B4 : F23 ke listbox ?
dengann kondisi per data dapat di klik , ( per data per cell ) ( saya mecoba menacri googling tidak ketemu )
saya pakai script ini ,.

Dim a As Integer
    Dim z As Long
    Dim Sh As Worksheet
    
     Set Sh = ThisWorkbook.Worksheets("WORKSHOP")
    a = Application.WorksheetFunction.CountA(Sh.Range(Cells(4, 2), Cells(23, 6)))

   Dim BarisB As Long
    
    BarisB = ThisWorkbook.Worksheets("WORKSHOP").Range("A" & Rows.Count).End(xlUp).Row
   
    
    Me.LsFrom.ColumnCount = 2
    
    For z = 4 To Sh.Range("A" & Rows.Count).End(xlUp).Row
    
    If BarisB = 1 Then
        Me.LsFrom.RowSource = "WORKSHOP!A4:F4"
    Else
       Me.LsFrom.RowSource = "WORKSHOP!A4:F" & BarisB
    End If
    
    If BarisB = 1 Then
        Me.LsFrom.RowSource = "WORKSHOP!B4:F4"
    Else
       Me.LsFrom.RowSource = "WORKSHOP!B4:F" & BarisB
    End If
    Next z

saat saya klik , malah 1 baris ter klik semua

Terima kasih

Contoh lampiranannya bisa mas..

@Eunike Abigail
maaf lupa upload :)
UNIT NEW.xlsb

Selamat siang mas Chris,

1. Ada beberapa contoh penggunaan Listbox untuk men-cover beberapa data yang kita inginkan (bisa di googling), jangan terpaku hanya menggunakan Listbox, saya ada contoh menggunakan ListView, masalahnya computer mas Chris bisa ngga menapilkan tool ListView, terus terang saya jarang menggunakan Listbox sebagai Visualisasi suatu data.
2. Suatu Listbox memang di design untuk mengambil data 1 list(deret) bukan induvidual sama halnya dalam penggunaan ListView, jika mau mengambil satu data secara individual seperti kita mengklik di sebuah sheet, butuh cara yang banyak mas, karena kalo yang saya lihat, mas Chris mau mengambil sebuah data dari Listbox kemudian data individual itu mau di transfer/dipindahkan sesuai keinginan (kira-kira...).

Terima Kasih.

@Eunike Abigail

Ada beberapa contoh penggunaan Listbox untuk men-cover beberapa data yang kita inginkan (bisa di googling), jangan terpaku hanya menggunakan Listbox, saya ada contoh menggunakan ListView, masalahnya computer mas Chris bisa ngga menapilkan tool ListView, terus terang saya jarang menggunakan Listbox sebagai Visualisasi suatu data.

iya mas , saya mncoba mencari googling yang saya temui listbox mengambil 1 baris ( deret ) , untuk listview dikomputer saya tidak bisa berjalan muncul error " Method or data member not found " ( lagi saya coba mencari solusinya )

Suatu Listbox memang di design untuk mengambil data 1 list(deret) bukan induvidual sama halnya dalam penggunaan ListView, jika mau mengambil satu data secara individual seperti kita mengklik di sebuah sheet, butuh cara yang banyak mas, karena kalo yang saya lihat, mas Chris mau mengambil sebuah data dari Listbox kemudian data individual itu mau di transfer/dipindahkan sesuai keinginan (kira-kira...).

benar mas , yg saya cari seperti itu
listbox 1 bisa transfer data ke listbox 2 dan sebaliknya , listbox acuannya dari Combobox yg diplih ( header instansi + kota )

berati saya mulai dari , problem listview di pc , dan memahami penggunaan listviewnya :)

Terima kasih mas @Eunike Abigail

Untuk menambahkan tool ListView dalam properties, mas bisa copy file MSCOMCT2.OCX sama MSCOMCTL.OCX (bisa di gooling caranya) , setelah tercopy bisa di run, baru nanti ada di propertiesnya, tapi kalo officenya ori biasanya sudah ada sendirinya mas...

Terima Kasih.

@Eunike Abigail
sudah mas , saya cek ke C:\Windows\SysWOW64 sudah ada , terus saya cek ke C:\Windows\System32 tidak ada ( saya copykan dari SysWOW64 masih error" Method or data member not found "
saya cek ke trusted center setting --> ActiveX setting saya ubahke Enable all masih error

setelah cek lagi ternyata Listview di userform saya hilang ( terhapus ) ^^; heheeheh
saya masih mencoba cari referenci listview + pelajari :) ,ada bebarapa yg ketemu tapi masih satu baris ( deret )

Ok mas, ini saya kasi contohnya menggunakan ListView dengan select per cell dengan bantuan optionbutton sebagai nilai X nya.
semoga bisa buat refrensi untuk penggunaan ListView.

Terima Kasih.