kemal turan
Altın Üye
- Katılım
- 10 Haziran 2011
- Mesajlar
- 1,677
- Excel Vers. ve Dili
- Excel 2010 32 bit
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat1 As Long, sat2 As Long, sat3 As Long
sat1 = ActiveWindow.VisibleRange.Row + 5
sat2 = ActiveWindow.VisibleRange.Row + 8
sat3 = ActiveWindow.VisibleRange.Row + 11
With ActiveSheet.Shapes("Yuvarlatılmış Dikdörtgen 1")
.Top = Cells(sat1, "A").Top
.Left = Cells(sat1, "A").Left
End With
With ActiveSheet.Shapes("Yuvarlatılmış Dikdörtgen 16")
.Top = Cells(sat2, "A").Top
.Left = Cells(sat2, "A").Left
End With
With ActiveSheet.Shapes("Yuvarlatılmış Dikdörtgen 17")
.Top = Cells(sat3, "A").Top
.Left = Cells(sat3, "A").Left
End With
End Sub