Makroda koşullu satır gizleme

[by101]

Arkadaşlar merhaba kolay gelsin. Excelde makro kullanarak yapmak istediğim bir işlem var. Bir noktaya kadar kodladım ancak gerisini bir türlü bulamadım. Şöyle ki

A1 , a2 , a3 hücreleri 1 ise 12,13,ve 14. Satırları gizlesin istiyorum. Ama ilk 3 hücreden herhangi biri 1 den farklı ise hiç bir değişiklik yapmasın. Tek hücre üzerinden yapmayı becerdim. Yani sadece A1=1 ise diğer satırları gizleyebiliyorum ama diğerlerini ekleyemedim. Benim istediğim A1-A2-A3 hücrelerinin üçüne de 1 yazılmışsa 12,13 ve 14. satırları gizlesin istiyorum.

Yardımlarınız için şimdiden teşekkürler

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A3]) Is Nothing Then Exit Sub
If [A1] = 1 And [A2] = 1 And [A3] = 1 Then
Rows("12:14").EntireRow.Hidden = True
ElseIf [A1] = 2 Or [A2] = 2 Or [A3] = 2 Then
Rows("12:14").EntireRow.Hidden = False
End If
End Sub

Kodlarını ekleyip deneyin.
İyi çalışmalar.

 

[by101]

Meğersem "and" yazmadığımdanmış vay arkadaş yav :biggrin:
Çok teşekkür ederim k::

 

[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