Skrivanje ukaznega gumba

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

Skrivanje ukaznega gumba

Odgovor Napisal/-a BJ »

Pozdravljeni!
Na Listu1 imam ukazni gumb. Vendar bi želel, da je gumb viden samo takrat, ko je na Listu3, v celici A1 točno določeni številski podatek n.pr,:"0123"
Hvala!
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Na listu 3 se morate odzvati na dogodek Worksheet_Change. Več o tem si lahko preberete v več kot 10 tematikah na tem forumu, kar naredite tako, da zgoraj izberete opcijo išči in v iskalni pojem vpišete: Worksheet_Change.

V samo funkcijo pa morate zapisati sledeče (ustrezno spremenite ime gumba, ki je sedaj kar CommandButton1!):

Koda: Izberi vse

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Obmocje: Set Obmocje = Intersect(Range("A1"), Range(Target(1).Address))
  If Obmocje Is Nothing Then Exit Sub
 
  Application.EnableEvents = False
  List1.CommandButton1.Visible = (Range("a1") = 123) ' tu pazite na pravo ime gumba!
  Application.EnableEvents = True
End Sub
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Najlepša hvala!
B
Odgovori