For-Next

[xternet]

Merhaba arkadaşlar.
Bilen arkadaşlar için küçük bir sorum olucaktı. Örnek dosyayı da ekledim.

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Sub yazdir()
On Error GoTo son
ActiveSheet.PageSetup.PrintArea = "A1:C4"
For i = 1 To 15
    If i <= Range("A1").Value Then
        ActiveSheet.PrintOut copies:=1
    End If
Next
son:
MsgBox "yazma işlemi sona erdi."
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
For SUT = 1 To [A1]
[C3] = SUT
MsgBox "Hücre değeri " & [C3].Value
Next
End Sub

 

[xternet]

Sayın Orion2 kod çalışıyor. Ama bir eksik var. her yazdırma işleminde C3 hicresine sırayla 1,2,3...değerlerini rip öyle yazdırması lazım. Çünkü C3 hücresine gelen 1,2,3.. değerleri için sayfadaki değerler değişiyor ve ben her bir değişimi sırayla yazdırmak istiyorum. TAki a1 deki sınıra kadar.

 

[mehmett]

Sn Orion2'nin yazdığı kodlara küçük bir ilave yapmanız yeterlidir.

Sub yazdir()
On Error GoTo son
ActiveSheet.PageSetup.PrintArea = "A1:C4"
For i = 1 To 15
If i <= Range("A1").Value Then
[COLOR=red][C3] = i[/COLOR]
ActiveSheet.PrintOut copies:=1
End If
Next
son:
MsgBox "yazma işlemi sona erdi."
End Sub

 

[xternet]

Çok teşekkür ederim Sayın mehmett, Orion2 ve V.BAsic. Sayın mehmett'in tamamladığı kod tam düşündüğüm gibi. Zihinlerinize sağlık.
İyi çalışmalar.