Avatar billede ups34 Nybegynder
27. juni 2011 - 14:57 Der 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.

Jeg bruger ikke "Unload Me" nogen steder.

Håber det er simpelt ;-)

MVH
Ups
Avatar billede Ialocin Novice
27. juni 2011 - 21:27 #1
Hej Ups34

Mit bedste bud er, at din første Userform skal åbnes i modal tilstand.

Hvis eksempelvis Userforms er modale, skal de lukkes ned bagfra ... altså den der er åbnet sidst skal lukkes først og så fremdeles.


Hvis følgende kode er den der åbner din første userform ??     
Så prøv at tilføje følgende ... se markering bag show:

Private Sub Worksheet_Activate()
Load usfmedarb
usfmedarb.Show(1)
End Sub


Hvor argumentet 1 i parentesen efter show fortæller, at userformen skal åbnes i modal tilstand.

Det er blot en tanke, men prøv det og lad høre :o)

Med venlig hilsen, Nicolai
Avatar billede ups34 Nybegynder
28. juni 2011 - 08:12 #2
Hej Nicolai

Desværre det hjalp ikke
MVH
Ups
Avatar billede supertekst Ekspert
28. juni 2011 - 11:35 #3
Prøv med:
usfmedarb.Show 0
Avatar billede Ialocin Novice
28. juni 2011 - 13:40 #4
Hej Ups34

Hvor og hvordan åbner du din første userform ??

Med venlig hilsen, Nicolai
Avatar billede ups34 Nybegynder
28. juni 2011 - 15:25 #5
Hej alle

Userformen åbner ved worksheet

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

MVH
Ups
Avatar billede ups34 Nybegynder
28. juni 2011 - 15:26 #6
Og til supertekst
Desværre, det hjalp ikke
Avatar billede store-morten Ekspert
28. juni 2011 - 16:38 #7
Sætte du supertekst forslag i ( )

usfmedarb.Show (0)

Eller måske:
usfmedarb.Show vbModeless

Gør det samme
Avatar billede Ialocin Novice
28. juni 2011 - 22:22 #8
Hej ups34

I #1 skriver du følgende:


I Worksheets har jeg:
Private Sub Worksheet_Activate()
Load usfmedarb
usfmedarb.Show
End Sub


Prøv koden i Workbook´ens hændelse istedet:

Private Sub Workbook_Activate()
Load usfmedarb
usfmedarb.Show
End Sub



Med venlig hilsen, Nicolai
Avatar billede ups34 Nybegynder
29. juni 2011 - 07:16 #9
Hej alle

Nu har jeg prøvet med (0) og vbModeless i alle koder. Jeg har følgende koder.

Private Sub Workbook_Activate()
Load usfmedarb
usfmedarb.Show vbModeless
End Sub

Private Sub Workbook_Open()
Load usfmedarb
usfmedarb.Show vbModeless
End Sub

Sub Autoopen()
 
Load usfmedarb
usfmedarb.Show vbModeless
 

End Sub

Private Sub Worksheet_Activate()
Load usfmedarb
usfmedarb.Show vbModeless
End Sub

Det er ikke manglende koder ;-), men aligevel userformen er ikke synlig når jeg "vender tilbage"

MVH

Ups
Avatar billede supertekst Ekspert
29. juni 2011 - 08:44 #10
ok - du skal være velkommen til at sende filen. @-adresse under min profil.
Avatar billede ups34 Nybegynder
29. juni 2011 - 10:28 #11
Hej supertekst

filer på vej ;-)
Tak for hjælpen
Avatar billede Ialocin Novice
30. juni 2011 - 22:32 #12
Hej Begge

Og når I så finder løsningen ?? ... Så vil vi andre gerne se den.


Med venlig hilsen, Nicolai
Avatar billede ups34 Nybegynder
01. juli 2011 - 08:32 #13
Hej lalocin

Det er ikke løst endnu, og vi kan ikke finde ud hvordan, da det skal virke vha en indscanning.
Får jeg en løsning skal jeg nok skrive det

MVh
Ups
Avatar billede ups34 Nybegynder
29. november 2011 - 20:36 #14
Jeg fandt aldirg en løsning derfor lukker jeg
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester