bir çalışma sayfasına aynı komutu iki farklı alan için nasıl verebilirim?

[egeyzb]

Kullandığım kod aşağıdaki gibidir ve bu kodla gizlenen sutunları bırer bırer gosterıyorum. örneğin 35-50 arasında ggizlediklerim için ayrı 75-90 arası için ayrı kullanmam gereikyor .

Nasıl yapabilirm?

Sub SATIRGÖSTER(
Sheets("PROFİL+KOMPOZİT TEKLİF FORMU").Unprotect "ANKA3114"
Dim lHiddenRws As Long
With Cells.SpecialCells(xlCellTypeVisible)
lHiddenRws = .Areas(1).Rows.Count + 1
.Areas(1)(lHiddenRws, 1).EntireRow.Hidden = False
Sheets("PROFİL+KOMPOZİT TEKLİF FORMU").Protect "ANKA3114"
End With
End Sub


Şimdiden teşekkürler.

 

[Seyit Tiken]

Aşağıdaki örnek kodu çalışmanıza uyarlayınız.

[A10:A20].EntireRow.Hidden = [A10:A20].EntireRow.Hidden = 0

 

[egeyzb]

Seyit bey,
Cevap için teşekkürler. Ancak uygulamasını yapamadım koda uygulayınca bazı satırlar silindi. Detaylı uygulama bilgisi verebilir misiniz?
Şimdiden teşekkürler.

 

[YUSUF44]

Aşağıdaki kod 35:50. satırların gizlenmesini iptal eder. Böyle bir şey mi istiyorsunuz?

Sub SATIRGÖSTER()
With Sheets("PROFİL+KOMPOZİT TEKLİF FORMU")
    .Unprotect "ANKA3114"
    .Rows("35:50").EntireRow.Hidden = False
    .Protect "ANKA3114"
End With
End Sub

 

[egeyzb]

Aşağıdaki kod 35:50. satırların gizlenmesini iptal eder. Böyle bir şey mi istiyorsunuz?
-----------------------------------------------------------------------------------------------
Şöyle 35:50 arası gizlenmiş satırları teker teker göstermek(gizlenmesinin iptal edilmesini istiyorum ve ayrıca 95:120 arasındakileride ayrı bir komutla göstermek istiyorum.

 

[YUSUF44]

Aşağıdaki kod her çalıştırıldığında 35:50 satır arasındaki ilk gizli satırı gösterir. 95:120 için aynı mantıkla for next döngüsünü değiştirmelisiniz:

Sub SATIRGÖSTER()
With Sheets("PROFİL+KOMPOZİT TEKLİF FORMU")
    .Unprotect "ANKA3114"
    For i = 35 To 50
        If Rows(i).EntireRow.Hidden = True Then
            Rows(i).EntireRow.Hidden = False
            Exit Sub
        End If
    Next
    .Protect "ANKA3114"
End With
End Sub