Şartlı Satırların Gizlenmesi

[Sessizlik Lütfen]

İmalat dendiği zaman A14-A32 kadar satırların gizlenmesini istiyorum
Lütfen yardımcı olabilri misiniz?

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("F3")) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
 
    Cells.EntireRow.Hidden = False
    
    On Error GoTo devam
    
    If Target = "YALNIZ İMALAT" Then
        Rows("34:50").EntireRow.Hidden = True
    ElseIf Target = "İMALAT+MONTAJ" Then
        Rows("14:34").EntireRow.Hidden = True
    End If
    Exit Sub
devam:
     Cells.EntireRow.Hidden = False
     
End Sub

.

 

[Mahir64]

Merhaba,

Sayfanın kod bölümüne ekleyerek deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F3") = "YALNIZ İMALAT" Then
    Rows("14:32").EntireRow.Hidden = True
Else
    Rows("14:32").EntireRow.Hidden = False
End If
End Sub

 

[Mahir64]

Sayfada yenileme yapmadığım için Ömer bey'in cevabını görmedim.. Altarnatif olarak kullanabilirsiniz.

 

[Sessizlik Lütfen]

Ben daha yeni excele basladım o yüzden tam bilmiyorum
Kodu nasıl ekleniyor

 

[Sessizlik Lütfen]

Teşekkür ederm Oldu