İki Koşula Göre Yazdırma Makrosu

Katılım
7 Temmuz 2007
Mesajlar
111
Excel Vers. ve Dili
Office 2003 Tr
Arkadaşlar ben uğraştım ama iki koşulda başaramadım. İki koşula göre yazdırma makrosu yazmak istiyorum. Örn; eğer O2 hücresinde X varsa sadece 1. sayfadan 2 adet çıktı, eğer O2 hücresi boş ise 1. sayfadan 3 adet, 2. sayfadan 2 adet çıktı alsın.
 

Ekli dosyalar

Katılım
9 Temmuz 2008
Mesajlar
277
Excel Vers. ve Dili
2007
Sub Button1_Click()
Sheets("Bilgiler").Select
If Range("o2").Value = "X" Then
Sheets("1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
End If
Sheets("Bilgiler").Select
If Range("o2").Value = "" Then
Sheets("1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
Sheets("2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
Sheets("Bilgiler").Select
End If
End Sub

Üstad bir dener misin.?
 
Katılım
7 Temmuz 2007
Mesajlar
111
Excel Vers. ve Dili
Office 2003 Tr
sub button1_click()
sheets("bilgiler").select
ıf range("o2").value = "x" then
sheets("1").select
activewindow.selectedsheets.printout copies:=2, collate:=true
end ıf
sheets("bilgiler").select
ıf range("o2").value = "" then
sheets("1").select
activewindow.selectedsheets.printout copies:=3, collate:=true
sheets("2").select
activewindow.selectedsheets.printout copies:=2, collate:=true
sheets("bilgiler").select
end ıf
end sub

üstad bir dener misin.?
teşekkür ederim kardeş, ellerin dert görmesin.
 
Üst