seçilen değere git makrosu

[soneravci]

Selamlar A sütununda 1-2000 arası değere sahip satırlarım var bu satırlar arasında dolaşabilmek için bir userforma yazılan değere command button ile gitmek hangi kodla mümkün olur.

 

[Muhammet Okumuş]

Merhaba,
Private Sub CommandButton1_Click()
On Error Resume Next
sat = Range("A1:A1200").Find(TextBox1).Row
ActiveWindow.ScrollRow = sat
Unload Me
End Sub
Kodunu deneyiniz.

 

[soneravci]

deniyorum. teşekkür ederim

 

[soneravci]

Teşekkür ederim. verdiğiniz komut çalıştı.
aşağıda ki userform penceresine şu komutları ekledim;

Private Sub CommandButton1_Click()
On Error Resume Next
sat = Range("A1:A1200").Find(TextBox1).Row
ActiveWindow.ScrollRow = sat
Unload Me
End Sub


Private Sub CommandButton2_Click()
Range("A" & Cells(Rows.Count, "A").End(3).Row).Select
End Sub

Private Sub TextBox1_Change()

End Sub

fakat şöyle bir sorunla karşılaştım formu excel sayfasında görüntülemek için her zaman vba yı açıp play düğmesine basmam gerekti. daha sonra ise text box a bir değer girip tıkladığımda o satıra gittikten sonra user form yine kapandı. bunu nasıl önleyebilirim?

 

[Korhan Ayhan]

"Unload Me" satırını silerseniz formunuz kapanmaz...