show hidden rows based on cell value

Pas på med at lave en makro, som skjuler den linje du skriver ind i. Men med dette forbehold laver denne makro, det du ønsker, hvis jeg har forstået dig korrekt.
Den aktiveres, når du skriver i A2

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2")) Is Nothing Then
Range("A1:A100").EntireRow.Hidden = True
If Target = "Basic" Then
Range("A1:A10").EntireRow.Hidden = False
End If
If Target = "Complex" Then
Range("A20:A50").EntireRow.Hidden = False
End If
Target.Select
End If
End Sub

Hej jens48.

Hvis jeg forstår ovenstående, så skjuler den også rækkerne, hvis intet er valgt range. Korrekt?
Formålet med makroen er at lave et specifikt spørgeskema afhængig af hvad der er valgt i cellen.
Min tanke var så at have alle rækker med alle mulige spørgsmål skjulte og så have de relevante komme frem afhængig af hvad brugeren vælger i range. Brugeren vælger fra en rulleliste i range.

Ja, den starter med at skjule rækkerne 1 til 100. Det kan selvfølgelig laves om, så den i hvert fald ikke skjuler række 2, hvor du taster dit valg ind. Med denne lille ændring ville den se sådan ud:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2")) Is Nothing Then
Range("A3:A100").EntireRow.Hidden = True

If Target = "Basic" Then
Range("A3:A10").EntireRow.Hidden = False
End If

If Target = "Complex" Then
Range("A20:A50").EntireRow.Hidden = False
End If

Target.Select
End If
End Sub

Hvis du vil have flere valgmuligheder end to skal der blot for hver mulighed insættes tre linjer

Mange tak. Det ser ud til at virke

Forenklet:

Jeg har denne som gerne skulle skjule række 12 hvis værdien i celle F10 er tom eller >40. Den virker dog ikke

Private Sub Worksheet_Change_2(ByVal Target As Range)
If Not Intersect(Target, Range("F10")) Is Nothing Then
Row("12").EntireRow.Hidden = True

If Target < 40 Then Row(12).EntireRow.Hidden = False


Target.Select
End If
End Sub

Prøv med denne linje i stedet.

It Target <> "" and Target <40 Then Row(12).EntireRow.Hidden = False

Der sker ikke rigtig noget

Jeg havde lavet en stavefejl, jeg har fjernet citationstegnene omkring 12, Row rettet til Rows, og _2 i første linje fjernet

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F10")) Is Nothing Then
Rows(12).EntireRow.Hidden = True

If Target <> "" And Target < 40 Then Rows(12).EntireRow.Hidden = False

Target.Select
End If
End Sub

Denne virker

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("f10") > 40 Or Range("f10") = "" Then
Rows("12").EntireRow.Hidden = True
Else
Rows("12").EntireRow.Hidden = False

End If
End Sub