KAYAN BUTON

[anthraxx02]

merhabalar;

komut butonu ile sayfalar arası geçiş sağlamaktayız. lakin excelde satır ve sutun sayısı yüksek miktarda olduğu için botunun sayfanın alt üst sağ sol fark etmez bir köşede kayan bir buton yapmak istiyorum yardımcı olursranız sevinirim

 

[EmrExcel16]

Merhaba ,

Seçilen hücreye kaymasını istiyorsanız butonun aşağıdaki kodları deneyebilirsiniz..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    CommandButton1.Top = ActiveCell.Rows.Top
    CommandButton1.Left = ActiveCell.Columns.Left
End Sub

 

[anthraxx02]

Merhaba ,

Seçilen hücreye kaymasını istiyorsanız butonun aşağıdaki kodları deneyebilirsiniz..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    CommandButton1.Top = ActiveCell.Rows.Top
    CommandButton1.Left = ActiveCell.Columns.Left
End Sub

teşekkürler lakin hücre seçmeden yapabilecek kod lazım

 

[EmrExcel16]

Bunu belirtmeniz gerekir , ne yapınca yada ne olunca kaymasını istiyorsunuz butonun .

 

[Tevfik_Kursun]

Merhaba Arkadaş,

ActiveSheet.Shapes("Dugme").Top = ActiveCell.Offset(0, 0).Rows.Top

Bu sizin işinizi görür. Düğme yerine kullandığınız neyse onu yazınız.
İyi çalışmalar

 

[anthraxx02]

Bunu belirtmeniz gerekir , ne yapınca yada ne olunca kaymasını istiyorsunuz butonun .

çok fazla satır ve sutun mevcut istediğim şu BQ680 hücresine geldiğimde sağ üst köşesine gelmesini B1 hücresine geldiğimde yine sağ üst kösesinde kalmasını istemekteyim yani butonun sağ üst köşede sabit kalmasını istiyorum

 

[EmrExcel16]

Anladım ,benim aklıma Worksheet_SelectionChange ( hücre seçme ) olayından başka çözüm gelmiyor, @Tevfik_Kursun bey bir öneride bulunmuş onu da deneyiniz.

 

[Korhan Ayhan]

Alternatif;

Hücre seçimi yaptığınızda BUTON ekranın sağ üst köşesinde görünür.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Sutun As Integer
    Sutun = ActiveWindow.ActivePane.VisibleRange.Columns.Count - 3
    With ActiveSheet.Shapes("Button 1")
        .Top = ActiveWindow.ActivePane.VisibleRange.Offset(, Sutun).Top
        .Left = ActiveWindow.ActivePane.VisibleRange.Offset(, Sutun).Left
    End With
End Sub

 

[Seyit Tiken]

Ben olayı bu şekilde anladım. Görünüm > Bölmeleri Dondur

 

[Tevfik_Kursun]

Sayın Seyit Tiken,
Teşekkürler. Bu da güzel bir fikir.
Saygılarımla

 

[lion_25_77]

Merhaba Arkadaş,

ActiveSheet.Shapes("Dugme").Top = ActiveCell.Offset(0, 0).Rows.Top

Bu sizin işinizi görür. Düğme yerine kullandığınız neyse onu yazınız.
İyi çalışmalar

Hocam bunu var olan koda nasıl eklememiz gerekiyor veya ayrı bir kod olarakmı yazılması gerekiyor. Eğer ayrı kod gerekiyorsa kodu paylaşabilir misiniz lütfen.

 

[Tevfik_Kursun]

Buyrun ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Shapes("Düğme 1").Left = ActiveCell.Offset(0, 10).Left
    ActiveSheet.Shapes("Düğme 1").Top = ActiveCell.Offset(0, 10).Top
End Sub

 

[lion_25_77]

Buyrun ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Shapes("Düğme 1").Left = ActiveCell.Offset(0, 10).Left
    ActiveSheet.Shapes("Düğme 1").Top = ActiveCell.Offset(0, 10).Top
End Sub

İlginiz için çok teşekkür ederiz.