G'day guys.
Have the below code:
Works fine as intended HOWEVER it's grabbing the entire row which has been fine up until recently. Now we wish to keep the same criteria but only copying from A:H and then pasting in the destination OB.Sheets("Corner Flashing Machine Data").Cells(erow, 1).
Any ideas?
Cheers!
Have the below code:
Code:
Set TB = ActiveWorkbookWorkbooks.Open "C:\Users\Luke\Desktop\LIVE\Best Shed Scheduler Flashing.xlsm"
Set OB = ActiveWorkbook
erow = OB.Sheets("Corner Flashing Machine Data").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
TB.Activate
Sheets("Corner").Range("H:Y").EntireColumn.Hidden = False
With Sheets("Corner").UsedRange
.AutoFilter
.AutoFilter Field:=23, Criteria1:="Corner"
.AutoFilter Field:=25, Criteria1:="JOB SCHEDULED"
.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy OB.Sheets("Corner Flashing Machine Data").Cells(erow, 1)
.AutoFilter
End With
Sheets("Corner").Range("I:U").EntireColumn.Hidden = True
Sheets("Corner").Range("V:Y").EntireColumn.Hidden = False
OB.Save
OB.Close
Works fine as intended HOWEVER it's grabbing the entire row which has been fine up until recently. Now we wish to keep the same criteria but only copying from A:H and then pasting in the destination OB.Sheets("Corner Flashing Machine Data").Cells(erow, 1).
Any ideas?
Cheers!