Když se do žlutého pole záda 1 tak se skryje pole od 2, 3, 4, 5 a 6 a potřebuji, aby když je 1 zadané celé hodnoty v řádku tak aby se zobrazil 2 řádek účel platby.

Makra:
Private Sub Worksheet_Change(ByVal Target As Range)
Set aCell = Range("A4")
If Not Intersect(Target, aCell) Is Nothing Then
Range("B6:AR14").EntireRow.Hidden = aCell = "1"
End If
End Sub

Žádné jiné makra tu nejsou.

Děkuji