Sayfada hücreye göre yazdır makrosu

Katılım
14 Haziran 2006
Mesajlar
575
Merhaba,
Sipariş dosyamda Rulo1,Rulo2,Rulo3,Rulo4,Rulo5 sayfalarının F1 hücre değerlerine göre sayfa yazdırmak istiyorum.
Rulo1 sayfasının F1 hücre değeri DD358,DD359,DD360 ile başlıyorsa Koli1 ve koli2 sayfalarını yazdıracak. Eğer Rulo1 sayfasının F1 hücresi DD344,DD345,DD346 ile başlıyorsa Kutu1 ve Kutu2 Sayfalarını yazdıracak.
Böyle bir makro yazabilirmiyiz.
 

Ekli dosyalar

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,103
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
Yazıcı olmadığı için deneyemedim ama;
Sayfanın kod bölümüne aşağıdaki kodları ekleyerek deneyin.
İyi çalışmalar..

Sub yazdır()
On Error Resume Next
rulo1f1 = Left(Sheets("Rulo1").Range("F1"), 5)
kod_1 = "DD358"
kod_2 = "DD359"
kod_3 = "DD360"

kod_11 = "DD344"
kod_12 = "DD345"
kod_13 = "DD346"

If rulo1f1 = kod_1 Or rulo1f1 = kod_2 Or rulo1f1 = kod_3 Then
Application.ScreenUpdating = False
Sheets("Koli1").PrintOut Copies:=1
Sheets("Koli2").PrintOut Copies:=1
Application.ScreenUpdating = True
End If

If rulo1f1 = kod_11 Or rulo1f1 = kod_12 Or rulo1f1 = kod_13 Then
Application.ScreenUpdating = False
Sheets("Kutu1").PrintOut Copies:=1
Sheets("Kutu2").PrintOut Copies:=1
Application.ScreenUpdating = True
End If
End Sub
 
Üst