Makro Kodlama

Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Aşağıdaki örneği kullanabilirsiniz.
Kod:
Sub Test()
  Sheets("Sayfa1").PrintOut Copies:=Sheets("Sayfa1").Range("A1").Value, IgnorePrintAreas:=False
End Sub
 
Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
@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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,316
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

Kod:
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
 
Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Teşekkür ederim istediğim gibi çalışıyor.
 
Üst