Makro ile açılır kutu koordinatı

[designer41]

Merhabalar
Forumu çok araştırdım ama istediğim gibi bir kod bulamadım,Aşağıdaki kodda açılan kutunun koordinatını a1 hücresinden referans alıyor,ben belirlediğim hücreden referans almasını istiyorum makro ile böyle birşey mümkünmü?
yardım edebilecek arkadaşlara minnetter kalırım.

With ActiveWindow.VisibleRange
ActiveSheet.Shapes("Açılan ali").Left = .Left + 50
ActiveSheet.Shapes("Açılan ali").Top = .Top + 2
End With

 

[Ömer]

Merhaba,

D15 hücresine göre veriyorum. Siz kodlardaki D15 i kendinize göre değiştirirsiniz.

    'With ActiveWindow.VisibleRange
        ActiveSheet.Shapes("Açılan ali").Left = [[COLOR=red]D15[/COLOR]].Left
        ActiveSheet.Shapes("Açılan ali").Top = [[COLOR=red]D15[/COLOR]].Top
    'End With

.

 

[designer41]

Merhaba,

D15 hücresine göre veriyorum. Siz kodlardaki D15 i kendinize göre değiştirirsiniz.

    'With ActiveWindow.VisibleRange
        ActiveSheet.Shapes("Açılan ali").Left = [[COLOR=red]D15[/COLOR]].Left
        ActiveSheet.Shapes("Açılan ali").Top = [[COLOR=red]D15[/COLOR]].Top
    'End With

.

Sayın ÖMER cevabın için teşekkür ederim
Peki hücremiz d15 değilde, a1 ile a50 arasında ali yazan hücre diye adres belirtebilirmiyiz?


bunun gibi birşey olabilirmi?
ActiveSheet.Shapes("Açılan ali").Left = ["ali"].Left + 5
ActiveSheet.Shapes("Açılan ali").Top = ["ali"].Top + 5

 

[designer41]

Daha anlaşılır olması için dosyamı ekliyorum

 

[Seyit Tiken]

2003 olarak yükleyip bir bakalım.

 

[designer41]

2003 olarak yükleyip bir bakalım.

2003 hali ekli dosyada

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = "ali" Then
ActiveSheet.Shapes("Açılan ali").Top = Target.Top
ElseIf Target = "veli" Then
ActiveSheet.Shapes("Açılan veli").Top = Target.Top
ElseIf Target = "meli" Then
ActiveSheet.Shapes("Açılan meli").Top = Target.Top
End If
End Sub

 

[designer41]

Bu şekilde deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = "ali" Then
ActiveSheet.Shapes("Açılan ali").Top = Target.Top
ElseIf Target = "veli" Then
ActiveSheet.Shapes("Açılan veli").Top = Target.Top
ElseIf Target = "meli" Then
ActiveSheet.Shapes("Açılan meli").Top = Target.Top
End If
End Sub

hocam çok teşekkür ederim ellerine sağlık koordinat işi oldu.
Birde açılır kutuları gizliyorum a1 ile a50 arasında ali yazılı ise ali nin açılır kutusu görünür oluyor, ali yazılı değise ali nin açılır kutusunu gizliyorum,gizleme görünür işinide hücreye değilde isime göre ayarlayabilirmiyiz?

Private Sub Worksheet_Change(ByVal Target As Range)
If ["ali"] >= ["ali"] Then ActiveSheet.Shapes("Açılan ali").Visible = True
If ["ali"] <> ["ali"] Then ActiveSheet.Shapes("Açılan ali").Visible = False
If ["veli"] >= ["veli"] Then ActiveSheet.Shapes("Açılan veli").Visible = True
If ["veli"] <> ["veli"] Then ActiveSheet.Shapes("Açılan veli").Visible = False
If [meli"] >= ["meli"] Then ActiveSheet.Shapes("Açılan meli").Visible = True
If ["meli"] <> ["meli"] Then ActiveSheet.Shapes("Açılan meli").Visible = False
End Sub