Hi Tiakeew,
Here is my code with adjustments.
Put this code under "Sheet1" of the "salesmaster-new" workbook.
Make sure to save your "Tiakeew - DO list Template (Printer)" workbook before selecting "Sheet1" of the "salesmaster-new" workbook or else Excel will ask you if you want to re-open the file without any adjustments being saved.
If the worksheet and/or workbook references above doesn't match yours, then replace them with what you have in the code (best done by using find/replace [Ctrl+ H]).
Private Sub Worksheet_Activate()
Dim lRow, lRowDB As Long
Dim DestBook As Workbook
Set DestBook = Workbooks("salesmaster-new")
Range("B2:L" & Rows.Count).ClearContents
Workbooks.Open Filename:="C:\Users\takyar\Documents\Tiakeew - DO list Template (Printer).xlsx"
Sheets("DB").Select
lRowDB = Sheets("DB").Range("Y" & Rows.Count).End(xlUp).Row
For Each cell In Sheets("DB").Range("Y70:Y" & lRowDB)
If cell = "WIP" And cell.Offset(0, 5) = "Deskjet 2540" Then
lRow = DestBook.Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Row
DestBook.Sheets("Sheet1").Range("B" & lRow) = Sheets("DB").Range("C" & cell.Row)
DestBook.Sheets("Sheet1").Range("C" & lRow) = Sheets("DB").Range("E" & cell.Row)
DestBook.Sheets("Sheet1").Range("D" & lRow) = Sheets("DB").Range("F" & cell.Row)
DestBook.Sheets("Sheet1").Range("E" & lRow) = Sheets("DB").Range("K" & cell.Row)
DestBook.Sheets("Sheet1").Range("F" & lRow) = Sheets("DB").Range("L" & cell.Row)
DestBook.Sheets("Sheet1").Range("G" & lRow) = Sheets("DB").Range("M" & cell.Row)
DestBook.Sheets("Sheet1").Range("H" & lRow) = Sheets("DB").Range("N" & cell.Row)
DestBook.Sheets("Sheet1").Range("I" & lRow) = Sheets("DB").Range("O" & cell.Row)
DestBook.Sheets("Sheet1").Range("J" & lRow) = Sheets("DB").Range("P" & cell.Row)
DestBook.Sheets("Sheet1").Range("K" & lRow) = Sheets("DB").Range("Q" & cell.Row)
DestBook.Sheets("Sheet1").Range("L" & lRow) = Sheets("DB").Range("AC" & cell.Row)
End If
Next cell
End Sub
Best regards,
Trowa