Yan tarafa ileri geri hareket eden buton

[ASLAN7410]

Merhaba arkadaşlar hayırlı Cumalar.

Ekte gönderdiğim örnek sayfamda C8-I56 hücreleri arasında hangi hücreye fare ile tıklarsam Düğme 1 isimli buton aşağı yukarı hareket ediyor.

Benim istediğim bu buton gibi sadece 1.satırda yan tarafa doğru ileri geri hareket eden buton eklemek.

Kullanmış olduğum sütun fazla olduğu için böyle bir butona ihtiyaç duyuyorum.

Yardım edecek arkadaşlara şimdiden teşekkür ediyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 3 And Target.Column <= 9 Then
If Target.Row >= 8 And Target.Row <= 56 Then
ActiveSheet.Shapes("Düğme 1").Top = ActiveCell.Offset(0, 0).Rows.Top
End If
End If
End Sub

 

[YUSUF44]

Şöyle deneyin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 3 And Target.Column <= 9 Then
If Target.Row >= 8 And Target.Row <= 56 Then
ActiveSheet.Shapes("Düğme 1").Top = ActiveCell.Offset(-Target.Row + 1, 0).Rows.Top
ActiveSheet.Shapes("Düğme 1").Left = ActiveCell.Offset(0, 0).Columns.Left
End If
End If
End Sub

 

[ASLAN7410]

Sayın Yusuf Bey vardiyalı çalıştığım için bilgisayar başına yeni geçtim.

Çok teşekkür ederim, ellerinize sağlık tam istediğim gibi olmuş, hayırlı akşamlar.

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Çoktandır böyle bir makro düşünüyor ama dillendiremiyordum. Görünce çok mutlu oldum, ancak kendi çalışmama uygulayamadım. CommandButton1 'e de uygulanabilir diye düşünüyorum.
Düğmeyi, sadece kullanılan (etkin) hücrenin bulunduğu sayfada, sol üst köşeye getirse yeter.
Saygılarımla

 

[YUSUF44]

Merhaba Arkadaşlar,
Çoktandır böyle bir makro düşünüyor ama dillendiremiyordum. Görünce çok mutlu oldum, ancak kendi çalışmama uygulayamadım. CommandButton1 'e de uygulanabilir diye düşünüyorum.
Düğmeyi, sadece kullanılan (etkin) hücrenin bulunduğu sayfada, sol üst köşeye getirse yeter.
Saygılarımla

Aşağıdaki gibi deneyin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("CommandButton1").Top = ActiveCell.Offset(-Target.Row + 1, 0).Rows.Top
ActiveSheet.Shapes("CommandButton1").Left = ActiveCell.Offset(0, -Target.Column + 1).Columns.Left
End Sub

 

[Tevfik_Kursun]

Merhaba Sayın YUSUF44 Hocam,
İlginize çok teşekkür ederim. Verdiğiniz kodu sayfanın altına koyup, sayfanın boş yerlerine yazı yazıp entere bastım ve de sildim. Ama CommandButton1 yerinden hiç oynamadı bile. Neden olabilir acaba?
Saygılarımla