Makro İle Satır Gizleme, Gösterme

[mustafanar53]

Arkadaşlar Excel Dosyam var Örnek S3 hucresinde veri listem var (içindeki sayılarım 0,1,3,5,7...31) S3 listesinden 0 seçili olduğunda a1,a2,A3,a4,a5 hucrelerini s3 hücresinden 1 seçili olduğunda a1,a2…..a9 a kadar göstersin s3 hücresinde 3 seçili olduğunda a1 den a13 e kadar, s3 hücresi 5 seçili olduğunda a1 den a17 ye kadar s3 hücresinde 31 seçili olduğunda da a1. den a69 a kadar göstersin bunu nasıl yapabilirim?

http://s3.dosya.tc/server9/ew7yc5/kademe_.xlsx.html ekte açıklama mevcuttur
Teşekkürler

 

[vardar07]

Bir modül'e ekleyip makrodaki '.... aralığına istediğiniz kriterleri girip deneyiniz.

Sub sakla()
a = [S3]
If a = 0 Then b = 5
If a = 1 Then b = 10
If a = 3 Then b = 14
If a = 4 Then b = 17
'.....
'.....
If a = 31 Then b = 70
Range("A3:F70").EntireRow.Hidden = True
With Range("A3:F" & b)
.Select
Selection.EntireRow.Hidden = False
End With
End Sub

 

[mustafanar53]

Bir modül'e ekleyip makrodaki '.... aralığına istediğiniz kriterleri girip deneyiniz.

Sub sakla()
a = [S3]
If a = 0 Then b = 5
If a = 1 Then b = 10
If a = 3 Then b = 14
If a = 4 Then b = 17
'.....
'.....
If a = 31 Then b = 70
Range("A3:F70").EntireRow.Hidden = True
With Range("A3:F" & b)
.Select
Selection.EntireRow.Hidden = False
End With
End Sub

Hocam bu şekil oldu ben ok düğmesi yaptım ona makronuzu atadım çalıştı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [S3]) Is Nothing Then Exit Sub
If [S3] = 1 Then
Rows("6:72").EntireRow.Hidden = True
If [S3] = 3 Then
Rows("10:72").EntireRow.Hidden = True
If [S3] = 5 Then
Rows("10:72").EntireRow.Hidden = True
If [S3] = 7 Then
Rows("14:72").EntireRow.Hidden = True
If [S3] = 9 Then
Rows("18:72").EntireRow.Hidden = True
.
.
.
.

ElseIf [S3] = 31 Then
Rows("1:72").EntireRow.Hidden = False
Else

End If
End Sub

Bu da oldu fakat şöyle durum var S3 hucresi 7 yı seçtim misal a14 den yukarısı gizliyor ama 9 secince açmıyor illa hepsini açtırmam gerekiyor sonra gizleme yaptırmam gerekıyor . Anlatabildim mi bilemiyorum ama durum bu
Alakanıza tşklr

 

[vardar07]

Bir modül'e ekleyip makrodaki '.... aralığına istediğiniz kriterleri girip deneyiniz.

Üst mesajdaki kırmızı ile belirttiğim yere dikkat etmediniz sanırım.
'.......

'.......

noktalı yerlere benim yaptığım gibi
If a = 4 Then b = 17
mavi ile belirtilen yere seçtiğiniz rakamı kırmızılı yere de seçtiğiniz rakam en son hangi satırsa onu yazacaksınız. Benim size verdiğim kod örnekti arayı siz dolduracaksınız.

 

[mustafanar53]

Tşklr hocam yaptım

 

[SCOCUK]

Sub Makro1()

ActiveSheet.Rows("2:200").Hidden = False
ActiveSheet.Rows("5:100").Hidden = True

End Sub

Yukardaki gibi bir makrom mevcut ben satır aralığını yeniden gizlemek istediğimde ki örnekte bu satır (5) den başlıyor ben bu değerin aktif sayfadaki (B1) hücresinden almasını istiyorum