Des1gn1ng0ne
Board Regular
- Joined
- Jul 10, 2008
- Messages
- 73
Code:
Sub Loop_FirstRun()
'Double check all columns before running.
Call ToggleEvents(False)
Dim ws As Worksheet
Set twb = ThisWorkbook
twb.ActiveSheet.Name = Range("A2").Value
twb.ActiveSheet.Range("C:C,D:D,E:E,G:G,I:I,K:K").Delete Shift:=xlToLeft
For Each wb In Workbooks
Debug.Print wb.Name, twb.Name
If wb.Name <> twb.Name Then
wb.Sheets(1).Copy after:=twb.Sheets(Worksheets.Count)
Application.ActiveWorkbook.ActiveSheet.Name = Range("A2").Value
Application.ActiveWorkbook.ActiveSheet.Range("C:C,D:D,E:E,G:G,I:I,K:K").Delete Shift:=xlToLeft
wb.Close Savechanges:=False
End If
x = 2
Do While Cells(x, 2).Value <> ""
If Cells(x, 5).Value <> "*Item*" Then
Rows(x).Delete Shift:=xlUp
x = x + 1
Loop
Next
'Range("A1").AutoFilter
'Range("A1").AutoFilter Field:=5, Criteria1:="<>Item", Operator:=xlAnd
Sheet1.Select
Call ToggleEvents(True)
End Sub