yazdıkça Sayının Artmasını İstiyorum

[gulevurgun]

Merhaba Arkadaşlar

Yazdırdıkça sayının otomatik artmasını istiyorum

yardımlarının için şimdiden teşekkür eder, iyi çalışmalar dilerim.

 

[Seyit Tiken]

Bu şekilde deneyin.

[A35]=[A35]+1

 

[Necdet]

Merhaba,

Sub Makro1()
Set s1 = Sheets("Etiket")
s1.[H35] = s1.[H35] + 1
s1.PrintOut
End Sub

 

[gulevurgun]

Yardımcı Olduğunuz İçin Çok Teşekkür Ederim Elinize Sağlık

 

[omerceri]

Yanlışlık bu mesaja eklemişim örneği

 

[gulevurgun]

Necdet bey buna ilave olarak belli bir sayı aralığı vermek mümkün mü?
Mesela aynı ebattaki üründen 100 tane bastırmam gerekiyor butona 100 kere basmak yerine 100 adeti girebilecek bi yer olabilir mi?Sıra numarası önemli tabi.Kaçta kaldığımı takip etmem için

 

[Levent Menteşoğlu]

Öncelikle etiket sayfasındaki A35 hücresinin biçimini (genel) şeklinde ayarlayın ve parantez işaretlerini kaldırarak 0 yazın. Sonrasında aşağıdaki kodu butona bağlayarak çalıştırın.

Sub Makro1()
Set s1 = Sheets("Etiket")
sor = InputBox("Yazdırma Sayısını Giriniz.", "YAZDIRMA SAYISI")
If sor = vbCancel Then Exit Sub
For a = 1 To sor
s1.[a35] = s1.[a35] + 1
s1.PrintOut
Next
End Sub

 

[gulevurgun]

Levent bey teşekkür ediyorum çalışıyor verdiğiniz kod.Yalnız ben burda kullanılan kodla kullanmak istiyorum bu kodu.Mesela tek çıktılar için yazdırı adeti fazla olanlar içinse diğer kodu.Ama ikiside H35 de çalışmalı denedim ben olmadı.Nasıl yapmma gerekiyor.Yardımınızı rica eder, iyi çalışmalar dilerim

 

[Levent Menteşoğlu]

H35 birleştirilmiş alanın içinde yer alıyor dolayısıyla kod bu alanı tanımayacaktır. Dosyanızdaki birleştirilmiş hücrelerin ortak adı a35 hücresidir.

 

[gulevurgun]

Dediğiniz gibi A35 de çalıştı ama bişiyi fark ettim 2 adet çıkarmak isteyince çıkarmıyor.Az öncede hep 2 denemiştim H35 deyken ondan olmuyor diye düşünüyordum size yazdım sizde A35 dediniz denedim çalıştı ama 2 adet çıkarmak istesem çıkartmıyor hiç bi işlem yapmıyor.Ama benim için yeterli.

Emeğinize sağlık teşekkür ederim.

Ayrıca bişi sormak istiyorum siparişte bu mantıkla siparişi saydırabilirim.Mesela şöle bişi olabilir mi aynı mantıkla butona basınca sayıcak ama tarihi dikkate alıcak yeni bir günde sıfırkanması gerekiyor olabilir mi?

 

[gulevurgun]

siparişte bu mantıkla siparişi saydırabilirim.Mesela şöle bişi olabilir mi aynı mantıkla butona basınca sayıcak ama tarihi dikkate alıcak yeni bir günde sıfırkanması gerekiyor olabilir mi?