sayı üretmek?

[hurkanpisirici]

merhabalar forumda bir sürü sayı üretmek ile ilgili örnek var ama istediğim gibi bişey bulamadım.benim istediğim excel kitabımı açtığımda Sayfa1 a1 hücresine 8 haneli bir sayı atanması ama sadece 1 seferlik olması gerekiyor yani aynı kitap bir sonraki açılışında o atanan rakam sabit kalacak bir başka deyişle o rakam o kitabın seri nosu gibi bişey olacak.

 

[metinozlu]

eğer sayı varsa sayı üretme
yoksa
sayı üret
makrosu ile olur sanırım

 

[hurkanpisirici]

o makroyu bir bilsem

 

[metinozlu]

tamam makroyu yazayım

 

[hurkanpisirici]

çok teşekkür edeirm sağolun

 

[metinozlu]

Sub Düğme1_Tıklat()

If Sheets("sayfa1").Range("A1").Value = "" Then

Sheets("sayfa1").Range("A1").Value = Val(Rnd(100000000) * 100000000)
Else
End If
End Sub

 

[hurkanpisirici]

sayın metinozlu kod için teşekkür ederim kod çalışıyor ilk önce sayıyı verdi kaydettim çıkıp bidaha girdim aynı numara duruyor.bu sefer sayıyı sildim bidaha açtım ama yine aynı sayıyı verdi, buna bi çözüm bulabilirmiyiz peki?

 

[metinozlu]

yani her açtığında farklı bir numara istiyorsunuz

 

[hurkanpisirici]

tabiki ama sizn yaptığınız gibi eğer rakam yoksa

 

[metinozlu]

sub auto_close
Sheets("sayfa1").Range("A1").Value = ""
end sub
yukarıdaki kodu module eklerseniz kapanışta sayı silinecek açılışta yeni sayı gelecektir.

 

[hurkanpisirici]

yine aynı rakamı veriyor metinozlu bey

 

[metinozlu]

bakayım tekrar

 

[metinozlu]

makroyu aşağıdaki gibi değiştirin
Sub auto_open()

If Sheets("sayfa1").Range("A1").Value = "" Then

Sheets("sayfa1").Range("A1").Value = Val(Rnd * Second(Time) * 1000000)
Else
End If
End Sub

 

[hurkanpisirici]

ben soruyu yanlış soruyoda olabilirim metin bey diyelim ki sayfayıaçtık kodunuzun yaptığı gibi a1 hücresine rakamı atadı.sonra ben o rakamı sildim kaydetip çıktım.dosyaya bir daha girdiğimde hücre boş olduğu için yeniden başka bi rakam atamasını istiyoırum.bu kodlar sayıyı atıyor ama silim çıktıtktan sonra bir daha girdiğimde yine qaynı sayyıyı atıyor. sizi sıktıysam özürdilerim

 

[metinozlu]

hayır şimdi düzeldi her zaman farklı sayı geliyor denedim

 

[hurkanpisirici]

Sub Düğme1_Tıklat()

If Sheets("sayfa1").Range("A1").Value = "" Then

Sheets("sayfa1").Range("A1").Value = Val(Rnd(100000000) * 100000000)
Else
End If
End Sub

dosyamı ekledim yalnız auto close olarak değiştirdim ama olmuyor

 

[metinozlu]

çalışma dosyası ektedir

 

[hurkanpisirici]

harikasınız sayın metinozlü çok teşekkür ederim acemiliğime verin

 

[metinozlu]

neyse hallettik ya önemli değil başarılar

 

[hurkanpisirici]

sizede kolay gelsin istedğim şeylerin kodunu yazmam çok zor biliyorum ama en azından böyle sabırlı biriyle karşılaşıncca hevesleniyorum