Keuzelijst activeren in ALS formule

[jelledijkstra97]

Beste lezer,

Ik heb het volgende probleem.

In mijn eerste kolom kan ik voor verschillende personen ja of nee invullen. Vul ik ja in dan zijn er nog vele andere dingen die ingevuld moeten worden voor de deze persoon, in de kolommen waar dit ingevuld moet worden heb ik keuzelijsten gemaakt dmv gegevensvalidatie. Vul ik nee in dan hoef ik voor deze persoon verder niks meer in te vullen en wil ik dus in de overige kolommen 'nvt' zien.

Nu wil ik een formule die hiervoor kan zorgen, ik denk zelf een ALS.

Logische test: Kolom 1 = nee
waarde als waar: 'nvt'
waarde als onwaar: keuzelijst met de naam 'kolom 2'

Weet iemand hoe ik dit voor elkaar kan krijgen?

BVD!

 

[VenA]

Even de zoekfunctie gebruiken! Getrapte validatie geeft wel een paar resultaten. https://www.youtube.com/watch?v=evjY9oRd_XY voor als je ± 15 minuten de tijd hebt om je er in te verdiepen. En anders even een jouw bestandje uploaden dan wordt het wel ingepast.

 

[gast0660]

Hoi,
Waarschijnlijk bedoel je zoiets?
Bekijk de gegevensvalidatie (data validation) voor cel A1 & B1

 

[jelledijkstra97]

Dank voor uw snelle antwoord!
Dit gebruik van de gegevens validatie had ik echter zelf ook al uitgevonden, wat ik wil is het volgende.

Als 'nee' wordt ingevuld in C3, dan wordt in D t/m F3 automatisch 'nvt' ingevuld.
Als 'ja' wordt ingevuld in C3, dan wil ik een keuzelijst in D t/m F3.

In dit voorbeeld is natuurlijk alles gemakkelijk handmatig in te vullen maar in het bestand waar het ingevoegd moet worden (een medisch onderzoek met daarin heel veel in te vullen kolommen) is het bijna een must.

Ik hoop dat jullie kunnen helpen!

Wederom bij voorbaat dank!

 

[jelledijkstra97]

Het automatisch invullen van de eerste optie op de keuzelijst, in dat geval dan 'nvt', is ook voldoende trouwens.

 

[VenA]

Plaats een excel voorbeeldje ipv een plaatje. Ik denk dat het alleen met VBA kan en dan is het wel handig om te weten wat waar staat.

Het zal dan zoiets worden

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
    If Target = "Nee" Then Target.Offset(, 1).Resize(, 3).Value = "Nvt"
End If
End Sub

 

[jelledijkstra97]

Bij dezen het bestand, ik hoop dat het dmv VBA kan werken!
Bekijk bijlage Voorbeeld1.xlsx

 

[VenA]

In excel is het een goede gewoonte om in A1 te beginnen. Je hebt geen keuzelijst staan onder huisdier? Terwijl dit toch de kolom is waar je iets mee wil.

Wel even zorgen dat je macro's mag uitvoeren anders werkt het niet.

 

[jelledijkstra97]

Onwijs bedankt!

Het werkt en heb het succesvol kunnen aanpassen en gebruiken in het medische dossier.