Textbox Hakkında Yardım

[skaan]

Merhaba;

Aşağıdaki kodlar ile textbox a tıkladığımda sayfa c5 hucresıne gerı dönmekte. Acaba yine textboxa tıkladığımda sayfanın C sütununda yazılan en son satırın altına gitmesini sağlayabilirmiyiz.
Yardımcı olabilirseniz çok sevinirim.

Hayırlı Günler dilerim.
Saygılarımla
SKaan

Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("C9:C65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = ""
ActiveSheet.ListObjects("Tablo5").Range.AutoFilter Field:=2
Range("c5").Select
TextBox1.Activate
End Sub

 

[ÖmerBey]

Merhaba,

Range("c5").Select

Bu satırın yerine aşağıdakini yazın.

Range("C65500").End(3).Offset(1, 0).Select

 

[skaan]

Yardımlarınız için teşekkürler
Saygılarımla
SKaan