yazdır düğmesinin hareket etmesi

[karahan61]

Merhabalar

İşim gereği excel'i çook kullanıyorum. Öncelikle sizlerden aldığım yardımlarla birşeyler yapmaya çalışıyorum .Herkese teşekkür ederim.

ekteki dosyamda YAZDIR düğmesinin ben sayfa derinliklerine indiğimde (5.sayfada veya başka) beni takip etmesini istiyorum. sayenizde mümkün olduğunu biliyorm.
Yardımlarınız için teşekkürler

 

[Yüksel Varlı]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Button 1").Top = ActiveCell.Offset(1, 1).Rows.Top
ActiveSheet.Shapes("Button 1").Left = ActiveCell.Offset(1, 1).Rows.Left
End Sub

 

[Yüksel Varlı]

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

 

[karahan61]

teşekkürler