Sub BLN() ‘m7
x = Range(“A1″): If x “” Then Application.ScreenUpdating = False
wb = “ShaQuR.xls”: n = “‘[SHA.XLS]MAC’!”: n1 = “‘[" & wb & "]MAC’!”: aa = ActiveSheet.Name
t = Timer: w = ActiveCell: c = ActiveCell.Column: r = ActiveCell.Row: s = Selection.Count
p = Range(n & “A4″).End(xlDown).Row + 1: Range(n & “A” & p) = ActiveSheet.Name()
Range(n & “B” & p) = c & ” ” & r & ” ” & s & ” ” & w: Range(n & “C” & p) = Now
If Range(n1 & “E1″) “OK” Then GoTo SHE
If p / 10 – Int(p / 10) = 0 Then Workbooks(“SHA.XLS”).Save
If s > 3 Then Application.Run (“GEN.GEN”): GoTo SHE
‘EOI ——————————————————————————-EOI
SOD:
‘d = Range(“MIX!E3″).End(xlDown).Row: cts = 0
If aa = “PVA” And c = 1 Then GoTo SHB
If c = 5 And r = 4 Then GoTo SHA
‘If c = 5 And r = 4 Then GoTo SHA
GoTo SHE
‘———————————————————————————
SHA: If s = 3 Then Stop
Windows(“PRS”).Activate: SendKeys (“~”): Range(“E5:H60000″).ClearContents
Range(“B5:B6241″).TextToColumns Destination:=Range(“E5″), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=Chr(10), FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
For i = 1 To 14
Range(“E5″).End(xlToRight).Select: Range(Selection, Selection.End(xlDown)).Cut
ActiveCell.End(xlToLeft).End(xlDown).Offset(1, 0).Select: ActiveSheet.Paste
Next i
GoTo SHE
‘———————————————————————————
SHB: If s = 3 Then Stop
Sheets(“TES”).Select
Range(“TES!D3:D” & Range(“TES!B1″) + 2).Find(w, Range(“TES!D3″), , xlWhole).Activate
GoTo SHE
For i = 41 To 47
w = “‘[" & wb & "]LET’!B” & i: Range(“PVA!D5:D” & Range(“PVA!B2″)).Replace Range(w), “”
Next i
‘———————————————————————————
SHE: Application.ScreenUpdating = True: Range(n & “D” & p) = Timer – t: End Sub
