Samenvoegen van verschillende kolommen in Excel 2010

[echtwel]

Goede dag,
Ik heb een vraag c.q. probleem.
Ik heb in Excel een formulier aangemaakt met diverse keuze optie's.
Nu loop ik tegen het volgende probleem aan:
IK heb in excel een cel gemaakt met de naam kinderen, in de cel daarnaast heb ik de mogelijkheid gemaakt (met gegevensvalidatie) tussen ja en nee.
Als men nee selecteert hoeft er niets te gebeuren, maar als men ja selecteert, dan moeten er eigenlijk twee nieuwe velden open gaan, namelijk hoeveel met de mogelijkheid van 1 t/m 7 en de vragen thuis wonend e.d.
Weet iemand hier een oplossing voor?

Met vriendelijke groet,

Echt wel

 

[snb]

Lijkt me geen pretje: een cel met kinderen

Bekende fout: burgerlijke staat.

 

[echtwel]

ha ha klopt, maar ik denk dat de mensen wel weten wat ik bedoel. ik hoop eigenlijk een ander antwoord te krijgen.

 

[AlexCEL]

Ik ben (nog) geen ster met VBA, maar heb toch een poging gedaan:

Bekijk bijlage Voorbeeld forum 2.xlsm

 

[VenA]

Niet zo bescheiden doen. Volgens mij werkt het.:thumb: Klein puntje sloop de 2 range().select eruit. Dan blijft de cursor in het vakje staan.

 

[echtwel]

Bedankt ziet er goed uit, inderdaad niet zo bescheiden.
Morgen ga ik mij hierin verdiepen. Nogmaals bedankt.

 

[echtwel]

welke 2e range bedoel je?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
If Cells(3, 3).Value = "Ja" Then
Rows("4:10").EntireRow.Hidden = False
Range("C4").Select
Else
Rows("4:10").EntireRow.Hidden = True
Range("C11").Select
End If
End If
End Sub


Sub Macro1()
Rows("4:10").Select
Selection.EntireRow.Hidden = True
End Sub
Sub Macro2()
Rows("3:11").Select
Selection.EntireRow.Hidden = False
Range("C8").Select
End Sub

 

[AlexCEL]

Het gaat om Range("C4") en Range("C11"), die zorgen ervoor dat de cursor 1 cel opschuift. Was een keuze, kan ook weggelaten worden naar eigen voorkeur.

Macro1 en Macro2 waren mijn kleine studieprojectjes, kunnen in het geheel worden gedeletet.

 

[snb]

@echtwel

Gebruik svp code tags rondom VBA code !

dit lijkt me voldoende:

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$C$3" Then  Rows("4:10").Hidden = target<>"ja"
End Sub

 

[echtwel]

bedankt ga ik doen