Adresi boş olan formül Satırını Otm.Gizlemek

[EKREM1661]

Saygıdeğer Arkadaşlar..! Tüm foruma selam olsun..! Şöyle bir uyg.gerekti;

Satır.17 (B17,C17,D17,E17) de formüller var, başka sayfadan düşeyara yöntemiyle veri alıyor. (örneği ilişikte)

Eğer bu formüllü hücreler; başvuru yaptıkları adreslerden veri yüklenmemişse, yani adreslerin hepsi boş ise; satır.17 gizlensin, değilse açık kalsın.

Bu makro her sayfaya dönüşlerde, yani sayfa aktif olduğu durumlarda çalışsın.

 

[Ayhan Ercan]

Dosyanız ekte....

Private Sub Worksheet_Activate()
If [e17].Value = "" Or [e17].Value = 0 Then
Rows(17).Hidden = True
ElseIf [e17].Value <> "" Then
Rows(17).Hidden = False
End If
End Sub

 

[EKREM1661]

Çok teşekkür ediyorum sayın Ayhan Ercan..! güzel olmuş.. 1.durum gerçekleşti, 2.durum (combobox'tan seçim yapılınca boş olması halinde satırın gizlenmesi) ise çok önemli olmamasına rağmen, zor olmayacaksa olsa da iyi olur..

Her halükarda teşekkür ediyorum, ilgilendiniz ve çözüme kavuşturdunuz..

 

[ibrahim_44]

Ayhan Ercan üstadımın vermiş olduğu aynı kodları değiştirmeden worksheet selection change olayının altınıda yazınız. yani aşağıdaki gibi değiştirebilrsiniz kodları

Private Sub Worksheet_Activate()
If [e17].Value = "" Or [e17].Value = 0 Then
Rows(17).Hidden = True
ElseIf [e17].Value <> "" Then
Rows(17).Hidden = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [e17].Value = "" Or [e17].Value = 0 Then
Rows(17).Hidden = True
ElseIf [e17].Value <> "" Then
Rows(17).Hidden = False
End If
End Sub