Siang ,.

Mau tnya apakah bisa Vba melakukan proses ini :
Saya memiliki Data berikut :

Tujuannya :
input data menggunakan UserForm , dengan alur

1. No auto , mulai dari A4-A23 ( 1-20 saja )
2. Saat input nama Unit start dari B4 -B23 , Jikas sudah sampai B23 akan berpindah ke C4-C23 dst ( ini hanya boleh terjadi di Range Kolo A-F , di kolom G tidak boleh )
3. Menambah Nama + Kota ( G2 untuk nama , G3 untuk kota ) dimana itu bisa berlanjut di H1+H3 dst

Terima kasih

Mungkin ini bisa membantu, terima kasih..

@Eunike Abigail
Terima kasih

mau bertnya lagi

 Kolom_Akhir = Sh.Cells(2, Columns.Count).End(xlToLeft).Column

itu harus ditulis bagaimana agar command Delete bisa berjalan berdasrkan Combobox ( Kriterianya )

Mungkin maksudnya seperti ini...

Terima Kasih.

@Eunike Abigail

iya seperti ini , tapi yang saya maksud delete beserta kolomnya ( jika bisa yg didelete kolom tsb + hanya sebatas ampai row 23 )
Maaf pertanya saya seblumnya kurang lengkap ,.

Terima kasih

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