Excelde çalışma sayfasında istediğimiz yazdırma alanlarının yazdırılması komutu var m

[m.yucel]

Merhabalar;

Bir tane çalışma sayfam var. Yaptığım çalışmalar 1200 satır sürdü diyelim. Burada "sayfa sonu önizleme" bölümünde 75 sayfa görünüyor. Yazdır dediğim zaman hepsini yazdırıyor.

Ben şöyle olmasını istiyorum:

Eğer E2, E27, E52, E77.... boş ise yazdırma, dolu ise o sayfası yazdırsın.

Böyle bir formül var mı? Makro olmazsa sevinirim.

Çok teşekkürler.

 

[Ömer]

Merhaba,

Formül ile yapamazsınız.

Bu şekilde deneyin.

Sub Sartli_Yazdir()
 
    Dim say As Integer, a As Integer, i As Integer
 
    say = ExecuteExcel4Macro("Get.Document(50)")

    a = 2
    For i = 1 To say
        If Cells(a, "E") <> "" Then
            ActiveSheet.PrintOut i, i
            Application.Wait Now + TimeValue("00:00:01")
        End If
        a = a + 25
    Next i
 
End Sub

.

 

[Murat OSMA]

Bu konu için Ömer Bey'in müsadesiyle alternatif iki dosya eklemek istiyorum.

 

[m.yucel]

Sayın Ömer ve Murat Beyler

Cevabınız çok teşekkür ederim.

Galiba sorunumu yanlış ifade ettim. Ben tek sheet üzerindeki örneğin E sütunundaki belli aralıklarda (aralıklar sabit) veri var ise yazdırsın, yok ise o yazdırma sayfasının yazdırmasın.

Ekran görüntüsünde olduğu gibi sayfa sayısı 250 adet ve yazdır dediğim zaman hepsini yazdırıyor. Ama örneğin E sütunundaki 15, 35, 55 gibi sabit hücrelerdeki bazı yerler boş ise o sayfayı yazdırmasın istiyorum.

Bu konuda yardımınız olabilir mi?

 

[Ömer]

Verdiğim kodları denediniz mi?

 

[m.yucel]

Çalıştı, harikasınız hocam çok teşekkürler.

 

[Murat OSMA]

Verdiğim kodları denediniz mi?

Çalıştı, harikasınız hocam çok teşekkürler.

Bu güzeldi.

 

[ozkovlu]

checkbox ele seçimleri yazdırma

merhaba arkadaşlar;
ekte gördermiş olduğum dosyada userform2 de checkbox lar kayıtlı.
çıktı alırken sadece seçmiş olduklarımın dökümünü nasıl alabilirim.
saygılar...