Buton ile istenilen hücreye gitme

[instantfun]

Merhaba,

Bir buton yardımı ile aynı sayfada istediğim hücreyi sayfanın başına almak istiyorun. Ör: Düğmeye basınca A200 hücresi sayfanın sol üst köşesinde gözüksün. Bu mümkün müdür?

Şimdiden teşekkürler.

 

[instantfun]

Üstadlar nerdesiniz?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Application.Caption = [A1]

 

[instantfun]

Seyit Bey,
Teşekkürler cevabınız için fakat olmadı Malesef . butona bir makro ile ekledim ama malesef. hiçbir haheret yok. Bir örnek yapabilir misiniz veya başka bir yolu var mı?

 

[Seyit Tiken]

A1 hücresine bir değer yazarak makroyu çalıştırın, sayfanın üst çerçeve kısmına bakın, soruyu bu şekilde anladım.

 

[halit3]

Alternatif olarak kod

Not: aktif hücrede değeri varsa kod çalışacaktır

Sub aranan_ilk_deger() 'Aktif hücreyi listenin sol üst köşesinde gösterir
Dim aranan As String
Dim Rng As Range
a = ActiveWindow.Selection.Row
b = ActiveWindow.Selection.Column
aranan = Worksheets(ActiveSheet.Name).Cells(a, b).Value
With Sheets(ActiveSheet.Name).Cells(a, b)
Set Rng = .Find(aranan, LookIn:=xlValues)
If Not Rng Is Nothing Then
Application.GoTo Rng, True
End If
End With
End Sub

 

[halit3]

Bşka alternetif

Private Sub CommandButton1_Click()
ActiveWindow.ScrollRow = ActiveWindow.Selection.Row
ActiveWindow.ScrollColumn = ActiveWindow.Selection.Row
End Sub

 

[instantfun]

Seyit ve Halit bey,
Verdiğniz bilgiler için çok teşekkür ederim.
İyi haftasonları dilerim.

 

[bilalakdeniz]

Merhaba, Butonla belirlediğimiz hücreye nasıl gidebiliriz, Gideceğimiz hücre sabit değil, Örneğin A1 hücresinde yazılı hücreye gitmesini istiyorum, , A1 Hücre değeri = B10 , Makroya Bastığımda B10 a gitsin, A1 Hücre değeri = C70 , Buton a bastığımda imlec C70 e gitsin,İyi Çalışmalar

 

[İhsan Tank]

Merhaba, Butonla belirlediğimiz hücreye nasıl gidebiliriz, Gideceğimiz hücre sabit değil, Örneğin A1 hücresinde yazılı hücreye gitmesini istiyorum, , A1 Hücre değeri = B10 , Makroya Bastığımda B10 a gitsin, A1 Hücre değeri = C70 , Buton a bastığımda imlec C70 e gitsin,İyi Çalışmalar

merhaba
bir butona atıtarak dener misiniz

Sub satırgit()
Range(Range("A1").Text).Select
MsgBox Range("A1") & " Hücresindeyim", vbInformation
End Sub

 

[bilalakdeniz]

Sayın İhsan Tank, Çok teşekkür ederim,

 

[İhsan Tank]

Sayın İhsan Tank, Çok teşekkür ederim,

rica ederim
:yazici: