Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save As Macro
I am a macro to do a save as.
Code Sub savesheet() Application.ScreenUpdating = True Dim wb As Workbook Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook Application.ScreenUpdating = True sFilename = "C:\TimeSheet\" & Format(Range("h12").Value, "mm-dd-yy Job# " & ActiveSheet.Range("h2").Value & " " & Range("b6").Value) ans = MsgBox("Save file as " & sFilename) If ans = vbOK Then With wb ActiveSheet.Shapes("Button 2").Select Selection.Delete .SaveAs sFilename .Close False End With Application.ScreenUpdating = True End If End Sub Cell "h12" is a date Cell "h2" is a 6 digit # Cell "b6" is my name The problem is with my name. Brian Arnold. When I run the macro my name comes back "Bria0 Ar0ol1" Please Help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save As Macro
Try changing the last .value to .formula. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save As Macro
You have the closing bracket in the wrong place
sFilename = "C:\TimeSheet\" & _ Format(Range("h12").Value, "mm-dd-yy Job# ") & _ ActiveSheet.Range("h2").Value & " " & _ Range("b6").Value -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "ward376" wrote in message oups.com... Try changing the last .value to .formula. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save As Macro
Thanks Bob it worked great
Bob Phillips wrote: You have the closing bracket in the wrong place sFilename = "C:\TimeSheet\" & _ Format(Range("h12").Value, "mm-dd-yy Job# ") & _ ActiveSheet.Range("h2").Value & " " & _ Range("b6").Value -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "ward376" wrote in message oups.com... Try changing the last .value to .formula. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to Insert Current Date into cell - Macro to "Save As" | Excel Worksheet Functions | |||
Macro (SAVE AS) | Excel Discussion (Misc queries) | |||
Macro to Save without the Save Message | Excel Discussion (Misc queries) | |||
ASP: Open Excel File with Macro, Allow Macro to run, and then save | Excel Programming | |||
Prompted to save changes after macro save - why? | Excel Programming |