tvc
Seniormester
14. oktober 2016 - 00:42
Der er
5 kommentarer og
1 løsning
VBA Userform - opdater
Hej
Jeg har en Userform, med nogle knapper, der får deres tekst fra celler i arket og som aktiveres eller deaktiveres afhængigt af om det tilhørende ark er vist (ikke skjult).
Jeg vil gerne have userformen åben hele tiden også når der kører en makro (det fungerer fint). Jeg kan bare ikke få knapperne til at blive aktive uden at lukke userformen ned og åbne den igen.
Jeg har prøvet med .hide og efterfølgende .show, jeg har prøvet med .repaint, men det virker ikke. Findes der ikke en opdater eller en reset inden man show'er den igen?
tvc
Seniormester
14. oktober 2016 - 09:53
#2
Den er lang men kommer her:
Private Sub cmd_Balance_Click()
Ark03.Select
End Sub
Private Sub cmd_Budget_Click()
Ark04.Select
End Sub
Private Sub cmd_Mapping_Click()
Ark05.Select
End Sub
'Select OP (områdeplaner)
Private Sub cmd_OP_01_Click()
Ark57.Select
End Sub
Private Sub cmd_OP_02_Click()
Ark35.Select
End Sub
Private Sub cmd_OP_03_Click()
Ark36.Select
End Sub
Private Sub cmd_OP_04_Click()
Ark37.Select
End Sub
Private Sub cmd_OP_05_Click()
Ark38.Select
End Sub
Private Sub cmd_OP_06_Click()
Ark39.Select
End Sub
Private Sub cmd_OP_07_Click()
Ark40.Select
End Sub
Private Sub cmd_OP_08_Click()
Ark41.Select
End Sub
Private Sub cmd_OP_09_Click()
Ark42.Select
End Sub
Private Sub cmd_OP_10_Click()
Ark43.Select
End Sub
Private Sub cmd_OP_11_Click()
Ark44.Select
End Sub
Private Sub cmd_OP_12_Click()
Ark45.Select
End Sub
Private Sub cmd_OP_13_Click()
Ark46.Select
End Sub
Private Sub cmd_OP_14_Click()
Ark47.Select
End Sub
Private Sub cmd_OP_15_Click()
Ark48.Select
End Sub
Private Sub cmd_OP_16_Click()
Ark49.Select
End Sub
Private Sub cmd_OP_17_Click()
Ark50.Select
End Sub
Private Sub cmd_OP_18_Click()
Ark51.Select
End Sub
Private Sub cmd_OP_19_Click()
Ark52.Select
End Sub
Private Sub cmd_OP_20_Click()
Ark53.Select
End Sub
Private Sub cmd_OP_21_Click()
Ark54.Select
End Sub
Private Sub cmd_OP_22_Click()
Ark55.Select
End Sub
'Select LS (Leadshhet)
Private Sub cmd_LS_01_Click()
End Sub
Private Sub cmd_LS_02_Click()
Ark11.Select
End Sub
Private Sub cmd_LS_03_Click()
Ark12.Select
End Sub
Private Sub cmd_LS_04_Click()
Ark13.Select
End Sub
Private Sub cmd_LS_05_Click()
Ark14.Select
End Sub
Private Sub cmd_LS_06_Click()
Ark15.Select
End Sub
Private Sub cmd_LS_07_Click()
Ark16.Select
End Sub
Private Sub cmd_LS_08_Click()
Ark17.Select
End Sub
Private Sub cmd_LS_09_Click()
Ark18.Select
End Sub
Private Sub cmd_LS_10_Click()
Ark19.Select
End Sub
Private Sub cmd_LS_11_Click()
Ark20.Select
End Sub
Private Sub cmd_LS_12_Click()
Ark21.Select
End Sub
Private Sub cmd_LS_13_Click()
Ark22.Select
End Sub
Private Sub cmd_LS_14_Click()
Ark23.Select
End Sub
Private Sub cmd_LS_15_Click()
Ark24.Select
End Sub
Private Sub cmd_LS_16_Click()
Ark25.Select
End Sub
Private Sub cmd_LS_17_Click()
Ark26.Select
End Sub
Private Sub cmd_LS_18_Click()
Ark27.Select
End Sub
Private Sub cmd_LS_19_Click()
Ark28.Select
End Sub
Private Sub cmd_LS_20_Click()
Ark29.Select
End Sub
Private Sub cmd_LS_21_Click()
Ark30.Select
End Sub
Private Sub cmd_LS_22_Click()
Ark31.Select
End Sub
Private Sub cmd_Strategi_Click()
Ark09.Select
End Sub
Private Sub cmd_Top_Click()
Ark56.Select
End Sub
Private Sub cmd_Væsentlighedsniveau_Click()
Ark01.Select
End Sub
'Hent knapnavne fra Liste
Private Sub UserForm_Activate()
'Registrer at Oversigten er aktiv
Ark02.Range("OversigtAktiv").Value = "SAND"
'Hent knapnavne
cmd_OP_01.Caption = Ark08.Range("SysmapA00").Offset(0, -1).Value
cmd_OP_02.Caption = Ark08.Range("Sysmap100").Offset(0, -1).Value
cmd_OP_03.Caption = Ark08.Range("Sysmap110").Offset(0, -1).Value
cmd_OP_04.Caption = Ark08.Range("Sysmap150").Offset(0, -1).Value
cmd_OP_05.Caption = Ark08.Range("Sysmap160").Offset(0, -1).Value
cmd_OP_06.Caption = Ark08.Range("Sysmap200").Offset(0, -1).Value
cmd_OP_07.Caption = Ark08.Range("Sysmap360").Offset(0, -1).Value
cmd_OP_08.Caption = Ark08.Range("Sysmap402").Offset(0, -1).Value
cmd_OP_09.Caption = Ark08.Range("Sysmap410").Offset(0, -1).Value
cmd_OP_10.Caption = Ark08.Range("Sysmap600").Offset(0, -1).Value
cmd_OP_11.Caption = Ark08.Range("Sysmap700").Offset(0, -1).Value
cmd_OP_12.Caption = Ark08.Range("Sysmap710").Offset(0, -1).Value
cmd_OP_13.Caption = Ark08.Range("Sysmap720").Offset(0, -1).Value
cmd_OP_14.Caption = Ark08.Range("Sysmap750").Offset(0, -1).Value
cmd_OP_15.Caption = Ark08.Range("Sysmap755").Offset(0, -1).Value
cmd_OP_16.Caption = Ark08.Range("Sysmap760").Offset(0, -1).Value
cmd_OP_17.Caption = Ark08.Range("Sysmap775").Offset(0, -1).Value
cmd_OP_18.Caption = Ark08.Range("Sysmap780").Offset(0, -1).Value
cmd_OP_19.Caption = Ark08.Range("Sysmap800").Offset(0, -1).Value
cmd_OP_20.Caption = Ark08.Range("Sysmap810").Offset(0, -1).Value
cmd_OP_21.Caption = Ark08.Range("Sysmap820").Offset(0, -1).Value
cmd_OP_22.Caption = Ark08.Range("Sysmap830").Offset(0, -1).Value
cmd_LS_02.Caption = Ark08.Range("Sysmap100").Offset(0, -1).Value
cmd_LS_03.Caption = Ark08.Range("Sysmap110").Offset(0, -1).Value
cmd_LS_04.Caption = Ark08.Range("Sysmap150").Offset(0, -1).Value
cmd_LS_05.Caption = Ark08.Range("Sysmap160").Offset(0, -1).Value
cmd_LS_06.Caption = Ark08.Range("Sysmap200").Offset(0, -1).Value
cmd_LS_07.Caption = Ark08.Range("Sysmap360").Offset(0, -1).Value
cmd_LS_08.Caption = Ark08.Range("Sysmap402").Offset(0, -1).Value
cmd_LS_09.Caption = Ark08.Range("Sysmap410").Offset(0, -1).Value
cmd_LS_10.Caption = Ark08.Range("Sysmap600").Offset(0, -1).Value
cmd_LS_11.Caption = Ark08.Range("Sysmap700").Offset(0, -1).Value
cmd_LS_12.Caption = Ark08.Range("Sysmap710").Offset(0, -1).Value
cmd_LS_13.Caption = Ark08.Range("Sysmap720").Offset(0, -1).Value
cmd_LS_14.Caption = Ark08.Range("Sysmap750").Offset(0, -1).Value
cmd_LS_15.Caption = Ark08.Range("Sysmap755").Offset(0, -1).Value
cmd_LS_16.Caption = Ark08.Range("Sysmap760").Offset(0, -1).Value
cmd_LS_17.Caption = Ark08.Range("Sysmap775").Offset(0, -1).Value
cmd_LS_18.Caption = Ark08.Range("Sysmap780").Offset(0, -1).Value
cmd_LS_19.Caption = Ark08.Range("Sysmap800").Offset(0, -1).Value
cmd_LS_20.Caption = Ark08.Range("Sysmap810").Offset(0, -1).Value
cmd_LS_21.Caption = Ark08.Range("Sysmap820").Offset(0, -1).Value
cmd_LS_22.Caption = Ark08.Range("Sysmap830").Offset(0, -1).Value
'Deaktiver knapper med skjulte ark
If Ark08.Range("Sysmap100").Offset(0, 3).Value = "Nej" Then cmd_OP_02.Enabled = False
If Ark08.Range("Sysmap110").Offset(0, 3).Value = "Nej" Then cmd_OP_03.Enabled = False
If Ark08.Range("Sysmap150").Offset(0, 3).Value = "Nej" Then cmd_OP_04.Enabled = False
If Ark08.Range("Sysmap160").Offset(0, 3).Value = "Nej" Then cmd_OP_05.Enabled = False
If Ark08.Range("Sysmap200").Offset(0, 3).Value = "Nej" Then cmd_OP_06.Enabled = False
If Ark08.Range("Sysmap360").Offset(0, 3).Value = "Nej" Then cmd_OP_07.Enabled = False
If Ark08.Range("Sysmap402").Offset(0, 3).Value = "Nej" Then cmd_OP_08.Enabled = False
If Ark08.Range("Sysmap410").Offset(0, 3).Value = "Nej" Then cmd_OP_09.Enabled = False
If Ark08.Range("Sysmap600").Offset(0, 3).Value = "Nej" Then cmd_OP_10.Enabled = False
If Ark08.Range("Sysmap700").Offset(0, 3).Value = "Nej" Then cmd_OP_11.Enabled = False
If Ark08.Range("Sysmap710").Offset(0, 3).Value = "Nej" Then cmd_OP_12.Enabled = False
If Ark08.Range("Sysmap720").Offset(0, 3).Value = "Nej" Then cmd_OP_13.Enabled = False
If Ark08.Range("Sysmap750").Offset(0, 3).Value = "Nej" Then cmd_OP_14.Enabled = False
If Ark08.Range("Sysmap755").Offset(0, 3).Value = "Nej" Then cmd_OP_15.Enabled = False
If Ark08.Range("Sysmap760").Offset(0, 3).Value = "Nej" Then cmd_OP_16.Enabled = False
If Ark08.Range("Sysmap775").Offset(0, 3).Value = "Nej" Then cmd_OP_17.Enabled = False
If Ark08.Range("Sysmap780").Offset(0, 3).Value = "Nej" Then cmd_OP_18.Enabled = False
If Ark08.Range("Sysmap800").Offset(0, 3).Value = "Nej" Then cmd_OP_19.Enabled = False
If Ark08.Range("Sysmap810").Offset(0, 3).Value = "Nej" Then cmd_OP_20.Enabled = False
If Ark08.Range("Sysmap820").Offset(0, 3).Value = "Nej" Then cmd_OP_21.Enabled = False
If Ark08.Range("Sysmap830").Offset(0, 3).Value = "Nej" Then cmd_OP_22.Enabled = False
End Sub
Private Sub UserForm_Terminate()
'Registrer at Oversigten er inaktiv
Ark02.Range("OversigtAktiv").Value = "FALSK"
End Sub
