kaydet butonuna bastığımda otomatik hesap no verme

[hurkanpisirici]

merhabalar otomatik olarak a2 den aşağıya doğru sayı verdirebiliyorum ama benim istediğim 120.001 den başlaması?

 

[Ayhan Ercan]

merhabalar otomatik olarak a2 den aşağıya doğru sayı verdirebiliyorum ama benim istediğim 120.001 den başlaması?

Merhaba,
Böyle bişeymi istiyorsunuz... ?

Private Sub CommandButton1_Click()
Dim z As Range
Columns("A:A").NumberFormat = "#,##0"
Set z = [a2]
If z.Value <> 120001 Then
z.Value = 120001
Exit Sub
End If
son = [a65536].End(3).Row + 1
y = [a65536].End(3).Value
If Cells(son, 1) = "" Then Cells(son, 1) = y + 1
End Sub

 

[hurkanpisirici]

merhabalar evet bu ama 1-2-3-4 diye gidiyor benim istediğim 120.001 120.002 diye gitmesi cari hesap kodları gibi bişey yani

 

[Ayhan Ercan]

merhabalar evet bu ama 1-2-3-4 diye gidiyor benim istediğim 120.001 120.002 diye gitmesi cari hesap kodları gibi bişey yani

Merhaba,

2 nolu mesajdaki kodu yeniledim. tekrar denermisiniz..?

 

[hurkanpisirici]

çok teşekkür ederim harikasınız.

 

[Ayhan Ercan]

çok teşekkür ederim

Rica ederim.
İyi Çalışmalar....

 

[Seyit Tiken]

İlgili hücreleri biçimlendirerek istenilen sonuca ulaşabilirsiniz.

 

[hurkanpisirici]

bi sorum daha olacak ben kaydet dedim istediğim gibi 120.001 yazdı listboxa aldığım zaman çift tıklıyorum bu veriyi textboxa atıyorum ama aradaki nokta textboxta çıkmıyor attığım textboxu nasıl biçimlendirebilrim?

 

[Ayhan Ercan]

bi sorum daha olacak ben kaydet dedim istediğim gibi 120.001 yazdı listboxa aldığım zaman çift tıklıyorum bu veriyi textboxa atıyorum ama aradaki nokta textboxta çıkmıyor attığım textboxu nasıl biçimlendirebilrim?

Merhaba,

kendi textboxunuza uygulayın..:

TextBox1 = Format(TextBox1, "#,##0")

 

[hurkanpisirici]

ilgilendiğiniz için çokm teşekkür edeirm sağolun

 

[Ayhan Ercan]

ilgilendiğiniz için çokm teşekkür edeirm sağolun

Rica ederim..
İyi çalışmalar...