valideren indirect / uitklaplijst

[Lamb]

Als ik in bijgevoegd bestand kolom A iets anders wil selecteren, worden de kolommen B en C direct leeg gemaakt. Perfect!
Ik heb begrepen dat het legen van de cellen in in VBA (ctrl F11) staat
Nu wil ik dit ook naar beneden op de rijen (plm. 50) daaronder toepassen.
Ik heb geprobeerd door het $ te verwijderen, het cijfer (=rij) 4 te verwijderen en een copie er onder te plaatsen waarbij ik het cijfer 4 dan vervangen voor cijfer (=rij) 5.
Hierbij krijg ik in VBA compileerfoutmelding:
"Er is een dubbelzinnige naam gevonden: Worksheet_Change".

Enig idee hoe ik dit oplos?

 

[Wigi]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 1 Then Target.Offset(, 1).Resize(, 2).ClearContents
    End If
End Sub

 

[Lamb]

Toegepast en het werkt, bedankt voor de snelle reactie Wigi! :thumb:

Nu wil ik graag 2 (blanco) kolommen toevoegen A en B. De validatie vindt dan plaats in de kolommen C, D en E. Dan werkt deze formule echter niet (meer).

[In totaal wil ik een invulformulier maken met validatie in de kolommen C, D en E en ongeveer 50 rijen per pagina.]

Enig idee hoe ik dit oplos?

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = [COLOR="Red"][B]3[/B][/COLOR] Then Target.Offset(, 1).Resize(, 2).ClearContents
    End If
End Sub

Met vriendelijke groet,


Roncancio

 

[Lamb]

Toegepast en het werkt, hartstikke bedankt voor de snelle reactie Roncancio :thumb:

Was alles maar zo simpel . . . . . zucht

'case closed' wat mij betreft.

De eerste kennismaking is mij goed bevallen.

 

[Wigi]

Zet de vraag nog op opgelost aub (rechts onder op de pagina klikken).

 

[Lamb]

Zet de vraag nog op opgelost aub (rechts onder op de pagina klikken).

Ik heb een paar keer op 'Vraag is opgelost' geklikt, zie echter niet dat de vraag is afgesloten. Wat doe ik verkeerd?


Mv rgr.

Lamb

 

[Wigi]

Het is gelukt