Excelde İsteĞİm Satirlari Nasil Gİzleyebİlİr Ve AÇabİlİrm ?

[makarax]

ArkadaŞlar Excelde İsteĞİm Bazi Satirlari Gİzlemek Ve GÖrmek İÇİn Ne Yapabİlİrİm?

 

[Korhan Ayhan]

Selamlar,

Yaptığınız açıklamaya göre mouse ile istediğiniz satırı veya satırları seçin. Seçtiğiniz satırların herhangi birinin üzerinde sağ klik yapın ve gizle seçeneğini seçin. Göstermek içinse gizlemiş olduğunuz satırın bir üstündeki ve bir altındaki satırları mouse ile seçip sağ klik yapın ve göster seçeneğini seçin. Umarım faydası olur.

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz. Seçili alanı Gizle/Göster işlemini yapar.

 

[makarax]

teşekkür

yardımınız için teşekkür ederim.
ama tam olarak yapmak isteğidiğim şey aslında
hücrenin birine "bitti" yazdığımda o hücrenin satırının gizlenmesi
ve bir butonla gizlenen satırların geri gelmesi. bu konuda yardım edebilirmisiniz ?

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.

 

[makarax]

teşekkür

cost control bilgilerini benimle paylaştığın için teşekkür ederim. modülün işime yaradı. programı biraz daha geliştirmek için 1 sorum daha olacak. şimdi "bitti" yazan hücrenin satırını gizleyebiliyoruz. f12 ile tekrar o satırları gösteriyoruz. fakat f12 ile gizlediğimiz satırları açtıktan sonra "bitti" yazan tüm hücrelerin satırlarını tekrar bir tuş ile 1 kerede nasıl gizleyebiliriz. umarım anlatabilmişimdir emeğin için tekrar saolasın

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz. Umarım faydası olur.

 

[makarax]

Bu Ne Hzi Hocam

Mesaji Yazdim.. Neter A Bastim Sayfayi Yeniledim YazmiŞin Programi...
Ne Diyem Saolasin.

 

[Seyit Tiken]

Bu kodları bir deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "Bitti" Then Target.Rows.Hidden = True
End Sub

Sub Düğme1_Tıklat()
Cells.Rows.Hidden = False
Range("A1").Select
End Sub

 

[serdar_smyrna]

İyi Çalışmalar Herkese,

Ekte örnek bir dosya gondermeye calistim, excel 2007 de ama 1997-2003 uyumlu mod da kaydedılmıs sekılde umarım acar.

Sade şekilde anlatmam gerekirse eger:

A2-A3-A4 hucrelerinde sırasıyla 1-2-3 yazıyor. A1 hucresine bu uc degerden birini girdigimde o satır gorunsun diger 2 satır gizlensin, mumkun mudur? mumkunse eger nasıl yapabilirim?

 

[serdar_smyrna]

Örnek Dosya. İstenilen numara kısmına 0001 girdigimde 0002 ve 0003 gizlensin istiyorum. Tabi bu liste sonrasında uzayarak gidecek.

 

[Seyit Tiken]

Aşağıdaki kodu ilgili sayfanın kod bölümüne yapıştırıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If [B1] = 1 Then Rows("5:6").Hidden = 0
If Not [B1] = 1 Then Rows("5:6").Hidden = 1
If [B1] = 2 Then Rows("7:8").Hidden = 0
If Not [B1] = 2 Then Rows("7:8").Hidden = 1
If [B1] = 3 Then Rows("9:10").Hidden = 0
If Not [B1] = 3 Then Rows("9:10").Hidden = 1
Application.ScreenUpdating = True
End Sub

 

[serdar_smyrna]

çok tesekur ederim yardımınız için, peki hepsini tekrar alt alta gormek için ne yapmalı? kodları silmek manuel bir cozum sagliyor ama pratik yolu nedir?

 

[Seyit Tiken]

Bir sürü çözüm ve kısa yolları vardır. Bunlardan biri : İlgili hücreye 4 yazdığınızda gizli satırlar görünür moduna geçer. Aşağıdaki kod satırını, önceki kodların altına yazınız.

If [B1] = 4 Then Rows("5:10").Hidden = 0

 

[serdar_smyrna]

Tekrar teşekurler Seyit Bey, vakti zamanında basic te ufak programlar yapabilen biri olarak yazdıgınız kodları anlamaya calıstıgımda, sanırım her satır için ayrı ayrı işlem yaptırmıssınız? Mesela şu anda 0004 satırını ekledigimde işlem yapmıyor. Ben bu listenin uzayacagını zaman içinde yaklasık bin satıra yakın olacagını tahmin ediyorum. O halde bu yöntem kullanılamaz sanırım. Kod yazımında belli bir aralık vererek bu işlemi yaptırma gibi bir ihtimal var mı?

 

[serdar_smyrna]

Araya bayram girince benim sorum yanitsiz kaldi baslığı yukarılara tasımak ıcın bu mesajı atıyorum. Seyit Bey den baska yardımcı olabilecek arkadaslarda varsa memnun olurum.

 

[Skorpiyon]

Sayın serdar smyrna,

İstediğiniz haliyle dosya ektedir. Ben 1000 satırlık ayarladım.
Tüm kayıtları görebilmek için de B1 hücresine 1001 yazın.

Siz isterseniz Alt+F11 ile kod bölümüne geçip 1000 gördüğünüz rakamı yükseltebilirsiniz. Tabi tüm kayıtların görünmesi için de kodlarda 1001 gördüğünüz yeri değişiklik yaptığınız rakamdan 1 fazla yazarsınız.

Saygılarımla...

 

[serdar_smyrna]

Sayın Sertkaya, yardımınız için tesekurler ama, bir cozum saglayamadi sanırım. Ben satırları ikişerli olarak kullanmıştım gonderdıgım ornekte, siz tek satıra indirgemişsiniz bu H sutunundan sonra olan bolumlerde yapmak istedigim calısmayı engellıyor. ayrıca ben mi beceremedim bilmiyorum ama gizleme olayıda çalışmıyor, bir kontrol etme şanısınız var mı?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. B1 hücresindeki değeri sildiğinizde tüm satırlar görünür.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Application.Intersect(Target, [B1]) Is Nothing Then Exit Sub
    If Target = "" Then Cells.EntireRow.Hidden = False: Exit Sub
    Set BUL = [A:A].Find(Target, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    Cells.EntireRow.Hidden = False
    If BUL.Row < 7 Then
    Rows(BUL.Row & ":" & BUL.Row + 1).Hidden = False
    Rows(BUL.Row + 2 & ":" & 65536).Hidden = True
    ElseIf BUL.Row > 6 Then
    Rows(5 & ":" & BUL.Row - 1).Hidden = True
    Rows(BUL.Row & ":" & BUL.Row + 1).Hidden = False
    Rows(BUL.Row + 2 & ":" & 65536).Hidden = True
    End If: End If
    Application.ScreenUpdating = True
End Sub

 

[Skorpiyon]

Satır gizleme olayı bende oldukça düzgün çalışıyor.

ve satırlar tek kalmak kaydı ile göndermiş olduğum 17 nolu mesajdaki örneğin F5 hücresindeki formülü;

=+D4-E4-I6-K6-M6-O6

olarak değiştirirseniz istediğiniz olur sanırım.

Saygılarımla...