Hi there
Working my way through developing a spreadsheet for a charity that is easy for them to use and gives them graphical information for their current financial year.
(I had another thread entitled dont want to go back past a certain date but it didnt get any responses as probably didnt explain myself properly).
Anyway I have a sheet that shows the previous twelve months data and if that twelve months go back past Sep 16 then the values are shown as blank (October is the start of their financial year). I only then want to chart rows that have values and I tried this macro and it worked.....but when I changed the date it didnt bring back the hidden rows!!! (I got this macro from a website and changed the range to the range of my data) Any suggestions:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("c40:c51")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
Working my way through developing a spreadsheet for a charity that is easy for them to use and gives them graphical information for their current financial year.
(I had another thread entitled dont want to go back past a certain date but it didnt get any responses as probably didnt explain myself properly).
Anyway I have a sheet that shows the previous twelve months data and if that twelve months go back past Sep 16 then the values are shown as blank (October is the start of their financial year). I only then want to chart rows that have values and I tried this macro and it worked.....but when I changed the date it didnt bring back the hidden rows!!! (I got this macro from a website and changed the range to the range of my data) Any suggestions:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("c40:c51")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub