gizli hücreler

[tuntem]

merhaba arkadaşlar excel sayfasında gizli hücre varmı yokmu anlayıp ona göre göre işlem yaptırmak istiyorum......bunu anlayabileceğimiz bir fonksiyon hakkında yardımcı olabilirmisiniz.

 

[uzmanamele]

merhaba arkadaşlar excel sayfasında gizli hücre varmı yokmu anlayıp ona göre göre işlem yaptırmak istiyorum......bunu anlayabileceğimiz bir fonksiyon hakkında yardımcı olabilirmisiniz.

merhaba
gizli hücre olmaz.
gizli satır, gizli sütun, gizli sayfa, gizli kitap olabilir.
ancak hücre bilgisi gizlenebilir.
veya hücrenin dolgu rengi ile yazı rengi aynı olursa gizlenmez ama görünmez olabilir, formül çubuğundan görebilirsiniz.

 

[tuntem]

özür gizli satırları demek istemiştim..bunu kod ile nasıl anlarız yani syfamızda gizli satır varmı yokmu...

 

[tuntem]

varmi = False
a = 1
For k = 1 To 65000
If (Worksheets("x").Rows(k).Hidden = True) Then
varmi = True
'exit for
Range("a" & a) = k
a = a + 1
End If
Next


şeklinde bir döngü çalıştırmak yerine bir excel metodu ile bunu anlayabilirmiyiz arkadaşlar..
yani bana sadece gizli hücre varsa varmı turu olsun yeter..

 

[Skorpiyon]

Sayın tuntem,

Kodsuz bir yöntemi var mı bilmiyorum.

Sub Düğme1_Tıklat()
[A1] = ""
For a = 1 To 65536
If Rows(a).Hidden = True Then [A1] = [A1] + 1
Next a
If [A1] = "" Then
MsgBox "Gizli satır yok"
GoTo 10
End If
MsgBox [A1] & " adet gizli satır bulunmaktadır"
10
End Sub

 

[Levent Menteşoğlu]

Control G ile git penceresini açın ve sol alt köşedeki özel butonuna tıklayın. Açılan pencereden "yalnızca görünür hücreler" seçeneğini işaretleyip tamam butonuna basın. Eğer gizli bir satır yada sütun yoksa bir uyarı mesajı verecektir.

 

[tuntem]

şaban bey amacım uzun bir kod çalıştırmak yerine 1 veya 2 kod satırı ile bunu anlamak..
yani döngü çalıştırmayıp hızdan kazanmak istiyorum..

örnek

if rows().hidden then varmi=true

bu kod hata vermiyor ama tabi işede yaramıyo

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

deger = Cells.Count - Cells.SpecialCells(xlCellTypeVisible).Count
If deger > 0 Then
MsgBox "Gizli hücreler mevcuttur."
Else
MsgBox "Gizli hücreler mevcut değildir."
End If

 

[tuntem]

Hocam bu kod işimi görür ve for la yazmaktan hızlıdır herhalde diye düşünüyorum...
Levent ve Şaban bey ilginiz için tekrar teşekkürler...