Premikanje ukaznega gumba

[BJ]

Pozdravljeni!
Želel bi, da se ukazni gumb premakne, desno ob katerikoli izbrani celici
Prosim za pomoč. Hvala!

[admin]

Pozdravljeni,

Na list morate dodati odziv na dogodek SelectionChange (več o tem si lahko preberete tudi na tem forumu - poiščite po starih tematikah):

Koda: Izberi vse

Option Explicit

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

[BJ]

Najlepša hvala!! Deluje, kot sem si zamislil
Lep dan želim! BJ

[BJ]

Pozdravljeni!
Imam še eno prošnjo.UserForm1, naj bi se prikazala samo ob izbiri A1:A50.
Prosim za pomoč.
LPB

[admin]

hm... Večkrat pravim, da se morate potruditi tudi sami, sicer vam pač jaz razvijam programe, kar ni najbolj pošteno

Torej:

Koda: Izberi vse

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

 If (Not Intersect(Target, Range("A1:A50")) Is Nothing) Then UserForm1.Show
End Sub

[BJ]

Najlepša hvala in lep pozdrav!