Textbox ta sayfadaki dolu satırları saydırma

[airborne]

s.a.

aşağıdaki kodla A sütunundaki dolu hücreleri saydırıp +1 yapıyorum ama userform üzerinden sayfaya kayıt yaptığımda değişiklik olmuyor.
Kaydet butonundan sonra bastıktan sonra anında değişiklik nasıl yapılabilir.

Private Sub UserForm_Initialize()
TextBox8.Text = (Sayfa1.Cells(Rows.Count, "A").End(3).Row) + 1
End Sub

 

[ÖmerFaruk]

Kayıt yaptığınız kodların ardına da İnitialze olayındayı bu satırı tekrarlayın

 

[airborne]

teşekkür ederim.