27. juni 2011 - 14:57Der er
13 kommentarer og 1 løsning
Bevare en userform synlig
Hej alle
Jeg har en userform som virker ved at ved indscanning af navn, åbnes den rigtige fil. Her åbnes så en ny userform, som afsluttes med, at den åbnede fil gemmes og lukkes. nu er jeg så tilbage til start filen, men nu er userformen "forsvundet", altså ikke synlig.
Koden jeg bruger til at åbne den anden fil er. If lstnavne.Text = "Allan Olsen" Then Workbooks.Open Filename:="G:\GMR tidsreg\Allan Olsen.xlsm" Worksheets("Uge seddel").Activate End If
I Worksheets har jeg: Private Sub Worksheet_Activate() Load usfmedarb usfmedarb.Show End Sub
Men userformen kommer først frem når jeg skifter mellem arkene.
Private Sub Worksheet_Activate() Load usfmedarb usfmedarb.Show (1) End Sub
Samtidigt har jeg lagt følgende ind i et modul
Sub Autoopen()
usfmedarb.Show (1)
End Sub
Det vil sige at userformen (den første) åbner når arket bliver aktiveret. Vha userformen finder man så en ny fil, der også automatisk åbner en userform. Når den enkelte er færdig med registrering i den nye userform, gemmes og lukkes både userform og fil. Nu er jeg så tilbage på det rigtige ark, men den første userform er ikke fremme, den kommer (selvfølgelig) hvis jeg går til et andet ark og tilbage
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.