Satırın gizli olup olmadığını öğrenme

[tamer42]

Merhaba,
Bir sayfa da örnek olarak; 32 ve 33. satırlar gizli değilse bu satırları gizlesin.

Satırlar zaten gizli ise bir işlem yapmasına gerek olmasın

    Rows("32:33").EntireRow.Hidden = True

teşekkürler,

iyi çalışmalar.

 

[Haluk]

Sub Test()
    If Not Rows("32:33").EntireRow.Hidden = True Then Rows("32:33").EntireRow.Hidden = True
End Sub

.

 

[tamer42]

Sub Test()
    If Not Rows("32:33").EntireRow.Hidden = True Then Rows("32:33").EntireRow.Hidden = True
End Sub

.

Çok teşekkürler....

 

[tamer42]

 If Not Rows("32:33").EntireRow.Hidden = True Then Rows("32:33").EntireRow.Hidden = True

Çok teşekkürler....
burada Rows("32:33") ifadesini;

Dim rng as Range
set Rng= Rows("32:33")

gibi bir tanımlama yapabilir miyiz?

iyi Çalışmalar.

 

[Haluk]

Yazdığınızı, siz denediniz mi?

.

 

[tamer42]

Yazdığınızı, siz denediniz mi?

.

set Range..... işlevinin hücrede olacağını düşünerek, burada satırda işlem yaptığımız için hiç denememiştim.
şimdi denedim, oluyor.

teşekkürler.