Sayfa yazdır

Katılım
14 Haziran 2006
Mesajlar
575
Merhaba,

Sub yazdır()
Sayfa2.[A1:L34].PrintOut
Sayfa3.[A1:L34].PrintOut
End Sub

Ekli dosyamda yazdır makromu biraz daha geliştirmek istiyorum.
Sayfa1'in B sutunundaki verilerin AC310 ile başlayanları sayfa2'nin B7 hücresine
Sayfa1'in B sutunundaki verilerin diğerlerini ise sayfa3'nin B7 hücresine kopyala yapıştırla yazdırmaktayım.

Bir döngü yazdır makrosu ile tek tuş ile sayfa1'in B sutununu sayfa2 ve sayfa3'e atayarak yazdırabilirmiyiz.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,801
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Aşağıdaki kodları kullanabilirsiniz..

Kod:
Sub Test_Yazdir()
    Dim Say As Long
    Dim Bak As Range
    Say = Sayfa1.Cells(Rows.Count, "B").End(3).Row
    For Each Bak In Sayfa1.Range("B4:B" & Say)
        If Left(Bak.Value, 5) = "AC310" Then
            Sayfa2.Range("B7") = Bak
            Sayfa2.[A1:L34].PrintOut
        Else
            Sayfa3.Range("B7") = Bak
            Sayfa3.[A1:L34].PrintOut
        End If
    Next
End Sub
 
Katılım
14 Haziran 2006
Mesajlar
575
Kod için emeğinize sağlık tam istediğim gibi çalışıyor.
Sizden bir ricam sonra dan olur ya Sayfa2'den bir numara daha yazdırmak gerekirse örneğin AC728 bunu kodun neresine ne şekilde ekleyebilirim.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,801
Excel Vers. ve Dili
2019 Türkçe
If Left(Bak.Value, 5) = "AC310" Then
Satırını aşağıdaki gibi yapabilirsiniz.
If Left(Bak.Value, 5) = "AC310" or Left(Bak.Value, 5) = "AC728" Then
 
Üst