Nomor Urut Hasil Filter

  1. 3 tahun lalu

    Selamat siang para master. Minta solusinya untuk code autonumber. Maksudnya saya ingin membuat auto number di mulai dari range H6:H...dst , dimana kolom I6:M...dst, adalah hasil filter dari kolom A2:F306. Supaya setiap kali ada perubahan hasil filter selalu dimulai dengan nomor urut 1 dst sampai dengan baris terakhir hasil filter. Atas tanggapannya diucapkan terima kasih. bersama ini kami lampirkan hasil midifikasi file dari Siti Vi tanggal 30 April 2011

    Tambahkan saja script berikut:

    Tampil(n, 1) = n

    Letakkan di dibagian ini:

    For r = 2 To dTabel.Rows.Count
                If dTabel(r, 6) = Target Then
                   n = n + 1
    
                   Tampil(n, 1) = n
    
                   Tampil(n, 2) = dTabel(r, 2)
                   Tampil(n, 3) = dTabel(r, 3)
                   Tampil(n, 4) = dTabel(r, 4)
                   Tampil(n, 5) = dTabel(r, 5)
                   Tampil(n, 6) = dTabel(r, 6)

    Selamat Mencoba :)

  2. Masdad

    7 Jun 2015 Terverifikasi Jawaban Terpilih Demak + 611 Poin

    Tambahkan saja script berikut:

    Tampil(n, 1) = n

    Letakkan di dibagian ini:

    For r = 2 To dTabel.Rows.Count
                If dTabel(r, 6) = Target Then
                   n = n + 1
    
                   Tampil(n, 1) = n
    
                   Tampil(n, 2) = dTabel(r, 2)
                   Tampil(n, 3) = dTabel(r, 3)
                   Tampil(n, 4) = dTabel(r, 4)
                   Tampil(n, 5) = dTabel(r, 5)
                   Tampil(n, 6) = dTabel(r, 6)

    Selamat Mencoba :)

  3. Yth Pak Masdad.....,
    Terima kasih atas tanggapan dan bantuannya, script yang bapak sampaikan sudah saya coba dan berhasil sesuai dengan yang saya harapkan dan ini sangat membantu pekerjaan saya. Semoga amal baik bapak yang suka berbagi ilmu, senantiasa memperoleh imbalan pahala dari Allah SWT. Amin. Terus terang saya sudah beberapa tahun muter-muter di blok tetangga menanyakan masalah ini, namun baru kali ini memperoleh tanggapan yang sangat memuaskan.
    Sekali lagi saya mengucapkan terim kasih yang tak terhingga

 

atau Mendaftar untuk ikut berdiskusi!