satır gizlemek

[okavut]

ff sayfasında a1=1 ise sayfa 1 de b365 ile b430 arasının gizlenmesi için nasıl bir kod yazmak lazım.
teşekkür ederim
Ekli dosyayı görüntüle idari şartname1.xls

 

[uzmanamele]

merhaba
aşağıdaki kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
Sheets("Sayfa1").Range("B1:B65536").EntireRow.Hidden = False
If [a1].Value = 1 Then
Sheets("Sayfa1").Range("B365:B400").EntireRow.Hidden = True
End If
End Sub

belki bu kodun çalışma mantığı daha iyidir

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If [a1].Value <> 1 Then
Sheets("Sayfa1").Range("B365:B400").EntireRow.Hidden = False
Else
Sheets("Sayfa1").Range("B365:B400").EntireRow.Hidden = True
End If
End Sub

 

[okavut]

sayın uzmanamele ilginize teşekkür ederim hemen deneyeceğim

 

[okavut]

sayın uzmanamele
2 kodu denedim sorunsuz çalışıyor elinize sağlık teşekkür ederim.