Filter Data dengan Berbagai Kategori

  1. ‹ Older
  2. 7 bulan yang lalu

    Siaaap pak.
    Oiya kalau untuk ini gimana ya pak?x.png

  3. @Tesa ...Oiya kalau untuk ini gimana ya...

    datanya ada di rubah? kalo iya maka harus disesuaikan skripnya

  4. tidak ad pak, dengan data yang sama :(

  5. Di sunting 7 bulan yang lalu oleh manweljs_

    @Tesa dengan data yang sama

    terus errornya karena apa?

    apakah karena anda menghapus text di cmbKec ? jika iya, coba tambahkan logika untuk menghindari error tersebut, misalnya :

    ...
    If Len(cmbKec) Then 
        With WorksheetFunction
            c = .Match(cmbKec, Ws.Range("A1:L1"), 0)
            r = .CountA(Ws.Range(Ws.Cells(2, c), Ws.Cells(100, c)))
            Set Kel = Ws.Cells(2, c).Resize(r, 1)
            cmbKel.List = Kel.Value
        End With
    End If
    ...


    tujuannya agar jika cmbKec tidak ada nilainya maka skrip selanjutnya tidak dijalankan agar tidak terjadi error

  6. Private Sub cmbKec_Click()
    Dim Ws As Worksheet
    Set Ws = Worksheets("Sheet2")
    Dim Kel As Range
    With WorksheetFunction
    c = .Match(cmbKec, Ws.Range("A1:AB1"), 0)
    r = .CountA(Ws.Range(Ws.Cells(2, c), Ws.Cells(100, c)))
    Set Kel = Ws.Cells(2, c).Resize(r, 1)
    cmbKel.List = Kel.Value
    End With
    If Len(cmbKec) Then
    With WorksheetFunction
    c = .Match(cmbKec, Ws.Range("A1:L1"), 0)
    r = .CountA(Ws.Range(Ws.Cells(2, c), Ws.Cells(100, c)))
    Set Kel = Ws.Cells(2, c).Resize(r, 1)
    cmbKel.List = Kel.Value
    End If
    End With
    End Sub

  7. Apakah jadinya seperti ini pak? @manweljs_
    Atau saya salah menambahkan,seperti yang bapak maksud

  8. Di sunting 7 bulan yang lalu oleh manweljs_

    @Tesa

    tidak perlu diulang, cukup diedit bagian 'With WorksheetFunction dst...'

    Private Sub cmbKec_Change()
    Dim Ws As Worksheet
    Set Ws = Worksheets("Sheet2")
    Dim Kel As Range
    If Len(cmbKec) Then
        With WorksheetFunction
            c = .Match(cmbKec, Ws.Range("A1:L1"), 0)
            r = .CountA(Ws.Range(Ws.Cells(2, c), Ws.Cells(100, c)))
            Set Kel = Ws.Cells(2, c).Resize(r, 1)
            cmbKel.List = Kel.Value
        End With
    End If
    End Sub

    atau gunakan error trap :

    Private Sub cmbKec_Change()
    Dim Ws As Worksheet
    Set Ws = Worksheets("Sheet2")
    Dim Kel As Range
    On Error Resume Next
        With WorksheetFunction
            c = .Match(cmbKec, Ws.Range("A1:L1"), 0)
            r = .CountA(Ws.Range(Ws.Cells(2, c), Ws.Cells(100, c)))
            Set Kel = Ws.Cells(2, c).Resize(r, 1)
            cmbKel.List = Kel.Value
        End With
    Err.Clear
    End Sub

  9. Terimakasih @manweljs_

    Pak apakah ada contoh file VBA agar pada saat excelny dibuka hanya data form dan form saja yang terbuka, jadi fungsi2 di menu bar tidak ada? itu bagian materi yang mana ya pak?

  10. @Tesa ...apakah ada contoh file VBA agar pada saat excelny dibuka hanya data form dan form saja yang terbuka, jadi fungsi2 di menu bar tidak ada? ...

    apakah maksudnya seperti file terlampir ?

  11. Seperti ini pak, jadi menu bar dan menu sheet2ny tidak muncul dan vba nya terkunci. Tetapi filenya tetap sama antara pemubuat dan pengguna. jadi saat dimasukkan password vba nya file excelny kembali normal (jika ingin dilakukan perubahan). kira-kira bisa gak pak?

  12. @Tesa

    kalo yg seperti itu silahkan anda pelajari tentang Excel Ribbon dan Custom UI

  13. terimakasih pak @manweljs_ , nanti akan saya pelajari dulu.

    oiya pak, apakah dgn vba ini kita bisa input data. Misalnya saya input datanya tidak berurutan, namun nantinya saat terinput dalam tabel/sheet akan terinput berurutan berdasarkan angka dan huruf.
    saya memakai nomor urut W-001, kemudian nanti dibawahny terinput W-001-(dg no beruruan).

  14. @Tesa

    apakah yg dimaksud seperti ini ?

    number.gif

  15. Misalnya seperti gambar dibawah ini pak.
    Ini datanya kan sudah terinput data yang lain, namun nanti saya ingin menambahkan data dibawa Z-003-4 , tapi dia akan otomatis terinput dibawah Z-003-3. Apakah bisa pak?

  16. @Tesa ...Misalnya seperti gambar dibawah ini...

    owh

    coba cek lampiran

  17. Untuk meurutny sudah sperti yang saya maksud pak, terimakasih pak. Tapi kalau seperti lampiran bapak @manweljs_ diatas nomornya itu otomatis. Apakah bisa ketikan manual saja pak?

  18. @Tesa ...Apakah bisa ketikan manual saja...

    bisa

    itu kan cuma contoh, silahkan dikembangkan sendiri

  19. 6 bulan yang lalu

    selamat pagi @manweljs_ , saya ingin minta bantuannya. Saya bingung cara merubahnya, ini sudah saya coba, cuma sampai dsini saya pahamnya -_-. Terimakasih sebelumnya

  20. Saya masih belum paham dengan bahasa yang bagaimana untuk di scriptnya pak, mohon bantuaanya pak.

  21. Sebentar pak jangan dijawab dulu, hehheheh

 

atau Mendaftar untuk ikut berdiskusi!