Hasil rumus tidak bisa diberi auto hide

  1. 3 tahun lalu

    Salam....
    Saya menggunakan macro auto hide yg akan melakukan auto hide row yang kosong sesuai dengan range yg diberikan.
    Contoh nya macro dibawah akan hide row yang tidak ada data di range L6 - L55

    Sub Macro1()
    'Sub Hide_rows()
    Dim c As Range
    For Each c In Range("L6:L55")
    c.EntireRow.Hidden = c.Value = 0
    Next c
    End Sub

    Yang jadi permasalahan, ketika saya menggunakan rumus penomoran otomatis di range L6 - L55 dengan menggunakan rumus :

    =IF(L6="";"";1)
    =IF(L7="";"";MAX($A$6)+1)
    =IF(L8="";"";MAX($A$6:A7)+1)
    dst

    Macro saya tidak bisa jalan.
    Begitu pula seandainya saya letakkan rumus penomoran otomatis di range lain, misalnya Z6 - Z55 lalu saya gunakan rumus =Z6 di L6 dan seterusnya.... macro saya tetap tidak jalan
    Jadi kesimpulan saya macro tersebut tidak dapat digunakan apabila range yang diberikan adalah hasil dari rumus.
    Mohon pencerahannya bagaimana jalan keluarnya atau pun ada macro lain yg bisa digunakan
    Terimakasih sebelumnya

 

atau Mendaftar untuk ikut berdiskusi!