Koşullu satır gizleme

[Boramir]

Arkadaşlar;

Eğer satırda "0" varsa satırı tamamen gizlemek istiyorum.

Yani;
A B
1 2
2 0
3 4
0 1
3 1
4 3
0 0
3 4
0 0

şeklindeki tablonun

1 2
3 4
3 1
4 3
3 4
şeklinde görünmesini istiyorum.

Nasıl yapabilirim?

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Sub satir_gizle()
Range("A1:A65536").EntireRow.Hidden = False
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value = "0" Or Cells(i, "B").Value = "0" Then
        Cells(i, "A").EntireRow.Hidden = True
    End If
Next
MsgBox "Satırlar Gizlendi..!!", vbCritical
End Sub

 

[Seyit Tiken]

Aşağıdaki gibi deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Target.Column < 3 And Target = 0 Then Target.Rows.Hidden = 1
hata:
End Sub

 

[mab82]

Aşağıdaki kodlar işinizi görür.

Sub satir_gizle()
Range("A1:A65536").EntireRow.Hidden = False
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value = "0" Or Cells(i, "B").Value = "0" Then
        Cells(i, "A").EntireRow.Hidden = True
    End If
Next
MsgBox "Satırlar Gizlendi..!!", vbCritical
End Sub

eski bir konu farkındayım ama benim istediğim gibi bir kod bu ancak satırları sırasıyla gizlediği için 1800 satırı tek tek tarayıp gizlemesi çok zaman alıyor.

Benim istediğim A sütununda her satırda EĞER(B1="";1;"") şeklinde B sütununda bulunan satırın boş olması durumunda A sütunundaki o satıra 1 yazdırdım ve bu 1 değeri olan satırları gizlemek istiyorum. Bunu en hızlı şekilde nasıl yaptırabiliriz. ?_

 

[Orion1]

Excelin ootamatik süz özelliğini kullanınız.

eski bir konu farkındayım ama benim istediğim gibi bir kod bu ancak satırları sırasıyla gizlediği için 1800 satırı tek tek tarayıp gizlemesi çok zaman alıyor.

Benim istediğim A sütununda her satırda EĞER(B1="";1;"") şeklinde B sütununda bulunan satırın boş olması durumunda A sütunundaki o satıra 1 yazdırdım ve bu 1 değeri olan satırları gizlemek istiyorum. Bunu en hızlı şekilde nasıl yaptırabiliriz. ?_

 

[kestus]

Benim de buna benzer bir sorum olacak, 1.sütundaki veriyi düşey arattırarak 2.sütuna kodunu getirtiyorum. Ancak 1. sütuna henüz veri girilmemişse formüllü 2.sütunda #YOK mesajı görünüyor. Bu mesaj görünmesin ama o hücre formüllü kalsın, ilk sütuna veri girdiğim anda bu hücreye de kod gelsin.

Alttaki #YOK lar görünmesin yani. Makro olmadan mümkün müdür?

adı_____kodu
ali______3321
veli_____2355
________#YOK
________#YOK
________...

 

[Orion1]

formül çubuğundan(fx) ehatalıysa veya eyoksa formüllerini bulup inceleyiniz.

Benim de buna benzer bir sorum olacak, 1.sütundaki veriyi düşey arattırarak 2.sütuna kodunu getirtiyorum. Ancak 1. sütuna henüz veri girilmemişse formüllü 2.sütunda #YOK mesajı görünüyor. Bu mesaj görünmesin ama o hücre formüllü kalsın, ilk sütuna veri girdiğim anda bu hücreye de kod gelsin.

Alttaki #YOK lar görünmesin yani. Makro olmadan mümkün müdür?

adı_____kodu
ali______3321
veli_____2355
________#YOK
________#YOK
________...

 

[kestus]

Sn.Evren Gizlen;

Söylediğiniz kodları inceledim ama sonuca ulaşamadım. EBOŞSA ve EHATALIYSA kodları anladığım kadarı ile EĞER kodu gibi mantıksal sınama kodları, sonuç olarak "DOĞRU" ya da "YANLIŞ" ile sonuçlanan sınamalar yapıyorlar.

Benim istediğim ise, #YOK hatasının hücrede görünmemesi o kadar. Görsel bir müdahale sadece yani.

 

[kestus]

Halletim. Eğer kodu ile birlikte kullandım ve düşeyara formülünü mantıksal sınamanın iki tarafına da uyguladım.

=EĞER(EHATALIYSA(DÜŞEYARA(A7;ŞABLON!A:C;3;0));"";DÜŞEYARA(A7;ŞABLON!A:C;3;0))

Yardım için teşekkür ederim.

 

[mab82]

Excelin ootamatik süz özelliğini kullanınız.

Evren Bey yine cool'luğunuzu konuşturdunuz

Neden düşünemedim hayret ediyorum ama filitreleme ile tek dokunuşla 1 olanları göstermiyorum ve istediğime ulaşıyorum

Çok teşekkür ederim. Verdiğiniz ışıkla aydınlandı yine zihinler

 

[LaNCeR]

Merhabalar;

Bir sorum olacak kosullu satir gizleme hakkinda. Bir tablom var, tablonun D8 hucresinde asagi acilan bir menu var. menude iki parametre var (VAR/YOK). Var secili iken 9. satir gosterilsin. Yok secildiginde ise 9. satir gizlensin istiyorum. Bunun nasil yapildigi konusunda yardiminiza ihtiyacim var.

 

[Orion1]

Merhabalar;

Bir sorum olacak kosullu satir gizleme hakkinda. Bir tablom var, tablonun D8 hucresinde asagi acilan bir menu var. menude iki parametre var (VAR/YOK). Var secili iken 9. satir gosterilsin. Yok secildiginde ise 9. satir gizlensin istiyorum. Bunun nasil yapildigi konusunda yardiminiza ihtiyacim var.

Ekli dosyayı inceleyiniz.

DOSYAYI İNDİR

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D8]) Is Nothing Then Exit Sub
If Target.Value = "YOK" Then Rows("9").Hidden = True
If Target.Value = "VAR" Then Rows("9").Hidden = False
End Sub

 

[LaNCeR]

Vermis oldugunuz cevap icin cok tesekkur ediyorum. Uyguladim isime cok yaradi fakat kendim de editlemek istersem parametreleri nasil degistirebilirim. Hem gizlenecek satir hemde kosul parametresini,

Soyleki,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D8]) Is Nothing Then Exit Sub
If Target.Value = "YOK" Then Rows("9").Hidden = True
If Target.Value = "VAR" Then Rows("9").Hidden = False
If Intersect(Target, [D10]) Is Nothing Then Exit Sub
If Target.Value = "YOK" Then Rows("11").Hidden = True
If Target.Value = "VAR" Then Rows("11").Hidden = False
If Intersect(Target, [D12]) Is Nothing Then Exit Sub
If Target.Value = "YOK" Then Rows("13").Hidden = True
If Target.Value = "VAR" Then Rows("13").Hidden = False
If Intersect(Target, [D15]) Is Nothing Then Exit Sub
If Target.Value = "HAYIR" Then Rows("16").Hidden = True
If Target.Value = "" Then Rows("16").Hidden = False
End Sub

Bu sekilde girdigimde calismiyor.

Yani sunu anlatmak istiyorum. D8 hucresinde sartli bi kosul olusturduk bunu d10 icinde yapmam gerekiyor fakat d10 hem 11. hemde 12. satiri gizlemesi gerekiyor. Yukaridaki gibi sizin kodunuzu kopyaladigimda sadece ilk kod calisiyor benim kopyaladiklarim calismiyor. Calismama sebebi nedir?

birde baslangictada satirlar gizli olmasi gerekmekte VAR degerini girdigimizde satirlar acilip degerleri istemesi gerekiyor.