Dear Dick,
Please consider it..
Sub color_hide()
Dim sh As Worksheet
Dim rng As Range
Dim cell As Range
Set sh = ThisWorkbook.Sheets(1)
Set rng = sh.Range("H2:H" & sh.Cells(Rows.Count, "H").End(xlUp).Row)
For Each cell In rng
If cell.Value > 1 Then
cell.Interior.Color = vbYellow
cell.EntireRow.Hi
Dear Dick,
try it..
Sub color_hide()
Dim sh As Worksheet
Dim rng As Range
Dim cell As Range
Set sh = ThisWorkbook.Sheets(1)
Set rng = sh.Range("A2:A" & sh.Cells(Rows.Count, "H").End(xlUp).Row)
For Each cell In rng
If cell.Value > 1 Then
cell.Interior.Color = vbYellow
cell.EntireRow.Hidden = True
Need help with a macro to:
If nothing in Column "H" do nothing
If Column "H" has a number in it (always greater than 1)
Then Highlight entire row Yellow
Then Hide entire Row
Thanks again for much needed help.
--
Join official facebook page of this forum @
https://www.facebook.com/discussexcel
F
