Basic if , then , move help please

[karl_everest]

Hi,
I need a code to do the following
IF A CELL IN COLUMN H=INACTIVE THEN MOVE THE COROSPONDING ROW TO TO SHEET2. PLEASE HELP, I HAVEN'T USED EXCEL IN SO LONG I AM LOST, I HAVE TRIED GOOGLING BUT CANT FIND THE COMMANDS

 

[JackDanIce]

Welcome to the board. You don't say where in Sheet2 you want the found row moved to, so to begin with you can use the code below then modify it:

Sub LastPenguinInExistance()
Dim i As Long, j As Long
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
If IsEmpty(Sheets("Sheet2").Range("A1")) Then j = 0
With Sheets("Sheet1")
    For i = 1 To .Range("H" & Rows.Count).End(xlUp).Row
        If .Range("H" & i) = "INACTIVE" Then
            .Rows(i).Copy
            If j = 0 Then
                Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteAll
                j = 1
            Else
                With Sheets("Sheet2")
                    j = .Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Row
                    .Range("A" & j).PasteSpecial Paste:=xlPasteAll
                End With
            End If
        End If
    Next i
End With
With Application
    .ScreenUpdating = True
    .Calculation = xlAutomatic
    .CutCopyMode = False
End With
End Sub

 

[JackDanIce]

IMO, a quicker method would be to filter column H for values of "INACTIVE" and then move all the visible rows into Sheet2. You can record a macro and then review the code to see how this is done.