Makro ile ilgili sayfada istenilen satırları gizleme hk.

[hakanaslan78]

Merhaba Arkadaşlar,

Aşağıda kullandığım makronun içine, ilgili sayfalarda istediğim satırları gizleme işlemini nasıl yapa bilirim.

Sub Sayfa2_şifre()
sifre = InputBox("Şifre Giriniz", "Şifre Giriş")

If sifre = "1" Then
Sheets("SUAT").Visible = True ( Örnek olarak bu sekmedeki A2 - A3 - A4 - satırlarını sayfa açıldığı zaman gizlenmiş olsun )
MsgBox " SAYFA AÇILDI."

ElseIf sifre = "2" Then
Sheets("HARUN").Visible = True
MsgBox "SAYFA AÇILDI"

ElseIf sifre = "3" Then
Sheets("OKTAY").Visible = True
MsgBox "SAYFA AÇILDI"

Else
MsgBox "Şifreniz Doğru Değildir"
Exit Sub
End If
End Sub

Sub YONETICI()
sifre = InputBox("Şifre Giriniz", "Şifre Giriş")

If sifre = "123" Then
Sheets("SUAT").Visible = True
Sheets("HARUN").Visible = True
Sheets("OKTAY").Visible = True
Else
MsgBox "Şifreniz Doğru Değildir"
Exit Sub
End If
End Sub

Saygılarımla,

Hakan ASLAN

 

[ÖmerFaruk]

Sheets("SUAT").Visible = True ( Örnek olarak bu sekmedeki A2 - A3 - A4 - satırlarını sayfa açıldığı zaman gizlenmiş olsun )
A2:A3:A4 dedikleriniz 2.-3.-4. satırlar anlamına geliyor sanırım
Hemen bu kodun altına aşağıdaki satırı ekleyin

Sheets("SUAT").Visible = False
Rows("2:4").Hidden = True

Tekara görünür kılabilmek için istediğiniz zaman aşağıdaki satırı kullanmanız yeterli olacaktır.

Sheets("SUAT").Visible = True

 

[hakanaslan78]

Sheets("SUAT").Visible = True ( Örnek olarak bu sekmedeki A2 - A3 - A4 - satırlarını sayfa açıldığı zaman gizlenmiş olsun )
A2:A3:A4 dedikleriniz 2.-3.-4. satırlar anlamına geliyor sanırım
Hemen bu kodun altına aşağıdaki satırı ekleyin

Sheets("SUAT").Visible = False
Rows("2:4").Hidden = True

Tekara görünür kılabilmek için istediğiniz zaman aşağıdaki satırı kullanmanız yeterli olacaktır.

Sheets("SUAT").Visible = True

Ömer bey teşekkür ederim ilginiz için,

Şöyle bir durum var, hangi satır numaralarını yazdıysam onların sadece gizlenmesini istiyorum.

ÖRNEK : 1 - 8 - 9 - 15 - 17 - 18 - 19 şekline,

Saygılarımla,

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    With Sheets("SUAT")
        .Cells.EntireRow.Hidden = False
        .Range("A1,A8:A9,A15,A17:A19").EntireRow.Hidden = True
        .Visible = True
        .Select
    End With
End Sub