TextBox Otomatik Sayı yardım pls

[Sntrm]

Arkadaşlar ben bir örnek yapıp ekte gönderiyorum orda açıklamaar war bir yardımcı olursanız cok sevinirim teşekkürler iyi çalışmalar !... :arkadas:

 

[hamitcan]

Aşağıdaki kodu ekleyin.

Private Sub UserForm_Initialize()
c = WorksheetFunction.Max(Sheets("sayfa1").Range("A:A"))
TextBox4 = c
End Sub

 

[Sntrm]

teşekkürler bu 2. istegimin kodları birde textbox a otomatik sayı atamayı bilen arkadaş cıksa

 

[Levent Menteşoğlu]

textbox a otomatik sayı

Bununla ne kasdettiğinizi biraz daha açarmısınız, rasgele tamsayımı yazılmasını istiyorsunuz.

 

[Sntrm]

en baştaki gönderdigin örnekte not yazdım o şekilde otamatik sayı almasını istiyorum mesela bir kayıt yapıyotum o kayıdın sıra no su 4 bir sonraki kayıtta texbox ın 5 olarak deger almasını istiyorum mümkünmüdür ?

 

[Levent Menteşoğlu]

Userforma aşağıdaki kodu yazın.

[vb:1:8b9d29703d]Private Sub UserForm_Initialize()
TextBox1 = WorksheetFunction.CountA([a2:a65536]) + 1
End Sub[/vb:1:8b9d29703d]

 

[Sntrm]

cok teşekkürler işime yaradı saolun :dua: