onderstaand voorbeeld in macro weergeven

[Colombia05]

Hi,
Ik ben bezig met het maken van een tool, waarvoor ik sommige regels wil verbergen en pas zichtbaar wil maken nadat in het keuzemenu "Ja" is geselecteerd.
Het lukt niet om de tekst voor de Macro goed in te typen. Een deel is zichtbaar nadat ik een Macro heb opgenomen, maar welke aanvullingen moet ik doen.
De tekst die zichtbaar wordt is:

Sub Kind
'
' Kind Macro
'

'
    Rows("8:12").Select
    Selection.EntireRow.Hidden = False
    Range("D9:G9").Select
End Sub

In bijlage het werkblad. Hoop dat iemand me kan helpen.
Groet
Bekijk bijlage Kind.xlsm

 

[HSV]

In moduleblad1.

Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
  Rows("9:12").EntireRow.Hidden = IIf(WorksheetFunction.And(.Address = "$G$8", .Value = "Ja"), False, True)
 End With
End Sub

 

[Warme bakkertje]

Plaats onderstaande in de bladmodule van Blad1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$8" Then
        If Target = "Ja" Then
            Rows("9:11").Hidden = False
        Else
            Rows("9:11").Hidden = True
        End If
    End If
End Sub

 

[Colombia05]

Hi Rudy, Harry,
Dank voor de reactie. Ik doe blijkbaar iets verkeerd want het werkt niet...
Ik heb de tekst die ik zelf had volledig gedelete, en het geprobeerd met enkel de tekst van Rudy, daarna enkel de tekst van Harry.
Groet, Esther

 

[oeldere]

Hierbij je bestand met de code van Rudi.

Ik heb het getest (en uiteraard) werkt deze code.

Ik ben er van overtuigd dat de code van HSV ook werkt, maar volgens mij kunnen niet beide codes in hetzelfde blad gezet worden.
Dit geeft conflicten.

 

[HSV]

Beetje jammer Oeldere dat je de code nu ook in een standaard én in moduleblad 1 hebt gezet.
Dit kan verwarring scheppen bij Esther.
Verwijder dus de code uit de standaard module, of nog beter .... verwijder de standaard module.

De code doet daar geen werking.

 

[oeldere]

@Harry

Opmerking is helemaal terecht.

Dit kan alleen maar voor verwarring zorgen; en dat was nu juist niet de bedoeling.

Bijgaand dan ook het aangepaste bestandje.

 

[Colombia05]

Oeldere, Harry,
Énorm bedankt! Het werkt, helemaal blij
Groet, Esther

 

[Colombia05]

Aanvullende vraag: als ik onder de 1e marco meerdere macro's wil aanmaken, wat moet ik van onderstaande afsluiting dan wijzigen?
End If
End If
End Sub

 

[oeldere]

Dat is afhankelijk van wat je met de macro wilt bereiken.

De macro waar je nu mee werkt, werkt bij een wijziging in cel G8.

Ik kan je onvoldoende helpen met de VBA oplossingen, maar je zult in ieder geval meer info moeten aanreiken, om een goed antwoord te krijgen.

 

[Colombia05]

Hi Oeldere,
Ik wil een aantal macro's onder elkaar zetten. In voorbeeld heb ik bijgevoegd wat de bedoeling is. De eerste macro (die jullie hebben voorgedaan) werkt. Bij de tweede heb ik het kunstje geprobeerd na te doen en de cellen aangepast op het niveau van de tweede vraag (huisdieren), maar hier gaat het fout.
Groet, Esther
Bekijk bijlage Kind 2 test.xlsm

 

[HSV]

Nu kan je het zelf wel uitbreiden lijkt me.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
 
    Case "$G$8"
        If Target = "Ja" Then
            Rows("9:11").Hidden = False
        Else
            Rows("9:11").Hidden = True
        End If

   Case "$G$12"
        If Target = "Ja" Then
            Rows("13:15").Hidden = False
        Else
            Rows("13:15").Hidden = True
        End If

   Case "$G$16"
        If Target = "Ja" Then
            Rows("17:19").Hidden = False
        Else
            Rows("17:19").Hidden = True
        End If
  End Select
End Sub

 

[sylvester-ponte]

de volgende stap zou zijn:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$8" Then
        If Target = "Ja" Then
            Rows("9:11").Hidden = False
        Else
            Rows("9:11").Hidden = True
        End If
    ElseIf Target.Address = "$G$12" Then
        If Target = "Ja" Then
            Rows("13:15").Hidden = False
        Else
            Rows("13:15").Hidden = True
        End If
    End If
End Sub

groet

 

[Colombia05]

Hoi Harry,Oerdele
Jullie zijn geweldig, het lukt nu. Hartelijk dank!
Groet, Esther