Menghitung Range dengan Kriteria Tertentu

  1. 7 tahun lalu

    Mohon bantuannya para Masta

    Disini saya memiliki data excel dengan kriteria tertentu.
    Pada Sheets "DATA" ada beberapa kolom, yaitu :
    Kolom 1 : NO, Kolom 2 : NOMOR KODE, Kolom 3 : KODE. Kolom 4 dst

    Didalam kolom "KODE" ada kriteria diantaranya :

    1. Resi : (Form_Resi) : Jumlah data yang sebanyak 103 orang
    2. Usaha : (Form_Usaha) :
    3. Mati : (Form_Mati)
    4. Domisili
    5. dll

    Jika dijalankan Userform Resi dan ditekan tombol "MULAI" maka otomatis Nomor urut sudah terisi total jumlah baris, tanggal, jenis kelamin, kewarganegaraan sudah tampil, tetapi di "textbox surat" seharusnya juga sudah terhitung jumlahnya.

    Diposisi ini saya berharap ada Masta-Masta yang bisa membantu saya memberikan script terhadap permasalahan ini.
    Contoh :
    Kode "Resi" saat ini berjumlah 103 orang, Jika dijalankan userform Resi dan ditekan "MULAI" atau "AMBIL DATA" maka seharusnya pada "NOMOR KODE" seharusnya berjumlah 104 sesuai dengan Kriteria "RESI" yang ada di sheet "DATA" atau bila saya tambah data maka nomor akan terisi 432, Nomor kode 104 dst.

    Saya sudah mencoba menggunakan "Countif" tetapi tidak tampil di userform, mungkin script yang saya buat masih salah, untuk itu saya harap ada yang bisa membantu saya.

    *File terlampir.

    @Fujiansyah92 Sorry gan baru balas,kemarin sakit ane :D

    edit aja yg sub Nomornya menjadi seperti ini :

    Sub Nomor()
    On Error Resume Next
        lstrow = Range("B4:B9999").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 'Get last row in column :B
        rowcount = Application.WorksheetFunction.CountA(Range("B4:B" & lstrow)) 'Get rowcount in column :B
        Me.TxtitemNo.Value = rowcount + 1
    End Sub

    File terlampir ya
    [attachment:58b4cb2a830a0]

    Maaf Masta, kasih scriptnya masih gantung ... tapi dikotak-katik sudah bisa, terima kasih.
    Semoga cepat sembuh ...

  2. Ga ada filenya bro.reupload yo

  3. Di sunting 7 tahun lalu oleh Sulung

    @Fujiansyah92

    Maaf, filenya sudah saya lampirkan
    DATA (Autosaved).xlsm

  4. @Sulung Maaf, filenya sudah saya lampirkan

    Sorry gan baru balas,kemarin sakit ane :D

    edit aja yg sub Nomornya menjadi seperti ini :

    Sub Nomor()
    On Error Resume Next
        lstrow = Range("B4:B9999").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 'Get last row in column :B
        rowcount = Application.WorksheetFunction.CountA(Range("B4:B" & lstrow)) 'Get rowcount in column :B
        Me.TxtitemNo.Value = rowcount + 1
    End Sub

    File terlampir ya
    DATA (Autosaved).xlsm

  5. diditsatriyadi

    28 Peb 2017 Terverifikasi Surabaya + 1.104 Poin

    @Fujiansyah92 Sorry gan baru balas,kemarin sakit ane :D

    semoga sehat selalu mas, saya kalo yg pake makro gak bisa jawab :)

  6. @diditsatriyadi semoga sehat selalu mas, saya kalo yg pake makro gak bisa jawab :)

    hehe amien.makasih mas do'anya.begitupun sebaliknya ya mas bro semoga sehat selalu.

    ane juga masih belajar,googling & nyontek klo lupa :D

  7. Sulung

    28 Peb 2017 Jawaban Terpilih + 75 Poin

    @Fujiansyah92 Sorry gan baru balas,kemarin sakit ane :D

    edit aja yg sub Nomornya menjadi seperti ini :

    Sub Nomor()
    On Error Resume Next
        lstrow = Range("B4:B9999").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 'Get last row in column :B
        rowcount = Application.WorksheetFunction.CountA(Range("B4:B" & lstrow)) 'Get rowcount in column :B
        Me.TxtitemNo.Value = rowcount + 1
    End Sub

    File terlampir ya
    [attachment:58b4cb2a830a0]

    Maaf Masta, kasih scriptnya masih gantung ... tapi dikotak-katik sudah bisa, terima kasih.
    Semoga cepat sembuh ...

  8. siap.good job bro

    terima kasih do'anya

 

atau Mendaftar untuk ikut berdiskusi!