Satır Gizle Makrosu

[karagöz55]

Arkadaşlar,
Ekli dosyada ben bir tane posta listesi yapıyorum.
Posta listesindeki verilerin sayıları zaman zaman değişiyor.
Ben bir sayfa oluşturdum. 150 satırlık. Ancak mesala bugün yapacağım listede 30 kişi var. Başka bir 50 tane oluyor, bu sayı her gün değişiyor Bu nedenle , bu 30 veya mevcuda göre 50 kişiden sonraki satırları gizleyebilecek bir makro arıyorum.Bütün denemelerime rağmen bir türlü beceremedim.
Yardımcı olacak arkadaşlara şimdiden teşekkürü bir borç bilirim.

 

[Orion1]

Buyurun dosyanız.

Sub gizle()
Dim i As Integer
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("A5:A154").EntireRow.Hidden = False
For i = 5 To 154
    If Cells(i, "C").Value = "" Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
Sub goster()
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("A5:A154").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

 

[karagöz55]

SAYIN EVREN GİZLEN BEY'E
Sonsuz teşekkürler
Tam istediğim gibi olmuş,
Allah beyninize, bilginize ve bilgisayarınıza kuvvet versin.

 

[Orion1]

SAYIN EVREN GİZLEN BEY'E
Sonsuz teşekkürler
Tam istediğim gibi olmuş,
Allah beyninize, bilginize ve bilgisayarınıza kuvvet versin.

Bil mukabele , sizede.

 

[abtani]

Sayın Evren Gizlen hocam;
2 nolu mesajınızdaki dosyanızdaki [A1;H158] yazdırma alanı için
1-Gizle dedikten sonra oluşan verileri "TOPLU YAZDIR" adlı sayfaya aynen kopyala-yapıştır yapacak "AKTAR" makrosu ile,
2-Her sayfada üst bilgi olarak [A3;H3] gelecek,
3-Her sayfa sonunda alt bilgi olarak [A158;H158] satırını gelecek,
4-Her bir sayfada 30 satır yazdırılacak,
bir "YAZDIR" makrosuda eklemeniz mümkünmüdür?
Alttaki linkte yapmak istediğim -anlatamadığım-çözüm elde edemediğim-yeterli yardım edinemediğim çalışmam için çok yararlı olacak.
http://www.excel.web.tr/showthread.php?t=48990

 

[Orion1]

Sayın Evren Gizlen hocam;
2 nolu mesajınızdaki dosyanızdaki [A1;H158] yazdırma alanı için
1-Gizle dedikten sonra oluşan verileri "TOPLU YAZDIR" adlı sayfaya aynen kopyala-yapıştır yapacak "AKTAR" makrosu ile,
2-Her sayfada üst bilgi olarak [A3;H3] gelecek,
3-Her sayfa sonunda alt bilgi olarak [A158;H158] satırını gelecek,
4-Her bir sayfada 30 satır yazdırılacak,
bir "YAZDIR" makrosuda eklemeniz mümkünmüdür?
Alttaki linkte yapmak istediğim -anlatamadığım-çözüm elde edemediğim-yeterli yardım edinemediğim çalışmam için çok yararlı olacak.
http://www.excel.web.tr/showthread.php?t=48990

Ekli dosyayı inceleyiniz.

Sub AKTAR()
Dim sat As Byte, son As Byte, don As Double, t As Byte
Dim k As Byte
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("TOPLU YAZDIR")
son = s1.Cells(158, "C").End(xlUp).Row
If son < 5 Then
    MsgBox "Yazdırılacak Veri bulunamdı..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
sat = 5
s1.Range("A3:H3").Copy s2.Range("A3")
s2.Range("A4:H37").ClearContents
don = (son - 4) / 30
don = WorksheetFunction.RoundUp(don, 0)
For k = 1 To don
    For t = 1 To 30
        If Range("A" & sat).EntireRow.Hidden = False Then
            s1.Range("A" & sat & ":H" & sat).Copy s2.Range("A" & t + 4)
            sat = sat + 1
        End If
    Next t
    s1.Range("A158:H158").Copy s2.Range("A" & t + 6)
    s2.Range("A2:H37").PrintOut
    s2.Range("A4:H37").ClearContents
Next
Set s1 = Nothing
Set s2 = Nothing
MsgBox "Yazma İşlemi tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[abtani]

Yazdır komutu uygulandığında [A158;H158] satırı her sayfada hem üst bilgi,hemde alt bilgi olarak gelmekte.Sadece alt bilgi olarak gelmesi için düzenlemiş olduğunuz kod da nasıl bir düzenleme yapmalıyım.Teşekkür ederim.

 

[Orion1]

Yazdır komutu uygulandığında [A158;H158] satırı her sayfada hem üst bilgi,hemde alt bilgi olarak gelmekte.Sadece alt bilgi olarak gelmesi için düzenlemiş olduğunuz kod da nasıl bir düzenleme yapmalıyım.Teşekkür ederim.

Gerekli değişikliği yaptım.
Dosya 6 numaralı mesajda.

 

[abtani]

Sayın Evren Gizlen;
Emeğinize sonsuz teşekkürler,Saygılarımla...

 

[Orion1]

Sayın Evren Gizlen;
Emeğinize sonsuz teşekkürler,Saygılarımla...

Rica ederim.
Saygılar benden.

 

[karagöz55]

Saygıdeğer Hocalarım ve değerli arkadaşlarım,
Ben bu formun bu özelliğini çok seviyorum.
Öncelikle aradığınız soruya çok çabuk cevap bulabiliyorsunuz.
İkincisi de aradığınız konu ile alakalı olarak sizin aklınıza gelmeyen formül ve çözümler sayın hocalarımızın ve değerli forum üyesi arkadaşların aklına gelebiliyor.
Ben bu konuyu açarken basit bir posta listesini çabuk yoldan nasıl yapabilirim diye düşünürken benim de aklıma gelmeyen güzellikler sayın hocam Evren Gizlen Bey’in ve Aptani arkadaşımızın aklına gelmiş ve ilk önce düşündüğüm basit posta listesi çok daha güzel bir hale gelmiş.
Ancak ben bu AKTAR makrosunu çalıştırdığım zaman oluşturduğum form sayfasında mesela ben bugün sadece 30 kişilik bir liste yapmak isterken aktarıp yazarken gizlenen satırlardaki diğer verileri de yani boş satırları da yazdırıyor. Ben formülü şöyle bir inceledim. Acaba düzeltebilir miyim? Diye ancak başaramadım.
Sayın hocalarımdan bu konunda yardım istiyorum,
Yani aktar yaz dediğimiz zaman sadece bugün oluşturduğumuz listedeki dolu satırlar yazsın, diğer gizlenen satırlar yazdırılmasın.
Emeği geçen tüm arkadaşlara şimdiden teşekkür ederim.

 

[Orion1]

Saygıdeğer Hocalarım ve değerli arkadaşlarım,
Ben bu formun bu özelliğini çok seviyorum.
Öncelikle aradığınız soruya çok çabuk cevap bulabiliyorsunuz.
İkincisi de aradığınız konu ile alakalı olarak sizin aklınıza gelmeyen formül ve çözümler sayın hocalarımızın ve değerli forum üyesi arkadaşların aklına gelebiliyor.
Ben bu konuyu açarken basit bir posta listesini çabuk yoldan nasıl yapabilirim diye düşünürken benim de aklıma gelmeyen güzellikler sayın hocam Evren Gizlen Bey’in ve Aptani arkadaşımızın aklına gelmiş ve ilk önce düşündüğüm basit posta listesi çok daha güzel bir hale gelmiş.
Ancak ben bu AKTAR makrosunu çalıştırdığım zaman oluşturduğum form sayfasında mesela ben bugün sadece 30 kişilik bir liste yapmak isterken aktarıp yazarken gizlenen satırlardaki diğer verileri de yani boş satırları da yazdırıyor. Ben formülü şöyle bir inceledim. Acaba düzeltebilir miyim? Diye ancak başaramadım.
Sayın hocalarımdan bu konunda yardım istiyorum,
Yani aktar yaz dediğimiz zaman sadece bugün oluşturduğumuz listedeki dolu satırlar yazsın, diğer gizlenen satırlar yazdırılmasın.
Emeği geçen tüm arkadaşlara şimdiden teşekkür ederim.

Önce Gizle butonuna basınız.
Böylece satırlar gizlenecektir.Aktar tuşuna bastğınızda gizlenen satırlar yazdırılmayacaktır.

 

[karagöz55]

Sayın Evren Gizlen Hocam,
ben sizin daha önce vermiş olduğunuz sub göster() ve sub gizle() makrolarınızı kullanarak bir tagglebuton yaptım ve aşağıdaki kodları kullandım. Private Sub tglSatirGosterGizle_Click()
If tglSatirGosterGizle.Caption = "Satır Ekle" Then
tglSatirGosterGizle.Caption = "Satır Gizle"
Else
If tglSatirGosterGizle.Caption = "Satır Gizle" Then
tglSatirGosterGizle.Caption = "Satır Ekle"
End If
End If
If tglSatirGosterGizle.Value = Ture Then
Dim i As Integer
Sheets("POSTA LİSTESİ").Select
Application.ScreenUpdating = False
Range("A5:A154").EntireRow.Hidden = False
For i = 5 To 154
If Cells(i, "C").Value = "" Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
Else
Sheets("POSTA LİSTESİ").Select
Application.ScreenUpdating = False
Range("A5:A154").EntireRow.Hidden = False
Application.ScreenUpdating = True
End If

End Sub

Proğramı bu haliyle kullanırken herhangi bir sorun yok, ancak satırlar gizlenmiş olduğu halde bile AKTAR makrosunu çalıştırırken yine de boş satırları yazdırmaya devam ediyor.
Daha doğrusu sizin yaptığınız sayfayı müstakilen çalıştırırken bir sorun yok ama ben kendi kitabıma bu kodları kopyaladıktan sonra bu sorunlar çıkıyor.
İlgilenirseniz beni bahtiyar edersiniz

 

[Orion1]

Dosyayı göremeden bi şey diyemiyeceğim.
Üzerine bir miktar uyduruk veri ekleyerek dosyayı ekleyiniz.Bir bakayım.

 

[karagöz55]

Sayın Evren Gizlen Bey
İstediğiniz gibi dosyayı ekte gönderiyorum.
Şimdiden teşekkürlerimi sunarım.
Gerçi yeri değil belik ama,
Aslında benim gelişmiş süz formülü ile alakalı aynı dosya için bir çalışmam var ama bir türlü formdaki formülleri buraya adapte edemedim.
Umarım bu konuda çok ciddi deneyimleriniz vardır.
Ana sayfa üzerinde ADI SOYADI, MÜŞTEKİ VEKİLİ, DURUŞMA TARİHİ ve SUÇ sütun başlıklarına göre yine sayfa üzerinde arama yaptırabilmek istiyorum.
Ayrıca DURUŞMA GÜNÜ kriterine göre yaptığım arama sonuçlarını ayrı bir DURUŞMA LİSTESİ sayfasına yazdırmak istiyorum. (Belki rapor alma gibi) bir yöntem.
Bu konularda da yardımınız olursa sonsuz teşekkürlerimi sunarım.

 

[Orion1]

Dosyanız hazır.6 numaralı mesajdan indirebilirsiniz.
Diğer sorunuz için Forumda yeni bir başlık açarak sorunuzu sorunuz..!!

 

[karagöz55]

Dosyanız hazır.6 numaralı mesajdan indirebilirsiniz.
Diğer sorunuz için Forumda yeni bir başlık açarak sorunuzu sorunuz..!!
__________________

Sayın Evren Gizlen Bey'e
sonsuz teşekküler,
Tam arzu ettiğim gibi olmuş,
Çalışmalarınızda başarılar.
İkinci sorum için biraz daha çalışıp ondan sonra başlık açmalıyım.

 

[Orion1]

Dosyanız hazır.6 numaralı mesajdan indirebilirsiniz.
Diğer sorunuz için Forumda yeni bir başlık açarak sorunuzu sorunuz..!!
__________________

Sayın Evren Gizlen Bey'e
sonsuz teşekküler,
Tam arzu ettiğim gibi olmuş,
Çalışmalarınızda başarılar.
İkinci sorum için biraz daha çalışıp ondan sonra başlık açmalıyım.

Rica ederim.
İyi çalışmalar.