Hey guys,
Need to say if all this auto filter is met then - field:=27 (TH SENT)
Possible? Even though I'm ensuring it's blank.
Sub THSchedule()
Application.ScreenUpdating = False
Dim GutterWS As Worksheet ''DESTINATION SHEET''
On Error Resume Next
Set TB = ActiveWorkbook
Set OB = ActiveWorkbook
erow = OB.Sheets("TH6475").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row '' DESTINATION SHEET''
TB.Activate
Sheets("MasterBOM").Range("H:Y").EntireColumn.Hidden = False ''SCHEDULER SHEET''
With Sheets("MasterBOM").UsedRange
'.AutoFilter
.AutoFilter Field:=23, Criteria1:="TH64075"
.AutoFilter Field:=25, Criteria1:="SEND THESE"
.AutoFilter Field:=27, Criteria1:="="
.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy OB.Sheets("TH6475").Cells(erow, 1)
'.AutoFilter
End With
Sheets("MasterBOM").Range("N:U").EntireColumn.Hidden = True
Sheets("MasterBOM").Range("V:Y").EntireColumn.Hidden = False
On Error GoTo 0
Call MarkAsManufactured
End Sub
Sorry really lost...probably another simple one. Would love an explaination also on the solution so I can better educate myself
Thanks all!
Need to say if all this auto filter is met then - field:=27 (TH SENT)
Possible? Even though I'm ensuring it's blank.
Sub THSchedule()
Application.ScreenUpdating = False
Dim GutterWS As Worksheet ''DESTINATION SHEET''
On Error Resume Next
Set TB = ActiveWorkbook
Set OB = ActiveWorkbook
erow = OB.Sheets("TH6475").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row '' DESTINATION SHEET''
TB.Activate
Sheets("MasterBOM").Range("H:Y").EntireColumn.Hidden = False ''SCHEDULER SHEET''
With Sheets("MasterBOM").UsedRange
'.AutoFilter
.AutoFilter Field:=23, Criteria1:="TH64075"
.AutoFilter Field:=25, Criteria1:="SEND THESE"
.AutoFilter Field:=27, Criteria1:="="
.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy OB.Sheets("TH6475").Cells(erow, 1)
'.AutoFilter
End With
Sheets("MasterBOM").Range("N:U").EntireColumn.Hidden = True
Sheets("MasterBOM").Range("V:Y").EntireColumn.Hidden = False
On Error GoTo 0
Call MarkAsManufactured
End Sub
Sorry really lost...probably another simple one. Would love an explaination also on the solution so I can better educate myself
Thanks all!