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
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ı?
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.