Dropdown List Pro-Kab-Kec-Kel

  1. ‹ Older
  2. 4 minggu lalu

    Maaf mas @manweljs_ 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.

  3. Di sunting 4 minggu lalu oleh manweljs_

    @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

  4. Terima masih, mas, masih terus dibantu,

    ini contohnya mas @manweljs_

    Terima kasih mas @manweljs_

  5. @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?

  6. Terima kasih banyak mas, atas bantuannya,

    tidak menggunakn user form input, sementara utk kebutuhan reporting saja mas, dan belum terlalu faham juga cara membuat CRUD-nya, masih cari2 referensi dulu mas @manweljs_, lagi search2 di grup ini.

    sekali lagi terima kasih mas.. bantuannya

  7. Di sunting 4 minggu lalu oleh manweljs_

    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

    rng otomatis.gif

    semoga bermanfaat

  8. Terima kasih mas @manweljs_ belajar sekaligus langsung aplikatif mas,,

    oh ya mas, ada keterkaitan ya, Kolom tulisan Propinsi, harus di copy juga ya mas, terima kasih

  9. @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

  10. Ok mas, terima kasih, di coba lagi, kemaren di coba masih belum sukses,

    klo pake script yg kedua ini spertinya, bisa ini, hee

  11. 3 minggu lalu

    Sudah bisa mas, tapi ada kendala, ketika saya proteksi cell range, maka tombol listnya tdk muncul atau tidak jalan, kenapa ya mas @manweljs_

  12. @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 :
    protekk.gif

  13. Terima kasih mas@manweljs_ di coba mas, terima kasih mas

  14. Sudah di aplikasikan mas @manweljs_ sesuai dengan hasi di atas,

    maaf mas @manweljs_ , kendala saya setelah list sudah terisi samapai kelurahan, saya mau input/isi dengan data2 pada kolom selanjutnya, tapi terprotek, itu bagaimana ya mas, agar tidak terprotek, terima kasih

  15. Di sunting 3 minggu lalu oleh manweljs_

    @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
    ...

  16. Di sunting 3 minggu lalu oleh Aupe

    Duh iya mas @manweljs_ maaf cell-nya masih terprotek hee, buru2 aja tadi.
    terima kasih banyak mas @manweljs_ terima kasih, terima kasih mas

    oh ya mas, kalau mau nambahan ini Application.Calculation = xlCalculationAutomatic di baris mana ya mas, terima kasih

  17. Di sunting 3 minggu lalu oleh manweljs_

    @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

  18. Terima kasih mas @manweljs_ duh rame juga ya caranya, perlu belajar terus, mudah2an, mas @manweljs_ tidka bosan2 memeberikan ilmunya.

  19. Mas @manweljs_ klo kita mau menambahkan agar proteksi cell nya ada password misal 123 itu gimana ya, dan saat cell terpteksi tombol filter untuk judul/header tatap aktif itu gimana, terima kasih mas.

    saya sudah tambahkan AllowFiltering, tetpi malah tidak terptoksi cellnya

    Me.Unprotect '< --- unprotek disini
    .Validation.Add Type:=xlValidateList, Formula1:=idxs
    End With

    idxs = ""
    End If
    Me.Protect , [AllowFiltering] '<--- protek kembali disini
    End Sub

  20. @Aupe

    unproteknya edit menjadi :

    Me.Unprotect "123"

    proteknya :

    Me.Protect "123", AllowFiltering:=True

    123 itu passwordnya. demikian

  21. Terima kasih mas @manweljs_ , terima kasih

 

atau Mendaftar untuk ikut berdiskusi!