I have a macro that is working in one sheet, and after copying it and making a few path changes it should have been working. However some of it is not, can someone please check this out and let me know if they see anything wrong?
I have bolded the part that is not working.
WORKING MACRO:
Sub MacrosNew1()
Range("A3:L5000").Select
Selection.Copy
Sheets("SALE").Select
Range("A3").Select
ActiveSheet.Paste
Sheets("GTS").Select
Application.CutCopyMode = False
Range("P3:P5000").Select
Selection.Copy
Sheets("SALE").Select
Range("M3").Select
ActiveSheet.Paste
Sheets("GTS").Select
Application.CutCopyMode = False
Range("S3:U5000").Select
Selection.Copy
Sheets("SALE").Select
Range("O3").Select
ActiveSheet.Paste
Sheets("GTS").Select
Application.CutCopyMode = False
Range("W3:X5000").Select
Selection.Copy
Sheets("SALE").Select
Range("S3").Select
ActiveSheet.Paste
Sheets("GTS").Select
Application.CutCopyMode = False
Dim i, LastRow
LastRow = Sheets("SALE").Range("B" & Rows.Count).End(xlUp).Row
Sheets("DEL").Range("A2:S5000").ClearContents
For i = 1 To LastRow
If Sheets("SALE").Cells(i, "B").Value = "DELHI" Then
Sheets("SALE").Cells(i, "B").EntireRow.Copy Destination:=Sheets("DEL").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
ThisWorkbook.Activate
Worksheets("DEL").Activate
Columns("A:T").Select
Selection.Copy
Workbooks.Open Filename:="C:\users\admin\Dropbox\GTS DEL 2017.xlsm"
Sheets("DEL").Activate
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
ThisWorkbook.Activate
Worksheets("SALE").Activate
Range("A3:T5000").Select
Selection.Copy
Workbooks.Open Filename:="C:\users\admin\OneDrive\GTS HK 2017.xlsm"
Sheets("HK").Activate
Range("A3").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
ThisWorkbook.Activate
Sheets("DEL").Select
Sheets("SALE").Select
Application.CutCopyMode = False
End Sub
NON WORKING MACRO:
Sub MACROSNEW()
Range("A3:L5000,Q3:U5000,W3:AB5000").Select
Selection.Copy
Sheets("SALE").Select
Range("A3").Select
ActiveSheet.Paste
Dim i, LastRow
LastRow = Sheets("SALE").Range("B" & Rows.Count).End(xlUp).Row
Sheets("DEL").Range("A3:W5000").ClearContents
For i = 1 To LastRow
If Sheets("SALE").Cells(i, "B").Value = "DELHI" Then
Sheets("SALE").Cells(i, "B").EntireRow.Copy Destination:=Sheets("DEL").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
ThisWorkbook.Activate
Worksheets("DEL").Activate
Range("A3:W5000").Select
Selection.Copy
Workbooks.Open Filename:="C:\users\admin\OneDrive\vamsa.xlsm"
Sheets("SALE").Activate
Range("A3").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
ThisWorkbook.Activate
Sheets("DEL").Select
Application.CutCopyMode = False
End Sub
Bookmarks