M
Monk
Hi
I am attempting to run a macro when there is a change in cell value.
The code in the worksheet is as follows:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$c$1" Then Refresh1
End Sub
The code for the macro Refresh1 is
Sub Refresh1()
Application.ScreenUpdating = False
Application.Calculation = xlManual
ActiveSheet.ShowAllData
Range("A4:B2000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("C4").Select
Application.Run "HideBlankRows"
Range("C1").Select
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
Refresh1 works fine when running it via Tools/Macro/Macros however it
doesn't seem to work properly when there is a change in the cell value which
is supposed to run it automatically. It appears that the ShowAllData and
HideBlankRows commands are not working.
Any assistance to detect my error would be appreciated.
Thanks
Monk
I am attempting to run a macro when there is a change in cell value.
The code in the worksheet is as follows:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$c$1" Then Refresh1
End Sub
The code for the macro Refresh1 is
Sub Refresh1()
Application.ScreenUpdating = False
Application.Calculation = xlManual
ActiveSheet.ShowAllData
Range("A4:B2000").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("C4").Select
Application.Run "HideBlankRows"
Range("C1").Select
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
Refresh1 works fine when running it via Tools/Macro/Macros however it
doesn't seem to work properly when there is a change in the cell value which
is supposed to run it automatically. It appears that the ShowAllData and
HideBlankRows commands are not working.
Any assistance to detect my error would be appreciated.
Thanks
Monk