Ini mirip2 kasus di diskusi Sub Dropdown

coba @Aupe tambahkan 1 atau 2 propinsi lagi, saya cuma mau tau apakah ada nama kabupaten yang sama atau tidak

Coba cek lampiran, ada 2 cara tapi semuanya pakai tabel bantuan biar gak berat kalau datanya sampai 34 propinsi

@Aupe ...hanya ketika saya coba buat yg baru di file excel saya, ada formula yg tidak bisa, seperti tbData, sedikit bingung mengikuti pola formulanya...

cek di name manager

kalau ada nomor 2 (dua) itu untuk cara 2. dan untuk idxKec & idxKota dihapus aja, awalnya mau pakai itu tapi harus menggunakan array formula yang akan memberatkan proses, jadi saya ganti pakai tabel bantuan.

@Aupe ...sepertinya saya salah case kali ya mas, ada kendala ketika pilihan Provinsi, kab, kec, kel, itu banyak dan memanjang kebabawah mas,, itu giman ya mas,

row dibawah list pilihannya masih tergantung di pilihan list row awal, terima kasih.

sorry saya kurang paham

@Aupe

itu maksudnya nanti akan ada banyak baris dengan dropdown list?
jika demikian maka sangat tidak saya sarankan menggunakan formula. terlampir contohnya menggunakan makro, silahkan dipelajari.

tambahan : kenapa tidak dibuat menjadi user form input saja?

Terima kasih banyak mas, atas bantuannya...

sama-sama :)

jika @Aupe sudah sudah mulai paham skrip di file tersebut, bisa disederhanakan dengan memanfaatkan Column Number dan membuat range pada skripnya otomatis, contohnya

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ref As Worksheet: Set ref = Sheets("Ref")
i = Cells(Rows.Count, 2).End(xlUp).Row
On Error Resume Next

If Not Intersect(Target, Range("C5:C" & i & ", E5:E" & i & ", G5:G" & i)) Is Nothing Then
c = Target.Column
r = Target.Row

    With Cells(r, c + 2)
        .ClearContents
        .Validation.Delete
        sTarget = Target.Value
        With ref
        n = .Cells(Rows.Count, 1).End(xlUp).Row
        For Each sel In .Range(.Cells(3, c - 1), .Cells(n, c - 1))
            If sel = sTarget Then
                idx = .Cells(sel.Row, c + 1)
                If InStr(idxs, idx) = 0 Then
                    If idxs = "" Then
                        idxs = idx & ","
                    Else
                        idxs = idxs & "," & idx
                    End If
                End If
            End If
        Next
        End With
        .Validation.Add Type:=xlValidateList, Formula1:=idxs
    End With
    
idxs = ""
End If
End Sub

tujuannya agar @Aupe tidak perlu repot2 merubah range pada skripnya

semoga bermanfaat

@Aupe ada keterkaitan ya, Kolom tulisan Propinsi, harus di copy juga ya mas

iya, karena nilai i di baris skrip :

i = Cells(Rows.Count, 2).End(xlUp).Row

adalah mencari baris terakhir di kolom 2, jika ingin kolom 3 atau yg lain dirubah aja nilai kolomnya

@Aupe

1. Pastikan semua sel untuk validation list format cell nya TIDAK dalam keadaan locked
2. edit skripnya menjadi :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ref As Worksheet: Set ref = Sheets("Ref")
i = Cells(Rows.Count, 2).End(xlUp).Row
On Error Resume Next

If Not Intersect(Target, Range("C5:C" & i & ", E5:E" & i & ", G5:G" & i)) Is Nothing Then
c = Target.Column
r = Target.Row

    With Cells(r, c + 2)
        .ClearContents
        .Validation.Delete
        sTarget = Target.Value
        With ref
        n = .Cells(Rows.Count, 1).End(xlUp).Row
        For Each sel In .Range(.Cells(3, c - 1), .Cells(n, c - 1))
            If sel = sTarget Then
                idx = .Cells(sel.Row, c + 1)
                If InStr(idxs, idx) = 0 Then
                    If idxs = "" Then
                        idxs = idx & ","
                    Else
                        idxs = idxs & "," & idx
                    End If
                End If
            End If
        Next
        End With
        Me.Unprotect '< --- unprotek disini
        .Validation.Add Type:=xlValidateList, Formula1:=idxs
    End With
    
idxs = ""
End If
Me.Protect '<--- protek kembali disini
End Sub

jika berhasil harusnya hasilnya seperti ini :

@Aupe ...kendala saya setelah list sudah terisi samapai kelurahan, saya mau input/isi dengan data2 pada kolom selanjutnya, tapi terprotek...

sama aja seperti diatas yaitu sel2 yang mau diinput jangan di LOCKED pada format cells - protection.

kalau mau pakai makro contoh skripnya :

Range("A1:J1").Locked = False

kalau mau di lock lagi tinggal dirubah aja False menjadi True. tapi ingat, untuk melakukan perubahan Lock to Unlock sel atau sebaliknya sheet tersebut harus di Unprotect dahulu kemudian di Protect kembali, skripnya jadi kira2 seperti ini :

...
activesheet.unprotect ' di unprotek dulu
Range("A1:J1").Locked = False 'Lock atau unlock sel nya
activesheet.protect 'di protek lagi
...

@Aupe ...kalau mau nambahan ini Application.Calculation = xlCalculationAutomatic di baris mana ya...

tergantung kebutuhan

biasanya kalkulasi manual di set di awal dan otomatisnya diakhir skrip. namun jika dipertengahan ada perintah yang mengharuskan terjadi kalkulasi maka kalkulasi otomatisnya harus di aktifkan dipertengahan juga.

contoh sederhana pada 2 skrip berikut

Sub test1()
'ini kalkulasi diawal dan akhir
Application.Calculation = xlCalculationManual

Range("A1") = 0
Range("B1") = 0
Range("C1") = "=A1+B1"
Range("A1") = 5
Range("B1") = 5
MsgBox "5 + 5 = " & Range("C1")
'hasil di msgbox salah karena belum dilakukan kalkulasi untuk penjumlahannya

Application.Calculation = xlCalculationAutomatic
'hasil di sel C1 benar karena sudah dilakukan proses kalkulasi
End Sub


Sub test2()
'ini kalkulasi ditengah karena membutuhkan kalkulasi
Application.Calculation = xlCalculationManual

Range("A1") = 0
Range("B1") = 0
Range("C1") = "=A1+B1"
Range("A1") = 5
Range("B1") = 5
Application.Calculation = xlCalculationAutomatic
'hasil di msgbox benar karena sudah dilakukan proses kalkulasi untuk penjumlahannya
MsgBox "5 + 5 = " & Range("C1")
'hasil di sel C1 benar
End Sub