Son Kayıt ve Üye Kayıt Numarasını TextBox'a almak

[htsumer]

A1 Hücresinden A500 hücresine kadar Sıra No girişi,B1 Hücresinden B500'e kadar Üye kayıt numarası formatında kaydediyorum.
Örnek:

A1 Hücresine 001   B1 Hücresine 754
A2 Hücresine 002   B2 Hücresine 755
....
...
..
.

şeklinde..

UserForm'da kayıt yapacak kişi Veri girişi yapılan sayfada en son girilen Üye Kayıt numarasını bilemediğinden;
sıra numarası ve en son girilen Üye kayıt numarasını TexBox'ta görsün istiyorum.
Yani TextBox1'e
X= Son kayıt sıra numarası
Y= Son Üye kayıt numarası
"En Son Kaydedilen üye Kayıt numarası X sırasında Y Kayıt Numarasında " şeklinde..

Bunu UserForm1'in UserForm_Initialize kısmına yazacağım.
Tşk..

 

[Orion1]

Dim sat As Long, x As Long, y As Long
sat = Cells(65536, "B").End(xlUp).Row
x = Cells(sat, "A").Value
y = Cells(sat, "B").Value
MsgBox "x :" & x & vbLf & "y :" & y

 

[htsumer]

Teşekkür ederim..
son satırı
TextBox1.Value= "Son Sıra:" &x& vbLf & "Son Üye Kayıt No:" &y

düzenledim..
Sayenizde buda oldu...

 

[Orion1]

Teşekkür ederim..
son satırı
TextBox1.Value= "Son Sıra:" &x& vbLf & "Son Üye Kayıt No:" &y

düzenledim..
Sayenizde buda oldu...

Rica ederim.

 

[htsumer]

Şöyel bir sorunla karşılaştım..

Bu şekilde güzel çalışıyor..Veri tablosunu komple boşalttım.Yani sıra ve kayıt numarasında hiçbir rakam yok..
Bu sefer sıra yada kayıt numarası olmayınca kayıt dediğimde hata veriyor..
Hata şöyle:
kodun ardındaki userForm1.show hata alıyor sarı şekilde..
Ama, sıra ve kayıt numarası -İLK-girildiğinde sorun yok..İlk veri girişinde hata vermemesi için ne yapmak gerek..

 

[htsumer]

tamam hallettim..

On Error Resume Next