I'm working on a macro to automagically copy the entire row of a worksheet
(Sheet 1) to Sheet 2 if the cell in column D contains the word "total". I
got this to work once but then I took the code and tried using it for a
different worksheet. Once I did this it no longer worked. There must be
some minutia that I'm missing. Can someone please help me. Thank you.
Here's the code I have so far:
Sub CopyTotalsWithAutofilter()
Dim FilterValue As String
Dim rng As Range
Dim rng2 As Range
Set rng = Sheets("Sheet1").Range("D:D")
FilterValue = "*total*"
rng.AutoFilter Field:=1, Criteria1:=FilterValue
With Sheets("Sheet1").AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng2 Is Nothing Then
rng2.EntireRow.Copy Sheets("Sheet2").Range("A1")
End If
End With
ActiveSheet.AutoFilterMode = False
End Sub
Thanks!!
Bookmarks