hücre boşsa seçtiğim satırlar/sütunlar gizlensin...

[projist]

soru ayrıntılı olarak ekdedir. teşekkürler...

 

[BG]

merhaba

soru ayrıntılı olarak ekdedir. teşekkürler...

doğru anladıysam dosyanız ektedir.

 

[uzmanamele]

merhaba
bu işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = "" Or Range("a1") = 0 Then
Range("A3:A25").Select
Selection.EntireRow.Hidden = True
Else: Range("A3:A25").Select
Selection.EntireRow.Hidden = False
End If
End Sub

 

[projist]

çok teşekkür ederim yalnız şöyle bir sorun oluştu, başka sayfadan değer alırken çalışmıyor? ne yapabilirim? ekde örnekle açıkladım.

 

[uzmanamele]

merhaba
makroyu tetiklemeniz gerekiyor.
ya aşağıdaki gibi kullanın yada biryerlerde mausu çift tıklayın

Private Sub Worksheet_Activate()
If Range("a1") = "" Or Range("a1") = 0 Then
Range("A3:A25").Select
Selection.EntireRow.Hidden = True
Else: Range("A3:A25").Select
Selection.EntireRow.Hidden = False
End If
End Sub

 

[projist]

evet tam olarak istediğim buydu yalnız ufak 2 sorun çıktı

ilki enter tuşuna basınca artık aşağı hücre yerine sağ hücreye gidiyor neden olabilir?

ikincisi de artık yaptığım işlemi geri alamıyorum, geri oku aktif değil? excelin ayarları mı değişti acaba makro yüzünden?

 

[projist]

pardon geri tuşu benim hatam , şuan düzelti sadece entera basınca seçili hücre sağa ilerliyor...

 

[uzmanamele]

pardon geri tuşu benim hatam , şuan düzelti sadece entera basınca seçili hücre sağa ilerliyor...

merhaba
makro çalışınca geri tuşu çalışmaz.
entere basınca seçili hücre sağa ilerliyorsa, oruç klavyenin başına vurmuşdur, iftardan sonra deneyiniz :hihoho:

 

[BG]

merhaba
makro çalışınca geri tuşu çalışmaz.
entere basınca seçili hücre sağa ilerliyorsa, oruç klavyenin başına vurmuşdur, iftardan sonra deneyiniz :hihoho:

...................

 

[projist]

şu formülü tamamlayamadım...

visual bilgim hiç yok. aşağıda formülde e4 hücresi 0 ise satırları gizliyor. başka sayfadaki e4 hücresi 0 ise satırları gizlemesi için formüle ne yazmam gerekir?


Private Sub Worksheet_Activate()
If Range("e4").Value = 0 Then
Rows("19:37").Select
Selection.EntireRow.Hidden = True
Else
Rows("19:37").Select
Selection.EntireRow.Hidden = False
End If
End Sub

 

[uzmanamele]

merhaba
syn projist,
sorunuza tatmin edici cevap alamadıysanız nedenlerini ve nasıl olması gerektiğini detaylı açıklamaya çalışarak ilk konu başlığı altında devam ediniz. yeni konu açmayınız!

 

[projist]

tamam. hücre farklı sayfada ise formül nasıl olmalı? aşağıda e4 hücresi farklı sayfada olsaydı nasıl olmalıydı?

Private Sub Worksheet_Activate()
If Range("e4").Value = 0 Then
Rows("19:37").Select
Selection.EntireRow.Hidden = True
Else
Rows("19:37").Select
Selection.EntireRow.Hidden = False
End If
End Sub