textboxta otomatik dolu satır sayısı

[limanC34]

Selam Arkadaşlar
Userform üzerinde bir textboxa sayfa1 deki dolu satır sayısını (A ve B sütunları dolu olmak şartıyla) otomatik olarak nasıl alırız?Ama her kayıt yapıldıkça textbox anında sayıyı güncellemeli yani userform açıkken.
Teşekkürler.

 

[meslan]

Merhaba

Private Sub UserForm_Initialize()
TextBox1 = WorksheetFunction.CountA(Sayfa1.[a:b])
End Sub

Kayıt yaptığınız butonu click olayının sonuna
UserForm_Initialize
ekleyiniz.
Kolay gelsin.

 

[limanC34]

Sayın Meslan
Nereye yapıştırdıysam olmadı.Dosyanın ilk halini ekledim.Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodu aşağıdaki şekilde değiştirip denermisiniz. Yapılan düzeltmeler kırmızı renkle belirtilmiştir.

Private Sub UserForm_Initialize()
'***** listboxu yenile
TextBox3 = ".": TextBox3 = ""
Label4 = [a1]: Label5 = [b1]: Label6 = [c1]: Label9 = [d1]: Label10 = [e1]:
[COLOR=red]TextBox6 = WorksheetFunction.CountA(Sheets("REHBER").[B2:B65536])
[/COLOR]End Sub

Private Sub CommandButton1_Click()
Dim sat, son, deg, s As Integer
'*****verigir
If TextBox1 = "" Then MsgBox "Önce isim girmelisiniz", vbInformation: Exit Sub
son = Cells(65536, "b").End(xlUp).Row + 1
Cells(son, "b") = TextBox1
Cells(son, "c") = TextBox2
Cells(son, "d") = TextBox4
Cells(son, "e") = TextBox5
TextBox1 = Empty: TextBox2 = Empty: TextBox4 = Empty: TextBox5 = Empty
'*****sıranover
[a2:a65536] = Empty
deg = WorksheetFunction.CountA(Range("b2:b65536"))
s = 1
Do While [b2] <> ""
Cells(s + 1, "a") = s
s = s + 1
If s > deg Then Exit Do
Loop
'***** listboxu yenile
TextBox3 = ".": TextBox3 = ""
[COLOR=red]UserForm_Initialize[/COLOR]
End Sub

 

[limanC34]

Sayın Korhan Ayhan
Çözümünüz için çok teşekkürler.
Saygılarımla.

 

[limanC34]

Sayın Hocam
Herhangi bir satırdaki verileri silince sayı aynı kalıyor ve userformu kapatıp açmadan sayı güncellenmiyor.Buna bir çözüm var mı?
Saygılarımla.