sembunyi baris dengan kode macro/vba sesuai baris terakhir yg kosong

  1. 6 bulan yang lalu
    Di sunting 6 bulan yang lalu oleh goral

    bisakah saya dibantu para suhu2 yg disini,kode macro/vba untuk menyembunyikan baris dengan kondisi tertentu?
    trimkasih sebelumnya

  2. SAS

    Mar 29 Jakarta Timur + 128 Poin

    @goral
    Kebetulan lagi senggang, terlampir macro yang dimaksud, :-)

  3. trimkasih,pak..
    saat saya mau modifikasi,..saya kok jadi bingung ya :)
    ada kode macro seperti ini
    'Formula sementara
    Range("A6").FormulaR1C1 = "Code_Hide"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "=AND(RC[3]<>"""",RC[4]<>"""",RC[5]<>"""")"
    Range("A7").Select
    Selection.Copy
    Range("A7:A17").Select
    ActiveSheet.Paste
    itu maksudnya apa ya pak?
    bisakah saya dijelaskan,biar saya bisa memodifikasinya

  4. SAS

    Mar 29 Jakarta Timur + 128 Poin

    @goral
    Itu adalah adalah untuk membuat kolom sementara disamping table yang gunanya akan memunculkan TRUE jika kolom Nama barang, jumlah dan harga berisi alias tidak perlu dihide. Namun jika bernilai false dimana berarti ada salah satu kolom barang, jumlah harga tidak punya data, maka akan dihide.
    Jadi kursor akan diperintah ke kolom tersebut dan mengecek dimana jika nilai false, akan di-hide. Perintah dimulai baris A7 hingga A17. Sesudah selesai proses Hide, maka seluruh formula tadi akan dihapus lagi.

    Kalau mau lihat secara slow motion atau debugging, coba tekan F8, maka ketika Baris demis baris dieksekusi, akan kelihatan hasilnya di Sheet terkait.

    Kalau mau modifikasi misalnya menambah jumlah baris kebawa, modififkasi :
    ....... "Range("A7:A17").Select"
    ........For I = 7 To 17
    ......Range("A6:A17").Select
    dimana 17 adalah baris terakhir sekarang, diganti dengan 200 jika baris sampai no 200.

    Salam,

    SAS

  5. Caton

    Mar 29 Terverifikasi Indonesia + 11.443 Poin

    @SAS...
    Izin ikut menambahkan... :)

    @Goral...
    Selain dengan cara yang disampaikan mas @SAS di atas, mungkin bisa mencoba menggunakan script pada file yang saya lampirkan berikut, pada sheet TES A.

    Demikian.

  6. Di sunting 6 bulan yang lalu oleh goral

    trimakasih pak @SAS sedikit banyak saya mulai bisa :)
    untuk pak @Caton trimakasih juga untuk script nya
    nambah ilmu banyak ini
    hehe

 

atau Mendaftar untuk ikut berdiskusi!