hücre değerine göre saatır gizleme gösterme

[irfem4]

örnek dosyada belirttiğim gibi hazırlamakta olduğum puantaj çalışması için her ay değişen personel sayısına göre puantaj çizelgesindeki formül sonucu boş olan satırların gizlenmesi gerekiyor. yardımcı olabilirmisiniz.

 

[AdemCan]

Örnek kod, butona atayıp çalıştırabilirsiniz.

Sub test()
Dim i As Byte, x As Byte, s As Worksheet
Application.ScreenUpdating = False
Set s = Sayfa1
    s.Rows("6:21").EntireRow.Hidden = False
    i = s.Range("AM2").Value
    x = 6 + i + 1
    s.Rows(x & ":21").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

 

[irfem4]

Örnek kod, butona atayıp çalıştırabilirsiniz.

Sub test()
Dim i As Byte, x As Byte, s As Worksheet
Application.ScreenUpdating = False
Set s = Sayfa1
    s.Rows("6:21").EntireRow.Hidden = False
    i = s.Range("AM2").Value
    x = 6 + i + 1
    s.Rows(x & ":21").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

emeğinize sağlık tşk ederim. kodu asıl dosyaya uyarlayamadım. bu kod üzerinden nereleri değiştirmem gerekiyor.

 

[AdemCan]

Asıl dosyanın örneğini ekler misiniz?

 

[irfem4]

Asıl dosyanın örneğini ekler misiniz?

personel bilgileri sayfasındaki "G" sütununa yapılan veri girişi sayısına göre "tsm" sayfasındaki "AM2" hücresinde saydırılıp satırlar gizlenip görterilecek

 

[AdemCan]

Sayfadaki göster butonu ile çalıştırabilirsiniz.

Sub Göster()
Dim i As Byte, x As Byte, s As Worksheet
Application.ScreenUpdating = False
Set s = Sayfa7
    s.Rows("6:21").EntireRow.Hidden = False
    i = s.Range("AM2").Value
    x = 6 + i + 1
    s.Rows(x & ":21").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

 

[irfem4]

Sayfadaki göster butonu ile çalıştırabilirsiniz.

Sub Göster()
Dim i As Byte, x As Byte, s As Worksheet
Application.ScreenUpdating = False
Set s = Sayfa7
    s.Rows("6:21").EntireRow.Hidden = False
    i = s.Range("AM2").Value
    x = 6 + i + 1
    s.Rows(x & ":21").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

tşk ederim. emeğinize sağlık