Application.ScreenUpdating = False
Sheets("Output Tracker").Select
Range("B17").Select
Selection.Copy
Sheets("HTB").Select
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveWindow.Visible = False
Windows("S15 Load Capacity Master.xls").Activate
If Sheets("HTB").Range("B6").Value <> "" Then
Sheets("HTB").Range("B2:B6").ClearContents
Else
For i = 2 To 6
If Sheets("HTB").Range("B" & i).Value = "" Then
Sheets("HTB").Range("B" & i).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0.00%"
Exit For
End If
Next i
End If
ChDir "H:\"
Workbooks.OpenText Filename:="H:\S15.XLS", Origin:=xlWindows, StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
Cells.Select
Selection.Copy
Windows("S15 Load Capacity Master.xls").Activate
Sheets("MCPB").Select
Cells.Select
ActiveSheet.Paste
Range("C7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=-2.9+MID(RC[-1],5,8)"
ActiveCell.FormulaR1C1 = "=-2.9+MID(RC[-1],5,8)"
Selection.ClearContents
Range("C7").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-1],5,8)"
Selection.AutoFill Destination:=Range("C7:C6555"), Type:=xlFillDefault
Range("C7:C6555").Select
Sheets("Output Tracker").Select
Windows("s15.xls").Activate
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
sussed out how to stop writing in two lots on a monday..............
but now after clearcontents it dosent paste into B2 like it shud you have to rerun macro
any help would be internally gratefull
Regards
Merc