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

[alperalper]

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.

 

[kan-nas]

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.?

 

[alperalper]

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.