Hi,
I have two different cells with different validation results. I would a
macro to run for each of them depending on my scenario. It works for cell
A14, but does not work for A16. Why? What is wrong with this picture?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$14" Then
Application.EnableEvents = False
Call selectedmacro_click
Application.EnableEvents = True
End If
Application.ScreenUpdating = True

End Sub
Private Sub selectedmacro_click()
Range("A:IV").EntireColumn.Hidden = False

For Each c In Range("B1:IV1")
If c <> 1 Then Columns(c.Column).Hidden = True
Next c

Range("A10").Select
End Sub
Private Sub Target()
Range("A:IV").EntireColumn.Hidden = False

For Each c In Range("B1:IV1")
If c <> 1 Then Columns(c.Column).Hidden = True
Next c

Range("A10").Select
End Sub

Private Sub Worksheet1_Change(ByVal Period As Range)
Application.ScreenUpdating = False
If Period.Address = "$A$16" Then
Application.EnableEvents = False
Call selectedmacro1_click
Application.EnableEvents = True
End If
Application.ScreenUpdating = True

End Sub
Private Sub selectedmacro1_click()
Range("A:IV").EntireColumn.Hidden = False

For Each c In Range("B5:IV5")
If c <> 1 Then Columns(c.Column).Hidden = True
Next c

Range("A10").Select
End Sub
Private Sub Period()
Range("A:IV").EntireColumn.Hidden = False

For Each c In Range("B5:IV5")
If c <> 1 Then Columns(c.Column).Hidden = True
Next c

Range("A10").Select
End Sub

Hi

As you can only have one worksheet_change macro, you have to do it like
this:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$14" Then
Application.EnableEvents = False
Call selectedmacro_click
Application.EnableEvents = True
ElseIf Target.Address = "$A$16" Then
Application.EnableEvents = False
Call selectedmacro1_click
Application.EnableEvents = True
End If
Application.ScreenUpdating = True
End Sub

Regards,
Per

"MrRJ" <(E-Mail Removed)> skrev i meddelelsen
news:149576DD-55CC-4AC3-ADCB-(E-Mail Removed)...
> Hi,
> I have two different cells with different validation results. I would a
> macro to run for each of them depending on my scenario. It works for cell
> A14, but does not work for A16. Why? What is wrong with this picture?
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Application.ScreenUpdating = False
> If Target.Address = "$A$14" Then
> Application.EnableEvents = False
> Call selectedmacro_click
> Application.EnableEvents = True
> End If
> Application.ScreenUpdating = True
>
> End Sub
> Private Sub selectedmacro_click()
> Range("A:IV").EntireColumn.Hidden = False
>
> For Each c In Range("B1:IV1")
> If c <> 1 Then Columns(c.Column).Hidden = True
> Next c
>
> Range("A10").Select
> End Sub
> Private Sub Target()
> Range("A:IV").EntireColumn.Hidden = False
>
> For Each c In Range("B1:IV1")
> If c <> 1 Then Columns(c.Column).Hidden = True
> Next c
>
> Range("A10").Select
> End Sub
>
> Private Sub Worksheet1_Change(ByVal Period As Range)
> Application.ScreenUpdating = False
> If Period.Address = "$A$16" Then
> Application.EnableEvents = False
> Call selectedmacro1_click
> Application.EnableEvents = True
> End If
> Application.ScreenUpdating = True
>
> End Sub
> Private Sub selectedmacro1_click()
> Range("A:IV").EntireColumn.Hidden = False
>
> For Each c In Range("B5:IV5")
> If c <> 1 Then Columns(c.Column).Hidden = True
> Next c
>
> Range("A10").Select
> End Sub
> Private Sub Period()
> Range("A:IV").EntireColumn.Hidden = False
>
> For Each c In Range("B5:IV5")
> If c <> 1 Then Columns(c.Column).Hidden = True
> Next c
>
> Range("A10").Select
> End Sub

That is awesome. It works. Thanks Per

"Per Jessen" wrote:

> Hi
>
> As you can only have one worksheet_change macro, you have to do it like
> this:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Application.ScreenUpdating = False
> If Target.Address = "$A$14" Then
> Application.EnableEvents = False
> Call selectedmacro_click
> Application.EnableEvents = True
> ElseIf Target.Address = "$A$16" Then
> Application.EnableEvents = False
> Call selectedmacro1_click
> Application.EnableEvents = True
> End If
> Application.ScreenUpdating = True
> End Sub
>
> Regards,
> Per
>
> "MrRJ" <(E-Mail Removed)> skrev i meddelelsen
> news:149576DD-55CC-4AC3-ADCB-(E-Mail Removed)...
> > Hi,
> > I have two different cells with different validation results. I would a
> > macro to run for each of them depending on my scenario. It works for cell
> > A14, but does not work for A16. Why? What is wrong with this picture?
> >
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > Application.ScreenUpdating = False
> > If Target.Address = "$A$14" Then
> > Application.EnableEvents = False
> > Call selectedmacro_click
> > Application.EnableEvents = True
> > End If
> > Application.ScreenUpdating = True
> >
> > End Sub
> > Private Sub selectedmacro_click()
> > Range("A:IV").EntireColumn.Hidden = False
> >
> > For Each c In Range("B1:IV1")
> > If c <> 1 Then Columns(c.Column).Hidden = True
> > Next c
> >
> > Range("A10").Select
> > End Sub
> > Private Sub Target()
> > Range("A:IV").EntireColumn.Hidden = False
> >
> > For Each c In Range("B1:IV1")
> > If c <> 1 Then Columns(c.Column).Hidden = True
> > Next c
> >
> > Range("A10").Select
> > End Sub
> >
> > Private Sub Worksheet1_Change(ByVal Period As Range)
> > Application.ScreenUpdating = False
> > If Period.Address = "$A$16" Then
> > Application.EnableEvents = False
> > Call selectedmacro1_click
> > Application.EnableEvents = True
> > End If
> > Application.ScreenUpdating = True
> >
> > End Sub
> > Private Sub selectedmacro1_click()
> > Range("A:IV").EntireColumn.Hidden = False
> >
> > For Each c In Range("B5:IV5")
> > If c <> 1 Then Columns(c.Column).Hidden = True
> > Next c
> >
> > Range("A10").Select
> > End Sub
> > Private Sub Period()
> > Range("A:IV").EntireColumn.Hidden = False
> >
> > For Each c In Range("B5:IV5")
> > If c <> 1 Then Columns(c.Column).Hidden = True
> > Next c
> >
> > Range("A10").Select
> > End Sub
>
>