Can you reverse a macro?

[nmbell]

I found a macro to "hide" rows that have a value <1 in them. However, occasionally, we need to go back and put values in those hidden rows. Is there a way to undue the macro or run a reverse of it? This is the macro I am using. I am also open to a better macro to accomplish what I want. Thank you!

Sub HideRows()
BeginRow = 1
EndRow = 420
ChkCol = 5

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt
End Sub

 

[Joe4]

Welcome to the Board!

Undoing a macro is not easy (see: Excel Tips From John Walkenbach: Undoing A VBA Subroutine).

However, I am not even sure you need Macros here at all. You should be able to use Filters to filter out (which hides) all the rows less than one. To undo it, just remove your Filter.
If you were to use VBA to do this, I would still use Filters. Loops are slow and more resource intensive and should be avoided if there are better alternatives.
If you turn on the Macro Recorder while you record yourself creating those Filters, you should be able to get most of the VBA code that you need.

 

[bhos123]

Sub HideRows()
BeginRow = 1
EndRow = 420
ChkCol = 5

For RowCnt = BeginRow To EndRow
'If Cells(RowCnt, ChkCol).Value < 1 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
'End If
Next RowCnt
End Sub

 

[nmbell]

I appreciate your quick reply!! I had originally tried to use the filter but within my table, there are merged rows that span the column that I want to filter. I think that is preventing the filter from working since the section between the column header and the first merged row filters properly but nothing below it does.. If that is true, do you know how I work around that?

 

[TonyUK72]

Sub Unhide()
'
' Unhide Macro
'


'
Application.ScreenUpdating = False
    Cells.Select
    Selection.EntireRow.Hidden = False
Application.ScreenUpdating = True
    Range("A1").Select


End Sub

Little simple, but you can adapt.

 

[Joe4]

I appreciate your quick reply!! I had originally tried to use the filter but within my table, there are merged rows that span the column that I want to filter. I think that is preventing the filter from working since the section between the column header and the first merged row filters properly but nothing below it does.. If that is true, do you know how I work around that?

Yes, get rid of the merged cells. They are a nightmare and causes lots of issues with things like VBA, sorting, etc. Most advanced Excel users avoid them like the plague!
You can usually easily replace them with the "Center Across Selection" formatting option, which gives you the same visual effect without all the issues.
See: http://blog.contextures.com/archives/2014/04/10/center-headings-without-merging-cells/