Dikdörtgen ve kursor nasıl aynı satırda hareket eder?

[Tevfik_Kursun]

Muhterem Arkadaşlarım,
Sayfadaki kod :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Shapes("Dikdörtgen 1").Top = ActiveCell.Offset(Target.Row, 4).Rows.Top
End Sub

yapmak istediğim :
Kursor 7. sütunda hareket ettiğinde Dikdörtgen 1 in aynı hizada (aynı satırda) 4. sütunda hareket etmesi için ne yapmalıyım?
Saygılarımla

 

[Haluk]

Sadece "G" sütununda çalışmak üzere;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        ActiveSheet.Shapes("Dikdörtgen 1").Top = Target.Rows.Top
        ActiveSheet.Shapes("Dikdörtgen 1").Left = Target.Offset(0, -3).Left
    End If
End Sub

.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları kullanın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
    ActiveSheet.Shapes("Dikdörtgen 1").Top = Target.Rows.Top
    ActiveSheet.Shapes("Dikdörtgen 1").Left = Target.Offset(0, -3).Left
End Sub

 

[Tevfik_Kursun]

Sayın Haluk ve Dalgalıkur Hocalarım,
İlgilerinize çok teşekkür ederim.
Saygılarımla

 

[Muzaffer Ali]

Tam hücre boyutunda olmasını sağlamak içinde aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
    With ActiveSheet.Shapes("Dikdörtgen 1")
        .Top = Target.Rows.Top
        .Left = Target.Offset(0, -3).Left
        .Height = Target.Offset(0, -3).Rows.Height
        .Width = Target.Offset(0, -3).Rows.Width
    End With
End Sub

 

[Tevfik_Kursun]

Sayın Dalgalıkur Hocam,
İlginize ayrıca teşekkür ederim.
Saygılarımla