Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketåben userform med det samme

 Besvar Besvar
Forfatter
Leonhardt Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 03.Jun.2015
Land: DK
Status: Offline
Point: 77
Direkte link til dette indlæg Emne: åben userform med det samme
    Sendt: 20.Jun.2015 kl. 09:15
Hej
 
Er der en kode der åben Min Userform med det sammen.
jeg har lavet det her ark folk skal tast ind i. men de skal ikke se ark. men kun userform.
 
kan man også lave en kode der kun sletter den sidst linje der er kommet ind?
 
og til sidst, hvordan sikre jeg folk kun tast vare nr. og fejl ind som er på listen?
 
håber en kan hjælp.
 
MVH
René
 
Til top



Til top
froksen Se dropdown
Sølv bruger
Sølv bruger


Medlem: 21.Maj.2011
Land: DK
Status: Offline
Point: 196
Direkte link til dette indlæg Sendt: 21.Jun.2015 kl. 20:49
Hej

Åbne userform med det samme:
Du var tæt på. Du skal dog skrive userformnavnet.show i stedet for userform.userformnavn. Se herunder
Private Sub Workbook_Open()
    afvigelse.Show
End Sub

Sikre, at kun elementer fra listen (Combobox) kan vælges.
1) Marker den Combobox du vil gøre det ved
2) I "Properties" vinduet find "Style" 
3) Ændre den til "2 - FmListStylePlain"

Overstående kan også gøres direkte i koden f.eks. i "UserForm_Initialize"
CBPR.Style = fmStyleDropDownList

Det sidste spørgsmål forstår jeg ikke :-/

Håber det kan bruges.
Til top
froksen Se dropdown
Sølv bruger
Sølv bruger


Medlem: 21.Maj.2011
Land: DK
Status: Offline
Point: 196
Direkte link til dette indlæg Sendt: 21.Jun.2015 kl. 20:56
Foresten et lille tip. Du kan evt. gøre det, at når din UserForm startes, så skjules Excel. Derved opdager brugen (næsten) ikke at det faktisk "bare" er Excel der bruges. Du kan skjule Excel ved at bruge:

 
Application.Visible = False

Bare husk, at lave sådan at når UserFormen lukkes, da lukkes Excel også. Kan evt. gøres via følgende i UserForm´ens kode
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'Viser programmet igen (Altid en god idé)
    Application.Visible = True
    
    'Slår fra så der ikke spørges om "Er du sikker?"
    Application.DisplayAlerts = False
    'Gemmer og lukker
    ActiveWorkbook.Close savechanges:=True
    
    'Aktiverer advarsler igen
    Application.DisplayAlerts = True
End Sub
Til top
froksen Se dropdown
Sølv bruger
Sølv bruger


Medlem: 21.Maj.2011
Land: DK
Status: Offline
Point: 196
Direkte link til dette indlæg Sendt: 24.Jun.2015 kl. 15:59
Fik du det til at virke?
Til top
Leonhardt Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 03.Jun.2015
Land: DK
Status: Offline
Point: 77
Direkte link til dette indlæg Sendt: 24.Jun.2015 kl. 18:43
Hej
 
JA tak, det først du skriv fik jeg til at virke. men hvordan kommer jeg over og kigge i Regneark, når jeg selv skal ind og hente data. og kan man lave en knap der åbne et bestemt ark? år jeg ligge den sidst kode en du har lavet. da det virke smart.
 
MVH
René
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk