seçili alanı takip eden buton

[peleryn]

Herkese Merhabalar;

Ekli dosyamda sayfa üzerindeki buton seçili alan ya da hücrenin sol üst tarafına yerleşerek sürekli seçimi takip ediyor.Ama bu kodları kullanırken genel kullanımda olduğu üzere alanlarımı sol üstten sağ alta doğru seçiyorum.Butonumun da bu durumda sağ alta yerleşmesi benim için daha pratik olacak ama nasıl yapacağımı bulamadım.

Yardımcı olan olursa sevinirim..

NOT :Bu soru için aradığım ideal çözüm seçili alanda kodun dblclick ile çalışmasıydı ama bu pek olası gözükmüyor daha pratik bir önerisi olan olursa sevinirim.

 

[halit3]

böyle bir çözüm olabilirmi

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

 

[peleryn]

Halit hocam teşekkür ederim ancak seçili alanım çoğu zaman görünen ekrandan daha büyük oluyor bu durumda malesef yukarı yerleşen buton için kaydırma yaparak geri dönmem gerekecek..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet.CommandButton1
        .Top = ActiveCell.Top + (Selection.Rows.Count * 12)
        .Left = ActiveCell.Left + (Selection.Columns.Count * 50)
    End With
End Sub

 

[peleryn]

Korhan Hocam ihtiyacımı karşılıyor gayet güzel oldu çok teşekkür ederim.

 

[halit3]

birde bunu denermiziniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
yer = ActiveWindow.RangeSelection.Address(False, False)
For i = 1 To Len(yer)
If Mid(yer, i, 1) = ":" Then
deg = i
End If
Next
On Error Resume Next
hücre = Mid(yer, deg + 1, Len(yer))
sut = Range(hücre).Column + 1
sat = Range(hücre).Row + 1
If sut > 256 Then
sut = 256
End If
If sat > 65536 Then
sat = 65536
End If
ActiveSheet.Shapes("CommandButton1").Top = Cells(sat, sut).Rows.Top
ActiveSheet.Shapes("CommandButton1").Left = Cells(sat, sut).Rows.Left
ActiveSheet.Shapes("CommandButton1").Width = 60
End Sub

 

[peleryn]

Halit Hocam;

ActiveSheet.Shapes("CommandButton1").Top = Cells(sat, sut).Rows.Top -20

-20'yi ekleyince buton tam istediğim yere yerleşti.Ve kodlarınız sayesinde her seferinde aynı yeri buluyor.İlginiz ve çözümünüz için çok teşekkürler.

 

[peleryn]

Halit Hocam kodlar sütun ya da satır seçimi gibi seçimleri kullanırken

sut = Range(hücre).Column + 1
sat = Range(hücre).Row + 1

bu satırlarda hata veriyor.

 

[halit3]

Halit Hocam kodlar sütun ya da satır seçimi gibi seçimleri kullanırken bu satırlarda hata veriyor.

hata veren kod satırının hemen üstüne

On Error Resume Next

bunu ekle

 

[peleryn]

Nasıl da aklıma gelmedi yok yere sizi yordum hocam şimdi tıkır tıkır çalışıyor sağolun çok teşekkür ederim.

 

[halit3]

iyi çalışmalar

 

[okavut]

Sayın Halit hocam teşekkürler