14. oktober 2016 - 00:42Der 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?
'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"
'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
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
