• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Default value instellen van dropdown lijst

Status
Niet open voor verdere reacties.
B

Bjorkie

Gebruiker
Lid geworden
12 sep 2017
Berichten
147
Beste allen,

ik heb een dropdown list (Data validation) in mijn excel lijst.
met 2 waarden "No" & "Yes"
Nu wil ik via een VBA-script, dat deze allemaal 'gereset' worden en op "No" komen te staan.
ik dacht, simple met volgend script, maar hier voert hij enkel de eerste lijn uit. (lijn 5)

Code: 
Sub Clear_aAccList()
'
' Clear_aAccList Macro
    Worksheets("Camera List").Range("G5:H268").Select
    ActiveCell.FormulaR1C1 = "No"
'    Selection.ClearContents
    Worksheets("Camera List").Range("K5:K268").Select
    ActiveCell.FormulaR1C1 = "No"
'    Selection.ClearContents
    Worksheets("Camera List").Range("N5:N268").Select
    ActiveCell.FormulaR1C1 = "No"
'    Selection.ClearContents
    Worksheets("Camera List").Range("O5:O268").Select
    ActiveCell.FormulaR1C1 = "No"
'    Selection.ClearContents
    Worksheets("Camera List").Range("R5:W268").Select
    ActiveCell.FormulaR1C1 = "No"
'    Selection.ClearContents
' select Cel A1 with cursor
    Range("A1").Select
End Sub

is er een eenvoudige manier om dit te doen?
 
Code: 
Sheets("Camera List").Range("G5:H268, K5:K268, N5:N268, O5:O268, R5:R268").Value = "No"
 
Laatst bewerkt:
@Edmoor: bedankt voor de hulp.
ik maak gebruik van volgend script nu:
Code: 
Sub Default_aAccList()
' Clear_aAccList Macro
    Worksheets("Camera List").Range("G5:H244").Value = "No"
    Worksheets("Camera List").Range("K5:K244").Value = "No"
    Worksheets("Camera List").Range("N5:O244").Value = "No"
    Worksheets("Camera List").Range("R5:W244").Value = "No"
'
' 
' select Cel A1 with cursor
    Range("A1").Select
End Sub
Als ik jouw optie gebruikte, kreeg ik een Runtime error 1004. misschien opdat mijn opsomming te lang was?
op deze manier lukt het ook, en is het best zeer snel.
bedankt
 
@gast0660: jij ook bedankt voor de tip.
zoals veerder aangegeven in #3, kan je zien welke funtie ik gebruik.
jouw mogelijkheid was ook best mooi, maar nam behoorlijk veel tijd in beslag om uit te voeren.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan