mercmannick
04-26-2007, 11:23 AM
Windows("zf 15.3").Activate
Range("F1").Select
Selection.EntireRow.Delete
Range("F4").Select
Selection.EntireRow.Delete
Columns("B:M").Select
Columns("B:M").EntireColumn.AutoFit
Range("C3").Select
Selection.AutoFilter
Columns("B:B").Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3").Select
Selection.AutoFilter Field:=2, Criteria1:="=t*", Operator:=xlOr, _
Criteria2:="=l*"
Range("C374:C3237").Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=2, Criteria1:="=m*", Operator:=xlOr, _
Criteria2:="=l*"
Selection.EntireRow.Delete
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=5, Criteria1:="="
Range("C4:C3198").Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=5, Criteria1:="planned"
Range("C167:C1741").Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=3, Criteria1:="=b0*", Operator:=xlAnd
Range("D4").Select
ActiveCell.FormulaR1C1 = "S70"
Range("D4").Select
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=B15", Operator:=xlAnd
Range("D494").Select
ActiveCell.FormulaR1C1 = "S17"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="S12"
Range("D1602").Select
ActiveCell.FormulaR1C1 = "S40"
Range("D1602").Select
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=i0*", Operator:=xlAnd
Range("D565").Select
ActiveCell.FormulaR1C1 = "S03C"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=i4*", Operator:=xlAnd
Range("D580").Select
ActiveCell.FormulaR1C1 = "S03E"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=i5*", Operator:=xlAnd
Range("D844").Select
ActiveCell.FormulaR1C1 = "S03F"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="I60"
Range("D1314").Select
ActiveCell.FormulaR1C1 = "S03W"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=i*", Operator:=xlAnd
Range("D1381").Select
ActiveCell.FormulaR1C1 = "S03G"
Selection.FillDown
Range("D3").Select
ActiveWindow.SmallScroll Down:=-15
Selection.AutoFilter Field:=3
Range("B4:M1714").Select
i am trying to read this code and change it to normal VBA
any help would be appreciated
Merc :banghead::banghead::banghead:
Range("F1").Select
Selection.EntireRow.Delete
Range("F4").Select
Selection.EntireRow.Delete
Columns("B:M").Select
Columns("B:M").EntireColumn.AutoFit
Range("C3").Select
Selection.AutoFilter
Columns("B:B").Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("C3").Select
Selection.AutoFilter Field:=2, Criteria1:="=t*", Operator:=xlOr, _
Criteria2:="=l*"
Range("C374:C3237").Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=2, Criteria1:="=m*", Operator:=xlOr, _
Criteria2:="=l*"
Selection.EntireRow.Delete
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=5, Criteria1:="="
Range("C4:C3198").Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=5, Criteria1:="planned"
Range("C167:C1741").Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=3, Criteria1:="=b0*", Operator:=xlAnd
Range("D4").Select
ActiveCell.FormulaR1C1 = "S70"
Range("D4").Select
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=B15", Operator:=xlAnd
Range("D494").Select
ActiveCell.FormulaR1C1 = "S17"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="S12"
Range("D1602").Select
ActiveCell.FormulaR1C1 = "S40"
Range("D1602").Select
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=i0*", Operator:=xlAnd
Range("D565").Select
ActiveCell.FormulaR1C1 = "S03C"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=i4*", Operator:=xlAnd
Range("D580").Select
ActiveCell.FormulaR1C1 = "S03E"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=i5*", Operator:=xlAnd
Range("D844").Select
ActiveCell.FormulaR1C1 = "S03F"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="I60"
Range("D1314").Select
ActiveCell.FormulaR1C1 = "S03W"
Selection.FillDown
Range("D3").Select
Selection.AutoFilter Field:=3, Criteria1:="=i*", Operator:=xlAnd
Range("D1381").Select
ActiveCell.FormulaR1C1 = "S03G"
Selection.FillDown
Range("D3").Select
ActiveWindow.SmallScroll Down:=-15
Selection.AutoFilter Field:=3
Range("B4:M1714").Select
i am trying to read this code and change it to normal VBA
any help would be appreciated
Merc :banghead::banghead::banghead: