A1 Değerini 1 Attır ve Sürekli YAZ-YAZDIR

[ocamsul]

Arkadaşlar merhaba ekli YAZ-YAZDIRda da belirttiğim üzre Yaz-yazdır butonuna bir defa tıklanması ile A1 hücresindeki değerin 1 artması ve yazma işleminin bu şekilde sürekli aynı sayfayı yazdırması ile devam etmesi konusunda yardımlarınızı bekliyorum üsdatlar.

Sub yaz_yazdır()
Sheets("sayfa1").Select
u = Range("A1").Value
say = u + 1
Range("A1").Value = say
ActiveWorkbook.Save
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub Yaz_Yazdır()
    Sheets("Sayfa1").Select
    [A1] = [A1] + 1
    Sheets("Sayfa1").PrintOut
    ActiveWorkbook.Save
End Sub

 

[ocamsul]

SN: COST_CONTROL üsdat; bunu hücreye değer vererek yazdırma işlemini yapıyorum. Ancak, A1 hücresine YAZ-YAZDIR butonuna tıkladığımızda, yazma işlemi devam edecek. Yani 1. yazdırmadan sonra hücreye 2 2. yazdırmadan sonra 3...... gibi bu gidecek(Butona bir kez tıklanacak). belirli bir sayı aralığı vereceğiz bu aralıktaki sayılar kadar hücreye yazacak ve prınt işme devam edecek. Tam olarak anlatabildim inşallah.

 

[Orion1]

Sayın COST_CONTROL üstadımın verdiği kodlara aşağıda kırmızı ile yazılmış kodu ekleyerek denermisiniz?

Sub Yaz_Yazdır()
    Sheets("Sayfa1").Select
    [COLOR="Red"]if [A1]=0 or [A1] = "" then [A1]=1[/COLOR]
    [A1] = [A1] + 1
    Sheets("Sayfa1").PrintOut
    ActiveWorkbook.Save
End Sub

 

[Seyit Tiken]

Sub Düğme1_Tıklat()
For s = 1 To 5
Sayfa1.PrintOut (s)
[a1] = [a1] + 1
Next
End Sub

Şeklinde deneyiniz.

 

[ocamsul]

Sub Düğme1_Tıklat()
For s = 1 To 5
Sayfa1.PrintOut (s)
[a1] = [a1] + 1
Next
End Sub

Şeklinde deneyiniz.

SN: Seyit Tiken üsdat; ilginize çok teşekkür ederim. verdiğiniz kod değerleri hücreye verme anlamında çok iyi, ancak; hücreye 1,2,3,4,5..... gibi değerleri verdiğinde sadece 1 sayfa yazdırılıyor o da ilk verdiği değeri içeren sayfayı çıkarıyor. benim istediğim ilk 1 değerini verdiğinde sayfanın yazdırılması ve kodun 3 4 saniye bekledikten sonra 2 değerini verip tekrar yazıcının A1 e yazdığı 2. sayfanın çıktısını almak. zira söz konusu sayfa ARA fonksiyonunu içeriyor. Ayrıca SN: Orion2 üsdat sizede ilginiz için teşekkür ederim.

 

[ocamsul]

Arkadaşlar; benim istediğim ilk 1 değerini verdiğinde makro çalışsın ve yazdırsın, 3 4 saniye bekledikten sonra 2 yazsın ve makro bu şekilde belirli aralıktaki değer sonuna kadar çalışsın ve yazdırmaya devam etsin.

 

[Recep İpek]

Sub Button1_Click()
For s = 1 To 5
[a1] = [a1] + 1
Sheets("Sayfa1").PrintOut
Next
End Sub


olarak deneyin.

 

[ocamsul]

SN: Ripek üsdat; çok teşekkür ederim. Kod tam anlamıyla istediğim gibi.