Hücreye yazılan rakam aralığına göre farklı çal.say.yazdırılması

[cemhany]

üstadlar iyi akşamlar ;bir sorum olacak ( ekte mevcut )
bir hücreye yazdığım rakam aralığına göre mesela 1-6 (1 ve 6 dahil) arasındaysa userform daki veya sayfadaki yazdır düğmesine basınca "fark-1" çalışma sayfasını yazdırsın eğer 7-12 (7 ve 12 dahil) arasındaysa "fark-2" sayfasını yazdırsın.

teşekkür ederim.

 

[truvali27m]

üstadlar iyi akşamlar ;bir sorum olacak ( ekte mevcut )
bir hücreye yazdığım rakam aralığına göre mesela 1-6 (1 ve 6 dahil) arasındaysa userform daki veya sayfadaki yazdır düğmesine basınca "fark-1" çalışma sayfasını yazdırsın eğer 7-12 (7 ve 12 dahil) arasındaysa "fark-2" sayfasını yazdırsın.

teşekkür ederim.

Merhaba ekteki örneği deneyin.

 

[Mahir64]

Merhaba
Altarnatif olarak; değerleriniz sabit ise bu şekilde kullanailrisiniz

Sub Yazdır()
If Range("f6") <= 6 Then
 Sheets("fark-1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
If Range("f6") >= 7 Then
 Sheets("fark-2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
End Sub

 

[cemhany]

üstadlar çok teşekkür ederim istediğim tam olarak budur sağolun.

 

[Mahir64]

üstadlar çok teşekkür ederim istediğim tam olarak budur sağolun.

Kolay gelsin
İyi Çalışmalar :hey: