Need another eye on this Sub()
Ha ha! I can't believe I didn't see that. I was looking at a few other
things. Rick is right, good catch!
--
Cheers,
Ryan
"Per Jessen" wrote:
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
.
|