Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding spaces between ranges with save as macro
This macro works great but I would like it to add spaces between each value
in the saved name, I have tried adding other ranges with a space in the cell but that didn't work. Any help would be greatly appeciated. Thanks in advance John On Error Resume Next If Range("t4").Value 0 _ And Range("u4").Value 0 _ And Range("v4").Value 0 _ And Range("f4").Value " " _ Then ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & _ ThisWorkbook.Worksheets(1).Range("f4").Value & _ ThisWorkbook.Worksheets(1).Range("t4").Value & _ ThisWorkbook.Worksheets(1).Range("u4").Value & _ ThisWorkbook.Worksheets(1).Range("v4").Value & _ ".xls" MsgBox "Time Card Saved", vbOKOnly + vbExclamation Else MsgBox "Date Not Correct, Or Name Not Entered. Time Sheet Not Saved", _ vbOKOnly + vbExclamation End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding spaces between ranges with save as macro
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & _ ThisWorkbook.Worksheets(1).Range("f4").Value & " " & _ ThisWorkbook.Worksheets(1).Range("t4").Value & " " & _ ThisWorkbook.Worksheets(1).Range("u4").Value & " " & _ ThisWorkbook.Worksheets(1).Range("v4").Value & _ ".xls" I didn't put the space after the \ or before the .xls. John D Inkster wrote: This macro works great but I would like it to add spaces between each value in the saved name, I have tried adding other ranges with a space in the cell but that didn't work. Any help would be greatly appeciated. Thanks in advance John On Error Resume Next If Range("t4").Value 0 _ And Range("u4").Value 0 _ And Range("v4").Value 0 _ And Range("f4").Value " " _ Then ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & _ ThisWorkbook.Worksheets(1).Range("f4").Value & _ ThisWorkbook.Worksheets(1).Range("t4").Value & _ ThisWorkbook.Worksheets(1).Range("u4").Value & _ ThisWorkbook.Worksheets(1).Range("v4").Value & _ ".xls" MsgBox "Time Card Saved", vbOKOnly + vbExclamation Else MsgBox "Date Not Correct, Or Name Not Entered. Time Sheet Not Saved", _ vbOKOnly + vbExclamation End If End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding spaces between ranges with save as macro
Try the SaveAs statement this way:
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & _ ThisWorkbook.Worksheets(1).Range("f4").Value & _ " " & _ ThisWorkbook.Worksheets(1).Range("t4").Value & _ " " & _ ThisWorkbook.Worksheets(1).Range("u4").Value & _ " " & _ ThisWorkbook.Worksheets(1).Range("v4").Value & _ ".xls" "John D Inkster" wrote: This macro works great but I would like it to add spaces between each value in the saved name, I have tried adding other ranges with a space in the cell but that didn't work. Any help would be greatly appeciated. Thanks in advance John On Error Resume Next If Range("t4").Value 0 _ And Range("u4").Value 0 _ And Range("v4").Value 0 _ And Range("f4").Value " " _ Then ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & _ ThisWorkbook.Worksheets(1).Range("f4").Value & _ ThisWorkbook.Worksheets(1).Range("t4").Value & _ ThisWorkbook.Worksheets(1).Range("u4").Value & _ ThisWorkbook.Worksheets(1).Range("v4").Value & _ ".xls" MsgBox "Time Card Saved", vbOKOnly + vbExclamation Else MsgBox "Date Not Correct, Or Name Not Entered. Time Sheet Not Saved", _ vbOKOnly + vbExclamation End If End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding spaces between ranges with save as macro
Works great! Thanks
"JLatham" wrote: Try the SaveAs statement this way: ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & _ ThisWorkbook.Worksheets(1).Range("f4").Value & _ " " & _ ThisWorkbook.Worksheets(1).Range("t4").Value & _ " " & _ ThisWorkbook.Worksheets(1).Range("u4").Value & _ " " & _ ThisWorkbook.Worksheets(1).Range("v4").Value & _ ".xls" "John D Inkster" wrote: This macro works great but I would like it to add spaces between each value in the saved name, I have tried adding other ranges with a space in the cell but that didn't work. Any help would be greatly appeciated. Thanks in advance John On Error Resume Next If Range("t4").Value 0 _ And Range("u4").Value 0 _ And Range("v4").Value 0 _ And Range("f4").Value " " _ Then ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & _ ThisWorkbook.Worksheets(1).Range("f4").Value & _ ThisWorkbook.Worksheets(1).Range("t4").Value & _ ThisWorkbook.Worksheets(1).Range("u4").Value & _ ThisWorkbook.Worksheets(1).Range("v4").Value & _ ".xls" MsgBox "Time Card Saved", vbOKOnly + vbExclamation Else MsgBox "Date Not Correct, Or Name Not Entered. Time Sheet Not Saved", _ vbOKOnly + vbExclamation End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
adding spaces | Excel Discussion (Misc queries) | |||
Adding spaces into a variable | Excel Programming | |||
Adding Spaces to the end of a value | Excel Worksheet Functions | |||
Removing spaces and adding comma's using a Macro | Excel Programming | |||
Adding leading spaces | Excel Programming |