Her yazdırdığımda sıra no artması

[LCANER]

Arkadaşlar Merhaba benim eklediğim dosyada EKMEK YİYECEK adlı çalışma sayfasında seri no yazan B6 hücresindeki sayının her yazdıra bastığımda bir artmasını istiyorum. Bir ricam daha var oda
ADRES adlı çalışma sayfasındaki L2 hücresine H_EKMEK çalışma sayfasındaki AL Sütünündaki rakamların ayni kişiye denk gelenini yazmasını istiyorum biraz anlatamadım ama herhalde anlayan çıkar inşallah yardımlarınızı bekliyorum kolay gelsin başarılar.

 

[LCANER]

arkadaşlar lütfen hiç anlayan yok mu acil lazım bu bana yoksa çok uğraşıyorum.teşekkürler

 

[hamitcan]

Örneği inceleyin.

 

[LCANER]

Örneği inceleyin.

ilginize teşekkür ederim ama ben her seferinde 2 kez yazdıracağım ama bu her bastığımda 1 artıyor yazdıra basınca kaç tane yazdırmak istiyorsunuz diye soramaz mı ?
Bir ricamda ordaki iaşe olunan ekmek sayısının otomatik olarak alması yani EKMEK YİYECEK I14 deki olan yere H_EKMEK teki AL sütünündaki aynı ismi bulup yazmasını istiyorum teşekkürler.

 

[hamitcan]

3 nolu mesajımı güncelledim.

 

[LCANER]

3 nolu mesajımı güncelledim.

Emeğine sağlık Allah zihin açıklığı versin.yazdıra bastığımda soruyor ama ben kaç tane yazdır dersem o da ordaki sayıyı o kadar artırıyor ordaki sayının kaç tane yazdırırsam yazdırayım bir tane artırmasını istiyorum lütfen tekrar bakarmısınız.

 

[Seyit Tiken]

Örnek kodu çalışmanıza uyarlayınız.

Sub Düğme1_Tıklat()
[a1:g40].PrintOut
[g1] = [g1] + 1
End Sub

 

[hamitcan]

Verdiğim kodları ThisWorkbook içinden silin. Ve sayın Seyit_Tiken'in verdiği kodu bir düğmeye atayın ve bu düğmeyi yazdır düğmesi olarak kullanın.

 

[LCANER]

Verdiğim kodları ThisWorkbook içinden silin. Ve sayın Seyit_Tiken'in verdiği kodu bir düğmeye atayın ve bu düğmeyi yazdır düğmesi olarak kullanın.

SN. Hamitcan emeğine sağlık ama ben bunu yapmayı bilmiyorum lütfen bunu siz yapabilir misiniz rica ediyorum

 

[hamitcan]

Eki inceleyin

 

[hamitcan]

Eki değiştirdim.

 

[LCANER]

Eki değiştirdim.

ELİNE EMEĞİNE SAĞLIK ALLAH NE MURADIN VARSA VERSİN