Activate olayında, makroyu şartlı çalıştırmak

[EKREM1661]

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

Çok Değerli Arkadaşlar..! Herkese hayırlı akşamlar..!
Yukarıdaki kod; B4 de değer yoksa satırı gizliyor, varsa açıyor..

Yalnız kod her halükarda çalıştığı için, geri al komutunu öldürüyor.
B4'de değer yoksa, satır da gizli ise (yani aranan şartlar gerçekleşmiş ise) kod çalışmasın.. Buna bir çözüm getirilirse çok iyi olacak..

 

[uzmanamele]

merhaba
yanl&#305;&#351; m&#305; anl&#305;yorum? &#351;artlar ger&#231;ekle&#351;ti&#287;i halde kod &#231;al&#305;&#351;mas&#305;n istiyorsan&#305;z, kodlar&#305; silseniz olmaz m&#305;?

 

[Levent Menteşoğlu]

&#304;lk sat&#305;r olarak a&#351;a&#287;&#305;daki ko&#351;ulu ilave ederek deneyin.

If [b4].Value = "" Or [b4].Value = 0 or Rows(4).Hidden = True then exit sub

 

[EKREM1661]

Sn.hocam..ilginize te&#351;ekk&#252;r ediyorum..
eylem ger&#231;ekle&#351;medi, neden acaba..
verdi&#287;iniz sat&#305;r, exit sub ile sonland&#305;, sonraki kodlar&#305; &#231;al&#305;&#351;t&#305;rmad&#305;

 

[EKREM1661]

Say&#305;n Uzmanamele..! &#351;&#246;yle anlatay&#305;m..

Diyelim ki; "B4" de veri yok veya s&#305;f&#305;r de&#287;erinde.. dolay&#305;s&#305;yla sat&#305;r zaten gizli durumda.. O halde kodun tekrar &#231;al&#305;&#351;mas&#305;na (gizlenmi&#351; sat&#305;r&#305; tekrar gizlemesine) gerek yok..

Di&#287;er &#351;art&#305;n&#305; ele al&#305;rsak; "B4" de veri(de&#287;er) olmu&#351; olsun.. ilgili 4.nc&#252; sat&#305;r, g&#246;r&#252;n&#252;r durumda, o halde kod &#231;al&#305;&#351;mas&#305;n.. &#199;&#252;nk&#252; istenilen &#351;art (verili sat&#305;r&#305;n a&#231;&#305;k olmas&#305; hali ) zaten olu&#351;mu&#351; haz&#305;r durumda..

&#304;&#351;in &#246;z&#252; &#351;u;
B4'de veri yok, sat&#305;r&#305; da gizli ise kod &#231;al&#305;&#351;mas&#305;n, Ancak veri olmad&#305;&#287;&#305; halde, sat&#305;r&#305; a&#231;&#305;k ise, kod &#231;al&#305;&#351;arak sat&#305;r&#305; gizlesin..

B4'de veri var, sat&#305;r&#305; da a&#231;&#305;k ise kod yine &#231;al&#305;&#351;mas&#305;n, Ancak veri oldu&#287;u halde, sat&#305;r&#305; gizli ise, kod &#231;al&#305;&#351;arak sat&#305;r&#305; a&#231;s&#305;n..

 

[Skorpiyon]

Say&#305;n Ekrem1661,

E&#287;er yanl&#305;&#351; anlamad&#305; isem, istedi&#287;iniz a&#351;a&#287;&#305;daki &#351;ekilde midir ?

Sub D&#252;&#287;me1_T&#305;klat()
If Rows(4).Hidden = False Then
If [b4].Value = "" Or [b4].Value = 0 Then Rows(4).Hidden = True
End If
If Rows(4).Hidden = True Then
If [b4].Value <> "" Then Rows(4).Hidden = False
End If
End Sub

 

[Ayhan Ercan]

B4'de veri yok, satırı da gizli ise kod çalışmasın, Ancak veri olmadığı halde, satırı açık ise, kod çalışarak satırı gizlesin..

B4'de veri var, satırı da açık ise kod yine çalışmasın, Ancak veri olduğu halde, satırı gizli ise, kod çalışarak satırı açsın..

Merhaba Sn EKREM1661

İstemiş olduğunuz durum ile ilk mesajda vermiş olduğunuz kodlar birbirini tamamlıyor.

İlk mesajdaki kodlarınızı inceledim, denedim. Zaten istemiş olduğunuzu kendi kodunuz gerçekleştiriyor.

Sn Şaban Sertkaya hocamında verdiği kod da çalışıyor.

Affınıza sığınarak soruyorum.

B4 hücresini doldur boşalt ile deneme yanılma yapıyormusunuz? Dikkat edin, ben ilk denemelerimde B4 yerine A4 hücresini kullanıp denemeye çalışmışım. Böyle olunca "Hakikaten sıkıntı var" diye düşündüm. Sonradan farkına vardımki "deneme-yanılmayı" B4 de değil A4 de yapmışım...

Başta da dediğim gibi, sizin istediğiniz her durum ve koşul kendi yazmış olduğunuz kodda var...

 

[EKREM1661]

Değerli Arkadaşlar..! yukarıda yöneltmiş olduğum soruya dair, sonucu bildirme konusu biraz geç oldu.. Fakat Sn.Şaban Sertkaya'nın kodunu bir örnek dosyada ekledim.. Uzman arkadaşlarımızdan bir uyarlama gerekiyor.

 

[EKREM1661]

Her nedense yukar&#305;da, sn.Levent Bey'in kodunu da &#231;al&#305;&#351;t&#305;ramad&#305;m.