Şartı sayfa yazdırma

[alperalper]

Arkadaşlar ayrıca bir konu açmak istemediğim için buradan devam ediyorum. Benim tam olarak yapmak istediğim şu. Örneğin A1 hücresine elimle veri girişi yapıyorum. Eğer C2 hücresindeki değer 1,3,5 ise A1 hücresine girilen değer en fazla 10 olabilir. Eğer C2 hücresine girilen değer 2 ise A1 hücresine girilecek değer aralığı 1 ile 85 olsun.

Bu mümkün mü?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Yazdir()

    If Sheets("Sheet2").[BJ10] = 1 Then
        Sheets("Sheet2").PrintOut Copies:=3
        Sheets("Sheet3").PrintOut Copies:=2
        Sheets("Sheet4").PrintOut Copies:=2
    ElseIf Sheets("Sheet2").[BJ10] = 2 Then
        Sheets("Sheet2").PrintOut Copies:=3
        Sheets("Sheet4").PrintOut Copies:=2
    End If
    
End Sub

.

 

[alperalper]

Bu şekilde yaptım arkadaşlar çok teşekkür ederim.

Sub Yazdır()
        If Worksheets("1").Range("BJ10").Value = 1 Then
        Sheets("1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
        Sheets("2").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
        Sheets("3").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
        Sheets("Bilgiler").Select
        ActiveCell.Range("A1:E1").Select
    ActiveWorkbook.Save
 End If
        If Worksheets("1").Range("BJ10").Value = 2 Then
        Sheets("1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
        Sheets("3").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
        Sheets("Bilgiler").Select
        ActiveCell.Range("A1:E1").Select
    ActiveWorkbook.Save
    End If
End Sub

 

[alperalper]

ARKADAŞLAR YENİ KONU AÇMAMAK İÇİN BURAYA YAZDIM..

Arkadaşlar ayrıca bir konu açmak istemediğim için buradan devam ediyorum. Benim tam olarak yapmak istediğim şu. Örneğin A1 hücresine elimle veri girişi yapıyorum. Eğer C2 hücresindeki değer 1,3,5 ise A1 hücresine girilen değer en fazla 10 olabilir. Eğer C2 hücresine girilen değer 2 ise A1 hücresine girilecek değer aralığı 1 ile 85 olsun.

Bu mümkün mü?

 

[Ömer]

Konu bütünlüğünü korumak için, farklı konularla ilgili sorularınız için yeni konu başlığı açmanızı rica ederim.