Makro Kodlama

[recepkull]

Arkadaşlar bir hücreye girilen değer sayısı kadar çıktı alabileceğim makro koduna ihtiyacım var. Yardım edebilir misiniz ?
Örnek : A1 hücresi 5 ise butona tıkladığımda 5 sayfa çıktı alacak, A1 hücresi 10 ise 10 sayfa çıktı alacak gibi.. Yardımlarınızı bekliyorum teşekkür ederim.

 

[turist]

Aşağıdaki örneği kullanabilirsiniz.

Sub Test()
  Sheets("Sayfa1").PrintOut Copies:=Sheets("Sayfa1").Range("A1").Value, IgnorePrintAreas:=False
End Sub

 

[recepkull]

Aşağıdaki örneği kullanabilirsiniz.

Sub Test()
  Sheets("Sayfa1").PrintOut Copies:=Sheets("Sayfa1").Range("A1").Value, IgnorePrintAreas:=False
End Sub

Çok teşekkür ederim.

 

[turist]

Çok teşekkür ederim.

Sağ olun.

 

[recepkull]

@turist hocam verdiğiniz kodu şimdi deneme fırsatım oldu. Verdiğiniz kod benim sorduğum soruya göre doğru çalışıyor ama ben soruyu yanlış sormuşum bu yüzden özür dilerim. Sorumu düzeltiyorum. 20 sayfalık yazdırma alanım var. A54 hücresine girilen sayı değere kadar çıktı alabileceğim koda ihtiyacım var. Örneğin ;

A54 hücresi 6 ise 20 sayfalık yazdırma alanı içerisinden ilk 6 sayfayı yazdırsın
A54 hücresi 3 ise 20 sayfalık yazdırma alanı içerisinden ilk 3 sayfayı yazdırsın istiyorum.

Soruyu yanlış sorduğum için tekrar özür dilerim vereceğiniz cevaplar için de şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Sub Yazdir()
    With Sheets("Sayfa1")
        If .Range("A54").Value > 0 Then
            .PrintOut From:=1, To:=.Range("A54").Value, Copies:=1, _
            Collate:=True, IgnorePrintAreas:=False
        End If
    End With
End Sub

 

[recepkull]

Teşekkür ederim istediğim gibi çalışıyor.