Hide row if

[bouncey]

Hi there,

I have sheet which I add to daily. When I enter data into any cell in column A I need to know if there is already an identical entry. Also I would like to search through column H, if a cell is populated I would like to hide that row.

All help to put the above into a macro would be most appreciated

 

[stnkynts]

Your parameters for executing the code are very cloudy so I made a bunch of assumptions but here you go.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastrow As Long, hlastrow As Long
Dim iFind As Range, icell As Range
 
lastrow = Range("A" & Rows.Count).End(xlUp).Row
hlastrow = Range("H" & Rows.Count).End(xlUp).Row
 
'Finds if there is a duplicate in column A and alerts you to its location by a message box
If Not Intersect(Target, Range("A1:A" & lastrow + 1)) Is Nothing Then
    Set iFind = Range("A1:A" & lastrow - 1).Find(What:=Target.Value, After:=Range("A1"), LookIn:=xlValues, Lookat:=xlWhole)
    If Not iFind Is Nothing Then
        MsgBox ("There is a duplicate entry at " & iFind.Address)
    End If
'Searches through column H for any value and if true hides that entire row
For Each icell In Range("H1:H" & hlastrow)
    If Not IsEmpty(icell) Then
        icell.EntireRow.Hidden = True
    End If
Next icell
 
End If
End Sub

 

[bouncey]

Superb, thanks.