Filter nama & tanggal

  1. 5 bulan yang lalu

    mohon bimbingannya, bagaimana kalau mau filter data sesuai nama dan tanggal di lain sheet

  2. manweljs_

    Jul 24 Terverifikasi + 6.148 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    @Mr.P

    coba periksa file terlampir, apakah demikian yang dimaksud?

  3. maksih bos,
    ada satu lagi problem om manweljs
    kenapa ketika filter di sheet nota selalu ketinggalan satu row tidak mau muncul,
    contoh seharusnya yang muncul di filter itu 17 row, tapi yang muncul hanya 16 row... salah dimananya ??

  4. manweljs_

    Jul 25 Terverifikasi + 6.148 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    bos @Mr.P

    coba edit formula pada kolom nomor (B13) dari :

    =IF(NOT(ISERR($A13)),IF(AND(ISNUMBER($A13),$A13>0,$A13<ROWS(Data.Transaksi)),ROW()-ROW($B$12),""),"")

    menjadi :

    =IF(NOT(ISERR($A13)),IF(AND(ISNUMBER($A13),$A13>0,$A13<=ROWS(Data.Transaksi)),ROW()-ROW($B$12),""),"")

    ...salah dimananya ??...

    semoga kelihatan perbedaan formulanya :D

  5. berhasil om, ada masalah lagi ketika input tanggal di textbox dan di sheel data juga sudah format tanggal, filter tidak muncul. tapi ketika si sheel tanggal di input manual filter muncul..

  6. manweljs_

    Jul 25 Terverifikasi + 6.148 Poin

    @Mr.P

    saya kurang paham apa yang ditanyakan, karena saya coba disini baik-baik aja

    filter.gif

  7. ketika tidak pakai pick date ketik manual tanggalnya cth. 25/07/2018 selalu eror
    Karena pickdate ketika di pindah ke laptop tidak jalan jadi tanggal diisi manual...

  8. manweljs_

    Jul 25 Terverifikasi + 6.148 Poin
    Di sunting 5 bulan yang lalu oleh manweljs_

    @Mr.P

    bisa juga tuh :)

    filter bisa juga.gif

    mungkin format tanggalnya harus diperhatikan saat input manual yaitu bulan/tanggal/tahun

    atau coba edit TextBox1_Change dan CommandButton1_Click menjadi :

    Private Sub TextBox1_Change() 
    TextBox1 = Format(TextBox1,"dd/mm/yyyy")
    End Sub

    dan

    Private Sub CommandButton1_Click()
    Sheet3.Range("d2") = ComboBox1.Value
    Sheet3.Range("d3") = DateValue(TextBox1) 
    Sheet3.Range("d4") = ComboBox2.Value
    End Sub

 

atau Mendaftar untuk ikut berdiskusi!