[Løst] Excel 2007 VBA Hvordan nullstille Rullegardin og checkbox med makro

[Bigelk]

Hei.

 

Jeg trenger og nullstille Checkbox verdier og rullegardinverdier.

checkboxene er active x å rullegardinene er skjemakontroll.

 

Noen som har forslag på hvordan det kan løses?

 

Hilsen

 

Torbjørn

[Bigelk]

Hei.

 

Da var denne løst, men jeg prøver og lage en loop ut av disse kodene men får det ikke helt til.

Noen som vet hvordan jeg kan loope disse kodene?

'checkbox reset
Sheets("plukk").CheckBox1.Value = False

'Rullegardin reser
ActiveSheet.DropDowns("rullegardin 40").ListIndex = 1

 

Hilsen

 

Torbjørn

[Harald Staff]

Hei igjen Torbjørn

 

Skjemakontroller er enkle, de ligger i collections etter type. (Dessverre er disse fine tingene usynlige i intellisense og object browser). Slik:

 

Sub RensControls()

 

Dim i As Long

 

For i = 1 To ActiveSheet.DropDowns.Count

 

ActiveSheet.DropDowns(i).ListIndex = 1

 

Next

 

End Sub

 

 

ActiveX derimot ligger i en stor bøtte. Man kan (og bør) definere sine egne collections for å ha styr på slikt, eller man sjekker alt innhold i hele bøtta, slik:

 

 

Sub RensActiveX()

 

Dim Boks As OLEObject

 

For Each Boks In ActiveSheet.OLEObjects

 

If Boks.progID = "Forms.CheckBox.1" Then

 

Boks.Object.Value = False

 

End If

 

Next Boks

 

End Sub

 

HTH. Beste hilsen Harald

[Bigelk]

Hei igjen Harald.

 

Hva skulle brukerne av "programmet" mitt gjort uten deg?

 

Tusen takk for hjelpen, får ikke prøvd kodene akkurat nå men er sikker på at de fungerer helt fint.

 

God Helg

Hilsen

 

Torbjørn