Satırı şartlı gizleyerek, Geri Al komutunu kullanabilme..

[EKREM1661]

Saygıdeğer Arkadaşlar..!

Konu; daha önce forum gündemine getirildi; fakat, sanırım tam ifade edilemediğimden dolayı çözüme ulaşamadım..

Konu; satır gizleme konusunda, kodun mükerrer çalışmasını önlemek için idi.. Bu suretle "Geri Al" komutunu kullanabilme avantajı doğacaktı..

Ekli dosyada daha anlaşılır izahat mevcut.. Arkadaşlarımız konuya bir el atarsa çok makbule geçecek..

 

[Levent Menteşoğlu]

Sayfa1 deki kodu silerek sayfa2 ye aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If Sheets("sayfa1").Rows(4).Hidden = False Then _
Sheets("sayfa1").Rows(4).Hidden = True
End Sub

 

[EKREM1661]

Çok değerli üstad Levent Bey..! Herşey için teşekkürlerimi ifade ettikten sonra; tam ifade edemediğim bir ilave söz konusu olacak.. Sizlerede zahmet verdiğimizin bilincinde olarak;

Yukarıdaki kod; Sayfa2!A1'de veri olmayınca, Sayfa1!B4 satırını gizliyor,
Bir de; Sayfa2!A1 de veri olunca, Sayfa1!B4 satırını açmış olsa....

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If [a1] = "" And Sheets("sayfa1").Rows(4).Hidden = False Then
Sheets("sayfa1").Rows(4).Hidden = True
ElseIf [a1] <> "" And Sheets("sayfa1").Rows(4).Hidden = True Then
Sheets("sayfa1").Rows(4).Hidden = False
End If
End Sub

 

[EKREM1661]

Sevgili hocam..! çok harika olmuş, ellerine ve bilgine sağlık..teşekkür ediyorum ve muvaffakiyetler diliyorum..

 

[sufferers]

arkadaşlar bu işlemi bir sayfada bir hücreden (b4)fazla yapmak için yeniden aynı komutu yazmakmı gerek yoksa aynı komuta bağlıya bilirmiyiz