satır gizleme ama seçmeli

[Yesilyurtlu]

hayırlı akşamlar

belirli bir sütunda hücre değeri "seçmeli olacak" 0 ise ya da 5 ise ya da herhangi bir sayı girildiği zaman o hücrelerin satırlarını gizleyecek ve açacak bir makro mümkünse paylaşabilir misiniz? gizleyeceğim sayıyı ben şeçebilmeliyim

 

[Orion1]

Otomatik filterde özel i seçiniz.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?
A sütunundaki değer E1, F1 ve G1 hücresine eşit olduğunda satır gizlenir, umarım işinize yarar.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Target.Value = [E1] Or _
   Target.Value = [F1] Or _
   Target.Value = [G1] Then Rows(Target.Row).Hidden = True
Son:
End Sub

 

[Yesilyurtlu]

Necdet abi ;
Butona klik yaptığımız zaman değer giriniz uyarısı çıksa ve biz bir değer girdiğimiz zaman o değere sahip sütunda ki hücrelerin satırlarını gizlese bu şekilde mümkün mü

 

[Necdet]

Merhaba,
Tabi olası, neden olmasın?

Herhangi bir hücrenin değeri mi , bir sütundaki değerler mi yoksa o an bulunulan sütundaki değerler mi kontrol edilerek satır gizlenecek. Bunu bilmekte yarar var?

 

[Seyit Tiken]

Sub satırgizle()
On Error Resume Next
s = InputBox("Satır No. Giriniz")
Cells(s, 1).Rows.Hidden = True
End Sub

Bu şekilde kendinize uyarlayın.

 

[Yesilyurtlu]

Nejdet abi ve Seyit Abi satır no giriniz yerine sayı giriniz dememiz mümkün mü ?
Örneğin "0" desek ve sıfır olan tüm satırları gizlese ve göster dediğimiz de de gösterse ?
Abi yardımlarınızı bekliyorum inşallah

 

[Necdet]

Merhaba,

Herhangi bir sütun söylemediğiniz için kodları genel amaçlı yazdım.
Aşağıdaki kodları bir modül ile ilişkilendirmeniz gerekir.

Sub SatirGizle()
Dim Adet As Integer
Dim Hucre As Range
Adet = Application.InputBox("Hangi Değere Sahip Olan Hücrenin Satırını Gizleyim ?", "Değer Alma", 0, Type:=1)
If Adet = False Then Exit Sub
For Each Hucre In ActiveSheet.UsedRange
    If Hucre.Value = Adet Then Rows(Hucre.Row).Hidden = True
Next Hucre
End Sub

Sub SatirGoster()
Rows.Hidden = False
End Sub

 

[yağızbaba]

Üstad teşekkürler bende faydalandım.

 

[Yesilyurtlu]

Nejdet abi tam istediğim gibi eline sağlık yalnız "0" (SIFIR) değerini gizlemiyor. Bakabilir misin abi

 

[Necdet]

Merhaba,
Evet Sıfır değeri sakatlık çıkartıyor, çünkü Sıfır değeri aynı zamanda False yani Yanlış anlamına da geliyor.

Yani Vazgeçtiğinizde de Değişken Sıfır değerini alıyor.

Şimdilik aklıma bir çözüm gelmedi ama şu şekilde kullanabilirsiniz. (Vazgeçmeyi dikkate almazsanız eğer)

Sub SatirGizle()
Dim Adet As Integer
Dim Hucre As Range
Adet = Application.InputBox("Hangi Değere Sahip Olan Hücrenin Satırını Gizleyim ?", "Değer Alma", 5, Type:=1)
For Each Hucre In ActiveSheet.UsedRange
    If Hucre.Value <> "" And Hucre.Value = Adet Then Rows(Hucre.Row).Hidden = True
Next Hucre
End Sub

 

[Yesilyurtlu]

NEJDET ABİ BU ŞEKİLDE İŞİMİ GÖRDÜ ABİ teşekkür ederim

 

[Necdet]

Güle güle kullanınız, Vazgeçme durumunda otomatik olarak Sıfır değerlerini siler, bunu bilin.

Daha da olmazsa Form kullanarak çözüme ulaşırız.

 

[ikikan]

iyi günler bir sorunum var örnek olarak anlata bilirsem


başvuru yapılan hücre ( başka sayfada olcak) 0 sa satır gizlensin ama 1 ise görünsün
bunu nasıl yaparız yardımlarınız için şimdiden tesekürler

=EĞER(a1=0;"gizle";"göster")

 

[Necdet]

Merhaba,

Örnek dosya olsaydı daha iyi olurdu.

Tahmini birşeyler yapmaya çalıştım, amaç fikir vermek.

Sayfa1 deki A sütunu değeri 0 olduğunda buna bağlı olan Sayfa2 deki Satır gizlenir.

Sayfa1 deki kodlar :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target.Value = 0 Then
    Sheets("Sayfa2").Rows(Target.Row).Hidden = True
Else
    Sheets("Sayfa2").Rows(Target.Row).Hidden = False
End If
End Sub

 

[ikikan]

eline saglık tam istedigim olmuş teşekür ederim

 

[ikikan]

Merhaba,

Örnek dosya olsaydı daha iyi olurdu.

Tahmini birşeyler yapmaya çalıştım, amaç fikir vermek.

Sayfa1 deki A sütunu değeri 0 olduğunda buna bağlı olan Sayfa2 deki Satır gizlenir.

Sayfa1 deki kodlar :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target.Value = 0 Then
    Sheets("Sayfa2").Rows(Target.Row).Hidden = True
Else
    Sheets("Sayfa2").Rows(Target.Row).Hidden = False
End If
End Sub

teşekür ederima ama bir sorunla karşılaştım size yapmak istedigim tabloyu gönderiyorum yardımlarınız için şimdiden teşekür