RoseChapman
New Member
- Joined
- Jun 12, 2018
- Messages
- 40
Hello all,
I have problems using the code below. It does the work filtering and getting the right columns however it copies the same columns millions of times up to row 1048576
Could you please help me?. Many thanks. Rose
Sub Filtering()
Dim Lastrow As Long
With Sheets("Sheet1")
If .Range("L:L").Find("*House*", , xlValues, xlWhole, , , False) Is Nothing Then
MsgBox "No ""Changed"" rows found. ", , "No Rows Copied": Exit Sub
End If
Application.ScreenUpdating = False
Lastrow = .Range("BY" & Rows.Count).End(xlUp).Row
.Range("A1:BY" & Lastrow).AutoFilter Field:=76, Criteria1:="*House*"
Intersect(.AutoFilter.Range, .Range("A:A, L:L, BX:BX")).Copy
Sheets("Paste").Range("A:R").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False
.AutoFilterMode = False
With Application
.CutCopyMode = False
.Goto Sheets("Outputs").Range("A:BX")
.ScreenUpdating = True
End With
End With
End Sub
I have problems using the code below. It does the work filtering and getting the right columns however it copies the same columns millions of times up to row 1048576
Could you please help me?. Many thanks. Rose
Sub Filtering()
Dim Lastrow As Long
With Sheets("Sheet1")
If .Range("L:L").Find("*House*", , xlValues, xlWhole, , , False) Is Nothing Then
MsgBox "No ""Changed"" rows found. ", , "No Rows Copied": Exit Sub
End If
Application.ScreenUpdating = False
Lastrow = .Range("BY" & Rows.Count).End(xlUp).Row
.Range("A1:BY" & Lastrow).AutoFilter Field:=76, Criteria1:="*House*"
Intersect(.AutoFilter.Range, .Range("A:A, L:L, BX:BX")).Copy
Sheets("Paste").Range("A:R").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False
.AutoFilterMode = False
With Application
.CutCopyMode = False
.Goto Sheets("Outputs").Range("A:BX")
.ScreenUpdating = True
End With
End With
End Sub