B2 HÜcresİndekİ Sayiyi Her KaydettİĞİmde 1 Artmasini İstİyorum LÜtfen Yardimci Olun

[LCANER]

İyİ ÇaliŞmalar Bu EkledİĞİm TaŞinir İŞlem FİŞİndekİ B2 HÜcresİndekİ FİŞ Sira Noyu Her FİŞ KesİŞİmde Yada Kayit EttİĞİmde 1 Sayi Artmasini İstİyorum LÜtfen Bunu Yapabİlİrmİsİnİz TeŞekkÜrler.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub Button13_Click()
sor = InputBox("Kaç Adet  Yazılsın?", "UYARI")
If sor = cancel Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut , , sor
If MsgBox("Sıra Numarası Artttırılsın mı?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI") = vbYes Then
yil = Left([b2], 4)
No = Mid([b2], 6, Len([b2]) - 5)
[b2] = yil & "-" & No + 1
End If
End Sub

 

[LCANER]

elinize sağlık teşekkür ederim. ama benim bunu birkaç dosyaya daha yapmam gerekiyordu sen yazdır eklemişsin bu sadece bu dosyaya özgü olmuş birde bunu 3 pc den aynı noyu takip ettirmek var mı?

 

[Recep İpek]

Sorunuzdan pek birşey anlamadım ama, sanırım dosyayı 3 kişi kullanacak.

Bunun için dosyayı ağ ortamında ortak bir yerde bulundurup, buradan çalışabilirsiniz.