C3te 20den 50ye kadar 1 arttırarak saydır ve sayfayı yazdır

[orcunerkek54]

iyi akşamlar.
arkadaşlar şu konuda yardıma ihtiyacım var. c3 hücresine benim bilirleyeceğim sayı aralıklarını örneğin 10dan 25e kadar 1er arttırarak yazacak ve her sayı değiştiğinde b4 : h27 hücre aralığını yazıcıya gönderecek.umarım anlatabilmişimdir.
teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub YAZDIR()
    Dim İLK As Variant, SON As Variant, X As Integer
    
    İLK = Application.InputBox("Lütfen ilk değeri giriniz.", "İLK DEĞER")
    SON = Application.InputBox("Lütfen son değeri giriniz.", "SON DEĞER")
    
    If İLK = False Or SON = False Then Exit Sub
    If İLK = "" Or SON = "" Then Exit Sub
    
    If Val(İLK) > Val(SON) Then
    MsgBox "İLK değer SON değerden büyük olamaz!", vbCritical
    Exit Sub
    End If
    
    ActiveSheet.PageSetup.PrintArea = "$B$4:$H$27"
    For X = Val(İLK) To Val(SON)
        Range("C3") = X
        ActiveSheet.PrintOut Copies:=1
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[orcunerkek54]

syn korhan ayhan bey yardımınız için teşekkürler odunuz çalıştı. kolay gelsin.