Otomatik form numası eklemek

[BlueRay]

Arkadaşlar kusura bakmayın arattırdım ama net bir yanıt bulamadım yardımcı olursanız sevinirim.

Yapmak istediğim şey şu: Mesela evrak no yazan yerin ilk 8 hanesi bugünkü tarihi diğer 3 hane form numarasını temsil edecek mesela ben yazdır butonuna bastığımda evrak no 23052008002 olacak ve her yazdır butonuna bastığımda bu sayı 1 artacak ve çıktı olarak sayfayı yazdıracak.

 

[Necdet]

Merhaba,

Sıra numarasının ne zaman sıfırlanacağını yazmamışsınız. Hergün mü, her ay mı, yoksa her yıl mı?

Bunları bilmediğimden ben günlük değişir mantığını kullanarak dosyayı düzenledim.

Olmazsa siz değiştirirsiniz. En azından fikir vermiş olur.

Sub Button1_Click()
If [B1] <> Date Then
    [B1] = Date
    [C1] = 0
End If
[C1] = [C1] + 1
[A2] = Format(Date, "ddmmyyyy") & Format([C1], "000")
ActiveSheet.PrintOut
End Sub

 

[BlueRay]

Hocam harikasın ellerin dert görmesin istediğim şeyde tam olarak buydu çok yaşa

 

[Ayhan Ercan]

değişik bir örnek :

Sub Button1_Click()
Dim i, x, y
If [a2] = "" Then
i = 1
x = Format(Date, "ddmmyyyy")
y = Format(i, "000")
[a2] = x & y
Else
[a2] = [a2] + 1
End If
ActiveSheet.PrintOut
End Sub