Need another eye on this Sub()
Good catch... I completely missed that one in favor of the other error I
found in the posted code.
--
Rick (MVP - Excel)
"Per Jessen" wrote in message
...
Hi
I think the statement 'Range("B4").Select' is the problem!
No matter which cell has been changed, the macro select B4, and then the
If statement will always be true, so elseif will never be tested...
Hopes this helps.
...
Per
"Ayo" skrev i meddelelsen
...
when I run this sub, it seem like everything is fine except, nothing
whitin
the sub is executed.
What am I missing?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim filename As String, ws As Worksheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Range("B4").Select
If Target.Address() = "$B$4" And Target.Address() < "" Then
Application.EnableEvents = False
Range("B5").Select
Application.EnableEvents = True
ElseIf Target.Address() = "$B$5" And Target.Address() < "" Then
Application.EnableEvents = False
Range("B1") = Range("B4") & ": " & Range("B5") & " " & Range("D4")
filename = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) -
4)
ActiveWorkbook.SaveCopyAs Range("B4") & "_" & Range("B5") & "_" &
filename & "_" & Format(Date, "mmmdd_yy") & ".xls"
Application.Calculation = xlCalculationAutomatic
For Each ws In Workbook
If ws.Name < "BO Download" Then
ws.Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Range("A2").Select
End If
Next ws
Worksheets("BO Download").Select
Worksheets("BO Download").Delete
Call formulas
Range("A3").Select
Worksheets("Graphes Table").Visible = False
ActiveWorkbook.Save
Application.EnableEvents = True
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
|