Sıralı Yazdır döngüsü

[nadirornek]

Sayfaları sıralı yazıcıdan çıktı almak istiyorum.
Sayfa1'in G sutununda bulunan numaraları H sutununa bakarak diğer sayfa hücrelerine yazarak yazıcıdan çıktı alaçak bir döngüye ihtiyacım var.

Örnek G Sutununda 119310 sayısı alaçak H sutununda karşılığına bakaçak ne var Gaz var bu sayıyı alaçak Gazlı sayfasında G5 hücresine yapıştırıp Gazlı sayfasındaki C5:AL31 hücre aralığını yazıcıdan çıktı alaçak sonra Sayfa1'in diğer numarasına geceçek.

Sayfa1'in H sutunundaki su yazan hücreye karşılık gelen numaraları ise Sulu sayfasının F5 hücresine yapıştırıp B5:AK37 hücre aralığını yazıcıdan çıktı alaçak.

Amaç sayfaları sıralı bir şekilde yazıcıdan çıktılarını almak.

 

[Ömer BARAN]

Yanlış anlamadıysam, aşağıdaki kod istediğiniz işlemi yapacaktır.

-- Alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki alana aşağıdaki kod'u yapıştırın,
-- Sayfa1'e bir düğme/metin kutusu vb nesne ekleyin,
-- Eklediğiniz bu nesneye fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Açılan küçük ekranda SIRALI_YAZDIR'ı seçerek işlemi onaylayın,
Bu nesneye fareyle tıklayarak yazıcıdan sayfaların çıkması gerekir.
(Belgeyi makro içeren belge olarak kaydetmeyi unutmayın)

.

[B]Sub SIRALI_YAZDIR()[/B]
Set s = Sheets("Sayfa1")
For sat = 4 To s.Cells(Rows.Count, "G").End(3).Row
    If s.Cells(sat, "H") = "Gaz" Then
        Sheets("Gazlı").[G5] = s.Cells(sat, "G")
        Sheets("Gazlı").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    ElseIf s.Cells(sat, "H") = "Su" Then
        Sheets(" Sulu").[F5] = s.Cells(sat, "G")
        Sheets("[COLOR="Red"][B] Sulu[/B][/COLOR]").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
Next
[B]End Sub[/B]

 

[nadirornek]

Teşekkürler.

 

[nadirornek]

Sulu sayfasını hiç yazdırmıyor.Yazıcıdan karışık sulu ve gazlı iki üç tane çıktı alıp göre bilirmisiniz.
Kod tam çalışmıyor

 

[Ömer BARAN]

Sayfa adını farketmemişim.
Sayfayı yenileyerek önceki cevabıma tekrar bakın.
( Kırmızı renklendirdiğim kısım )
Önceki cevabımı güncelledim.