Makro og VBA - åben userform med det samme

åben userform med det samme

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2148
Udskrevet den: 23.Nov.2024 kl. 16:01

Emne: åben userform med det samme

Besked fra: Leonhardt
Emne: åben userform med det samme
Posteringsdato: 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é

uploads/1452/FYI2015NY.xlsx.xls.xlsm" rel="nofollow - uploads/1452/FYI2015NY.xlsx.xls.xlsm

Svar:

Besked fra: froksen
Posteringsdato: 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.

Besked fra: froksen
Posteringsdato: 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

Besked fra: froksen
Posteringsdato: 24.Jun.2015 kl. 15:59

Fik du det til at virke?

Besked fra: Leonhardt
Posteringsdato: 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é