Son Girilen Veri Numarası

[wipex]

Merhaba Arkadaşlar,

Userform Çalışmamda yeni kayıt yaparken son girilen kayıt sıra sumarasının bir üst sayısını textbox a nasıl çağırabilirim

Mesala
Son Girilen kayıt sıra numarası 154
ben yeni kayıt eklerken açılan userformda Sıra Numarası textboxda 155 yazmasını nasıl sağlayabilirim yardım ederseniz çok sevinirim.

 

[Ömer]

Merhaba,

Dosya eklemediğiniz için tahmini yazıyorum.

Kayıt sıra numarasının A sütununda olduğunu varsayarsak,

son = Cells(Rows.Count, "A").End(xlUp).Row
Textbox1.Value = Range("A" & son)

şeklinde istediğiniz olabilir.

.

 

[wipex]

Kod için Teşekkür ederim.

 

[Mahir64]

Faydalanacağım bir kod teşekkür.

 

[wipex]

Doğru Sorun kod çalışıyor.
arkadaşlar sizleride uğraştırıyorum ama kusuruma bakmayın.

Şu şekilde bir yapabilirmiyiz.

B3 den başlayarak arama yapacak, userform açıldığında son girilen kayıt sayısının 1 üstünü textboxa yazacak ve hiç kayıt girilmemişşse yani B3 boş ise oraya 1 den başlayacak bir kod lazım.

 

[Mahir64]

Doğru Sorun kod çalışıyor.
arkadaşlar sizleride uğraştırıyorum ama kusuruma bakmayın.

Şu şekilde bir yapabilirmiyiz.

B3 den başlayarak arama yapacak, userform açıldığında son girilen kayıt sayısının 1 üstünü textboxa yazacak ve hiç kayıt girilmemişşse yani B3 boş ise oraya 1 den başlayacak bir kod lazım.

Merhaba

Private Sub UserForm_Initialize()
son = Cells(Rows.Count, "b").End(xlUp).Row
TextBox1.Value = Range("b" & son) + 1
End Sub

 

[wipex]

Merhaba

Private Sub UserForm_Initialize()
son = Cells(Rows.Count, "b").End(xlUp).Row
TextBox1.Value = Range("b" & son) + 1
End Sub

Bunu denedim B1 hücresinde veri yoksa hata veriyor bu kod.

Bu koda eğer b1 hücresinde veri yoksa b1 hücresine nasıl 1 eklettirebilirz.

 

[Mahir64]

Dosyanızı merak ettim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub UserForm_Initialize()
    If Range("B3") = "" Then
        TextBox1 = 1
    Else
        TextBox1 = Range("B65536").End(3) + 1
    End If
End Sub

 

[wipex]

dostum bu kod çok güzel fakat ilk veriyi ekledikten sonra sıra noya 2 gelmesi gerekirken 4 geliyor.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[wipex]

Tamamdır Kod oldu.
Çok Sağolun Arkadaşlar Uğraştırdım Sizleri...