A
akemeny
How can I modify the following Macro so that it will look at the value of the
cell to find the word? Right now its set to look at the cell, but the cells
are linked to other sheets.
Private Sub Worksheet_Activate()
Call Sheet4.getvalues
End Sub
--------------------------------------------------
Sub getvalues()
lr = Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row)
'MsgBox lr
Rows("2:" & lr).ClearContents
With Worksheets("Master")
slr = .Cells(Rows.Count, "c").End(xlUp).Row
'MsgBox slr
For i = 2 To slr
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
' If .Cells(i, "ag") = overturned Then .Rows(i).Copy Rows(dlr)
If .Cells(i, "ag") = overturned And Not IsDate(.Cells(i, "bm")) Then
..Rows(i).Copy Rows(dlr)
Next i
End With
End Sub
cell to find the word? Right now its set to look at the cell, but the cells
are linked to other sheets.
Private Sub Worksheet_Activate()
Call Sheet4.getvalues
End Sub
--------------------------------------------------
Sub getvalues()
lr = Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row)
'MsgBox lr
Rows("2:" & lr).ClearContents
With Worksheets("Master")
slr = .Cells(Rows.Count, "c").End(xlUp).Row
'MsgBox slr
For i = 2 To slr
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
' If .Cells(i, "ag") = overturned Then .Rows(i).Copy Rows(dlr)
If .Cells(i, "ag") = overturned And Not IsDate(.Cells(i, "bm")) Then
..Rows(i).Copy Rows(dlr)
Next i
End With
End Sub