sırayla otomatik gizle , yazdır, göster

[JunG]

Merhaba arkadaşlar

Ekteki dosyada 3 tane makro var. bunlara sırayla tıklayarak işlemleri yaptırıyorum.
bu işlemleri tek düğmeyle nasıl birbirlerine bağlarım?

Asıl istediğim şu :
1- data alanında bulunan bayiler ve ürün sonuçlarının bayi isimlerine göre sırayla tablo sayfasında I1 hücresine alınıp kaç adet ürün incelenmişse o kadarın haricindeki satırların gizlenerek yazdırılmasını (gizleme işlemini "satır gizle" makrosu hallediyor. )
2- yazım işleminden sonra tekrar gizlenen satırların "satır göster" makrosuyla gösterilmesini,
3- bunun ardından sıradaki bayiye geçilmesini ve data alanı sayfasında bulunan tüm bayiler yazdırılıdığında işlemin bitmesini istiyorum.

teşekkür ederim

 

[uzmanamele]

merhaba

şöyle olabilir mi;

Sub yazdir()
    ilk = InputBox("İlk Sıra Nosunu Girin") + 6
    son = InputBox("Son Sıra Nosunu Girin") + 6
    c = InputBox("Kopya Sayısını Girin")
    alan = "A" & ilk & ":I" & son
call gizle
    Range(alan).PrintOut , , c
call Göster
End Sub

 

[JunG]

merhaba

şöyle olabilir mi;

Sub yazdir()
    ilk = InputBox("İlk Sıra Nosunu Girin") + 6
    son = InputBox("Son Sıra Nosunu Girin") + 6
    c = InputBox("Kopya Sayısını Girin")
    alan = "A" & ilk & ":I" & son
call gizle
    Range(alan).PrintOut , , c
call Göster
End Sub

sizin yazdığınız kodda

call gizle
Range(alan).PrintOut , , c

satırında gizleme işlemi sayfanın tamamını gizliyor.
ben sadece bayinin 4 adet ürünü varsa 4 satırdan sonrasını gizlesin istiyorum geri kalan üst bilgiler, kalem bilgileri ve altta kalan imza bilgilerinin yazdırılmasını istiyorum.
aslında tam olarak istediğim şu ;
satırları gizleme ve göstermede sorunum yok
data alanı sayfasında 4 adet bayinin farklı adetlerde müşterisine ait inceleme sonuçları var
ben bu dört bayi isminin sırayla tablo sayfasındaki I1 hücresine adının otomatik gelmesini,bu hücre yeni değerini aldığında hesaplamanın yapılmasını ,
ondan sonra kalem sayısı kadar ürünün gizlenmesini ve raporun yazdırılmasını istiyorum. ve bu işlemin data alanında kaç bayi varsa herbirine göre tekrar edilmesini istiyorum.

 

[uzmanamele]

merhaba

satır gizleme ve göstermede sorunum yok dediğiniz için; madem mevcut kodlarla bi işlemleri yapabiliyorsanız yazdır makrosunun içine bu kodu monte edebilirsiniz anlamında önerdim.

 

[JunG]

teşekkür ederim sayın uzmanamele
onu deniyorum ama bir tülü işin içinden çıkamadım.
çözdüm
Sub yazdir()
For Each t In Range("a26:a115").Cells
If t.Value = "" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
PrintOut
PrintOut
For Each t In Range("a26:a115").Cells
If t.Value = "" Then 'boş hücreleri gosterir
t.EntireRow.Hidden = False
End If
Next t

End Sub


birde data alanındaki bayi isimlerini tablo sayfasındaki I1 hücresine nasıl tek tek getirebilirim onuda çözmem gerek