Excel de sayfa aşağı kaydıkça oluşturulan pencere/tablonun da aktif bir şekilde kayması hk.

[Agah93]

Merhaba kolay gelsin.
Excel de sayfa aşağı kaydıkça oluşturulan pencere/tablonun da aktif bir şekilde kaymasını istiyorum. Bunu nasıl yapabilirim

 

[muygun]

Merhaba;
a-) butonları üst satıra taşıyıp üst satır sabitleyerek
b-) Userform ile

Ekleri inceleyin.
İyi çalışmalar.

 

[Agah93]

İlginiz için teşekkür ederim hocam. Ancak iki durumda da yerim kalmamış yukarıdaki satırda.
Satır çok kalabalık olunca bende pratiklik olsun diye taşınabilir formun peşine düştüm internette hiç örneği yok.
Yine yardımlarınızı beklerim inşallah.

 

[igultekin2000]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [B5:B20,E2:E2000]) Is Nothing Then Exit Sub
    If Target.Column = 2 Then
        'cmd1.Top = ActiveCell.Top
    ElseIf Target.Column = 4 Then
        'cmd2.Top = ActiveCell.Top
    Else
        CMD2.Top = ActiveCell.Top
    End If
       End Sub

merhaba;
Formda bulduğum bu makro ile hareketli buton kullanıyorum. Oluşturduğum butona CMD2 ismini hangi hücrede hareket etmesini belirttikten sonra sorunsuz kullanıyorum.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Deneyiniz
İyi çalışmalar

 

[Agah93]

Hocam elinize emeğinize sağlık uğraşmışsınız ancak bir tülü çalışmadı kod hatası veriyor.

 

[Agah93]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [B5:B20,E2:E2000]) Is Nothing Then Exit Sub
    If Target.Column = 2 Then
        'cmd1.Top = ActiveCell.Top
    ElseIf Target.Column = 4 Then
        'cmd2.Top = ActiveCell.Top
    Else
        CMD2.Top = ActiveCell.Top
    End If
       End Sub

merhaba;
Formda bulduğum bu makro ile hareketli buton kullanıyorum. Oluşturduğum butona CMD2 ismini hangi hücrede hareket etmesini belirttikten sonra sorunsuz kullanıyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [B5:B20,E2:E2000]) Is Nothing Then Exit Sub
    If Target.Column = 2 Then
        'cmd1.Top = ActiveCell.Top
    ElseIf Target.Column = 4 Then
        'cmd2.Top = ActiveCell.Top
    Else
        CMD2.Top = ActiveCell.Top
    End If
       End Sub

merhaba;
Formda bulduğum bu makro ile hareketli buton kullanıyorum. Oluşturduğum butona CMD2 ismini hangi hücrede hareket etmesini belirttikten sonra sorunsuz kullanıyorum.

Hocam butona kodu ekledim ancak yine olmadı yanlış bir şey mi yapıyorum acaba

 

[Tevfik_Kursun]

Buton istemez. Dosyanızın küçük bir örneğini gönderin bakayım. Tek button olsa çok kolay olurdu. Çoklu olunca durum değişiyor.
Hatayı gördümi Siz ilk satıra çıkmışsınız. Başka bir örnek deneyeceğim

 

[Tevfik_Kursun]

Bunu deneyin lütfen
düğmeler mouse un durduğu hücre hizasındalar
İyi çalışmalar,

 

[Agah93]

Buton istemez. Dosyanızın küçük bir örneğini gönderin bakayım. Tek button olsa çok kolay olurdu. Çoklu olunca durum değişiyor.
Hatayı gördümi Siz ilk satıra çıkmışsınız. Başka bir örnek deneyeceğim

Merhaba hocam.
Mesajınız arada kalmış şimdi kontrol ederken fark ettim cevap biraz geç oldu kusura bakmayın dosya istemişsiniz buyurun.
İlginiz için teşekkür ederim sağlıcakla kalın.

 

[Tevfik_Kursun]

Buyrun, 9. mesajdaki örnek te aynı
iyi çalışmalar
Ofis 365 te çalışır mı, bilemem

 

[igultekin2000]

Sayın Tevfik örnek yalın ve pratik. Ancak butonlar yan yana değil de alt alta olsa daha güzel olacak gibi, en azından benim için.

 

[Tevfik_Kursun]

O zaman önceki verdiğimi kullanacak ve ilk 4 satıra çıkmayacaksınız. Bana göre başka yapacak bir şey yok

 

[Agah93]

Bunu deneyin lütfen
düğmeler mouse un durduğu hücre hizasındalar
İyi çalışmalar,

Teşekkür ederim hocam sağolun sağlıcakla kalın

 

[bmutlu966]

Tevfik beyin dosyasında değişiklik yaptım. Deneyiniz. Menünün tıklama alanından uzaklığını kendiniz ayarlayabilirsiniz.

 

[igultekin2000]

Kod için teşekkürler, abartılı gibi gelmesin ama bizim gibi kod yazmayı bilmeyenler için harika bir çözüm.