Userform VBA excel

[Word]

Hei,

 

jeg vil lage en "userform" (mangler det norske ordet?) som gjør følgende:

 

1. Bruker trykker på en knapp: "Hva vil du lage?"

2. Brukeren får flere alternativer, hvor hvert alternativ har sin egen "userform".

3. Bruker velger et alternativ og fyller ut forskjellige input data.

4. Bruker trykker på "OK", noe som gjør at enkelte av input verdiene blir lagt i tilgjengelige celler i arket, samt at det blir opprettet en makroknapp som gjør at brukeren på et senere tidspunkt kan se over input data på det det aktuelle alternativet (en metode for å lagre input data i "userform).

 

Håper dette var god nok forklaring

 

Setter stor pris på hjelp jeg kan få!

[Harald Staff]

Forklaringen var ok, men hva var spørsmålet?

[Word]

Hehe godt spørsmål! Beklager! Spørsmålet er som følger: Hvordan får jeg laget det som står beskrevet i punkt 4? Dvs. lagre input verdier i "userform".

Endret 9. desember 2012 av Word

[Word]

Se vedlagt bilde. Merk at en userform kan skal kunne ha flere verdier enn de 3 tilhørende verdiene som er vist i eksempelet.

Endret 9. desember 2012 av Word

[Harald Staff]

En userform kan ikke large verdier i seg, du må hente og lagre til f.eks et ark. Her er det variabelen R som styrer dette, R er raden det leses fra og skrives til. Eksemplet hardkoder den til 3, endre det til det kriteriet som passer opplegget ditt. Userformkode:

 

Option Explicit

Dim R As Long

Private Sub UserForm_Initialize()
R = 3
Me.TextBox1.Text = Sheets(1).Cells(R, 2).Value
Me.TextBox2.Text = Sheets(1).Cells(R, 3).Value
Me.TextBox3.Text = Sheets(1).Cells(R, 4).Value
End Sub

Private Sub CommandButton1_Click()
Sheets(1).Cells(R, 2).Value = Me.TextBox1.Text
Sheets(1).Cells(R, 3).Value = Me.TextBox2.Text
Sheets(1).Cells(R, 4).Value = Me.TextBox3.Text
Unload Me
End Sub

 

HTH. Beste hilsen Harald