Otomatik sayı

Bunun için benim bir önerim var. Sayınızı tarih ve saat verisinden üretin. Bunun için now() ile dönen sayıları biraraya getirmeniz yeterli. Bu iş için mid, left ve right komutları işinizi görecektir. Dünya tersine dönmedikçe de bu sayının tekrarlanması mümkün değildir. Şıu an için yazarsak 17102013010952... böyle bir sayıyı bir daha ne zaman yakalayabilirsiniz ki? Mümkün değil. Hem de pozitif

Sub sayiuret()

dim a, b, c, d, e, f, g, h as integer 

a = Now()

b = Mid(a, 1, 2)

c = Mid(a, 4, 2)

d = Mid(a, 7, 4)

e = Mid(a, 12, 2)

f = Mid(a, 15, 2)

g = Mid(a, 18, 2)

h = b & c & d & e & f & g

End Sub

Dikkat edilirse değişkenlere tarih ve saat değerlerini aralarındaki iki nokta ve tek nokta değerlerini pas geçerek alıyoruz. Önce a değişkenine tarih ve saat değeri atanıyor. Daha sonra a değişkeninde yer alan ve formatı 17.10.2013 01:19:53 biçiminde olan değerler mid komutuyla elenerek, nokta işaretleri alınmadan 17102013011953 biçimine dönüştürülür. Ben bu fonksiyonu 2008 yılında bir üretim programı için hazırlamıştım. Hala da işe yarar
Bu arada negatif değerlerden bahsetmişken, mevcut yapınızdaki o negatif değerleri aşağıdaki şekilde pozitife döndürebilirsiniz. Bunun için abs(sayi) şeklinde bir kod kullanmalısınız. Mesela -50 için Abs(sayi) komutunu kullanırsanız değer 50 olur. Bunu da bir kenara yazalım
Kolay gelsin.

Belirttiğiniz Vba Kodunu nasıl kullanabilirim, kodu nereye kaydedeceğim ve nasıl kullanacağım konusunda pek bilgim yok yardımcı olursanız sevinirim.

Bir örnek ekledim incelerseniz.

Yardımlarınız için teşekkür ederim.

(17/10/2013, 13:03)cttm98 yazdı: Bir örnek ekledim incelerseniz.

Örnek için teşekkürler.

Ne demek hocam. Ben yazılımcı değilim ama bu siteden baya bir yardım aldım.
Kendi kendime öğrenen birisiyim burada sorulan soruları bir ödev halinde görüp çözmeye çalışıyorum. Kendimi geliştirmek için güzel bir site.