Optionbutton, hvor valget skal huskes

Den her kode husker ikke sidste valg men du kan starte med den:
Lav en userform med 9 option button og en command button og læg denne kode under commandbutton.
Private Sub CommandButton1_Click()

Worksheets("Ark1").Activate
Range("A1").Select

With UserForm1
If .OptionButton1 Then sOne = "1"
If .OptionButton2 Then sOne = "2"
If .OptionButton3 Then sOne = "3"
If .OptionButton4 Then sTwo = "1"
If .OptionButton5 Then sTwo = "2"
If .OptionButton6 Then sTwo = "3"
If .OptionButton7 Then sThree = "1"
If .OptionButton8 Then sThree = "2"
If .OptionButton9 Then sThree = "3"

End With
With ActiveCell
.Offset(0, 0).Value = sOne
.Offset(1, 0).Value = sTwo
.Offset(2, 0).Value = sThree


End With
  End Sub

Det virker ikke!
Jeg skal jo kunne vælge en motorstørrelse for hver bilmærke. Den skal desuden kunne huske hvad der blev valgt sidste gang :o(

Synes da at alen32's kode ser fornuftig ud.
sOne = Opel og 3 motorvalg (1,2,3)
sTwo = mazda osv.

Valgene bliver endvidere gemt på arket, så det er da muligt at hive dem ind næste gang.

Jeg kan ikke vælge motorstørrelse for både Opel, Mazda og Toyota på samme tid. Jeg kan kun vælge én gang. Jeg vil gerne have at der kan vælges for alle tre. Den skal desuden starte med det valg der blev truffet sidste gang. Dette valg skal altså læses ind på userformen på en eller anden måde. Det er godt nok store krav.

skriv e-mail så sender jeg dig arket

SeneeNielsen@hotmail.com

Perfekt! :-) sender du et svar

Det eneste der mangler, er at den skal huske hvad der blev indtastet sidste gang. Den skal altså lige læse data fra regnearket

Kan man ikke bruge noget:

if range("A1") = 1 then OptionButton = true
if range("A1") = 2 then OptionButton = true
if range("A1") = 3 then OptionButton = true
End if

if range("A2") = 1 then OptionButton = true
if range("A2") = 2 then OptionButton = true
if range("A2") = 3 then OptionButton = true
End if
osv.

Ja
Private Sub UserForm_Initialize()
Worksheets("Ark1").Activate
Range("A1:A3").Select
If Range("A1").Value = "1" Then OptionButton1.Value = True
If Range("A1").Value = "2" Then OptionButton2.Value = True
If Range("A1").Value = "3" Then OptionButton3.Value = True
If Range("A2").Value = "1" Then OptionButton4.Value = True
If Range("A2").Value = "2" Then OptionButton5.Value = True
If Range("A2").Value = "3" Then OptionButton6.Value = True
If Range("A3").Value = "1" Then OptionButton7.Value = True
If Range("A3").Value = "2" Then OptionButton8.Value = True
If Range("A3").Value = "3" Then OptionButton9.Value = True
End Sub

Så er den præcis som den skal være. Hvis du sender et svar, så får du point :-))

svar

du er nødt til at sende et svar :-)

svar