Premikanje ukaznega gumba

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Premikanje ukaznega gumba

Odgovor Napisal/-a BJ »

Pozdravljeni!
Želel bi, da se ukazni gumb premakne, desno ob katerikoli izbrani celici
Prosim za pomoč. Hvala!
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Premikanje ukaznega gumba

Odgovor Napisal/-a 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
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Re: Premikanje ukaznega gumba

Odgovor Napisal/-a BJ »

Najlepša hvala!! Deluje, kot sem si zamislil
Lep dan želim! BJ
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Re: Premikanje ukaznega gumba

Odgovor Napisal/-a BJ »

Pozdravljeni!
Imam še eno prošnjo.UserForm1, naj bi se prikazala samo ob izbiri A1:A50.
Prosim za pomoč.
LPB
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Premikanje ukaznega gumba

Odgovor Napisal/-a 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
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Re: Premikanje ukaznega gumba

Odgovor Napisal/-a BJ »

Najlepša hvala in lep pozdrav!
Odgovori