Userform da sayfa kaydır

[aydogankemal]

Merhaba,
Userform kullandığım bir dosyam var, bazı bilgileri toplayıp aktif sayfaya yapıştırıyor. Ancak ekranda görünen satır bitince sayfa nın da kaymasını istiyorum. yani yeni bilgi ekledikçe sayfa da aktif hücreyi görebileyim.
Nasıl bir kod gerekli,

 

[işsiz123]

Örnek Dosya ekleseydiniz daha iyi olacaktı .
kırmızı ile belirlediğim kodlar sayfada veriyi seçiyor.

Private Sub CommandButton1_Click()

sonsat = [a65536].End(3).Row + 1
Cells(sonsat, 1) = TextBox1.Value
Cells(sonsat, 2) = TextBox4.Value
Cells(sonsat, 3) = TextBox5.Value
Cells(sonsat, 4) = TextBox6.Value
Cells(sonsat, 5) = TextBox7.Value
Cells(sonsat, 6) = TextBox8.Value

TextBox4.SetFocus
[COLOR="DarkRed"][B]Cells(sonsat, 1).Select[/B][/COLOR] 
End Sub

 

[aydogankemal]

Haklısınız basit olacağını düşündüğüm için dosya eklemedim bir de dosya oldukça yüklü.

Kodunuzu aşağıdaki şekilde kısalttım. işe yaradı, ilham verdiğiniz için teşekkür ederim.

sonsat = [a65536].End(3).Row + 1


CommandButton1.SetFocus
Cells(sonsat, 1).Select

 

[işsiz123]

Rica ederim. İyi çalışmalar