Birden çok hedef ve Satır gizleme.

[ktasliel]

Sitedeki uzman arkadaşlara çok teşekkür ederim, birçok sorunumu daha önceki konularda bulup çözdüm. Fakat çok aramama rağmen çoklu satır gizleme olayına çözüm bulamadım.

Excel Dosyam biraz büyük olduğundan göndermedim fakat sorunun sebebinide buldum ama çözümü bulamıyorum.

Kod aşağıdaki şekilde Hangi SUB'a "Worksheet_Change" yazarsam o çalışıyor. ikisine birden "Worksheet_Change" ismini vermeye çalışırsam ikikez aynı ismi kullandığımdan dolayı Ambiguous name detected:Worksheet_Change şeklinde hata veriyor.

Private Sub Worksheet_Change2(ByVal Target As Range)
If Intersect(Target, [A19]) Is Nothing Then Exit Sub
If [A19] = "TEK YÜZ" Then
        Rows("20:22").EntireRow.Hidden = True
ElseIf [A19] = "ÇİFT YÜZ" Then
        Rows("20:22").EntireRow.Hidden = False
Else
        Rows("20:22").EntireRow.Hidden = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B8]) Is Nothing Then Exit Sub
If [B8] = "Dopel (E+B)" Then
        Rows("12:16").EntireRow.Hidden = False
ElseIf [B8] = "Dopel (E+C)" Then
        Rows("12:16").EntireRow.Hidden = False
ElseIf [B8] = "Dopel (B+C)" Then
        Rows("12:16").EntireRow.Hidden = False
ElseIf [B8] = "Karton" Then
        Rows("12:16").EntireRow.Hidden = True
Else
        Rows("12:13").EntireRow.Hidden = False
        Rows("14:16").EntireRow.Hidden = True
End If
End Sub

Yukarıdaki şekilde satırları gizleme durumu söz konusu lakin aynı zamanda bu satırların bulunduğu hücreleri kilitlemek istediğim durumlarda söz konusu olabiliyor. Hücrelere kilit koyulduğunda gizleme işlemi yapılamıyor.

 

[ktasliel]

Halen çözemedim, bilen arkadaşlardan destek bekliyorum.

 

[Ömer]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A19,B8]) Is Nothing Then Exit Sub
If Target.Address = "$A$19" Then
    If [A19] = "TEK YÜZ" Then
            Rows("20:22").EntireRow.Hidden = True
    ElseIf [A19] = "ÇİFT YÜZ" Then
            Rows("20:22").EntireRow.Hidden = False
    Else
            Rows("20:22").EntireRow.Hidden = True
    End If
Else

If [B8] = "Dopel (E+B)" Then
        Rows("12:16").EntireRow.Hidden = False
ElseIf [B8] = "Dopel (E+C)" Then
        Rows("12:16").EntireRow.Hidden = False
ElseIf [B8] = "Dopel (B+C)" Then
        Rows("12:16").EntireRow.Hidden = False
ElseIf [B8] = "Karton" Then
        Rows("12:16").EntireRow.Hidden = True
Else
        Rows("12:13").EntireRow.Hidden = False
        Rows("14:16").EntireRow.Hidden = True
End If
End Sub

İstediğiniz bu mu?