Passing text to VBA code
 

I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run (Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is calling it?
That way I can have only 1 macro that runs this code and pass the "string"
to it.
BTW I have three workbooks with the same amount of macros with this code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run (Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is calling
it?
That way I can have only 1 macro that runs this code and pass the "string"
to it.
BTW I have three workbooks with the same amount of macros with this code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

Try this way:

Sub callermacro()

Call calledmacro("Before_I_Update")

End Sub

Sub calledmacro(text_param As String)

param_filename = ThisWorkbook.Path & "\Backup\Loja\Work\" & text_param & "("
& strSH & ")" & _
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

End Sub

Regards,
Stefi

€žEd Davis€� ezt Ã*rta:

I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run (Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is calling it?
That way I can have only 1 macro that runs this code and pass the "string"
to it.
BTW I have three workbooks with the same amount of macros with this code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

I now have this code and I am getting a compile error on " & Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run (Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is calling
it?
That way I can have only 1 macro that runs this code and pass the
"string" to it.
BTW I have three workbooks with the same amount of macros with this code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


€žEd Davis€� ezt Ã*rta:

I now have this code and I am getting a compile error on " & Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run (Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is calling
it?
That way I can have only 1 macro that runs this code and pass the
"string" to it.
BTW I have three workbooks with the same amount of macros with this code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

I am getting a compile error with this code also on " & Format(Now,"
EXPECTED END OF STATEMENT.


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Try this way:

Sub callermacro()

Call calledmacro("Before_I_Update")

End Sub

Sub calledmacro(text_param As String)

param_filename = ThisWorkbook.Path & "\Backup\Loja\Work\" & text_param &
"("
& strSH & ")" & _
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

End Sub

Regards,
Stefi

"Ed Davis" ezt írta:

I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run (Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is calling
it?
That way I can have only 1 macro that runs this code and pass the
"string"
to it.
BTW I have three workbooks with the same amount of macros with this code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

This is now the whole line of code and I am getting a syntax error on the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Backup\Sales\Work\"&inval&"(" &
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt írta:

I now have this code and I am getting a compile error on " & Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run (Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is
calling
it?
That way I can have only 1 macro that runs this code and pass the
"string" to it.
BTW I have three workbooks with the same amount of macros with this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH &
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

Coming back to the right threead:

a space has been inserted
manually before and after InVal. VB editor sometimes doesn't recognize & as
an operator that must be separated by a space from the operands:


ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Backup\Sales\Work\" & inval &
"(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


€žEd Davis€� ezt Ã*rta:

This is now the whole line of code and I am getting a syntax error on the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Backup\Sales\Work\"&inval&"(" &
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt Ã*rta:

I now have this code and I am getting a compile error on " & Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run (Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is
calling
it?
That way I can have only 1 macro that runs this code and pass the
"string" to it.
BTW I have three workbooks with the same amount of macros with this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH &
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

I checked and no spaces are there, but I retyped it anyway and get a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax error on the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt írta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run
(Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is
calling
it?
That way I can have only 1 macro that runs this code and pass the
"string" to it.
BTW I have three workbooks with the same amount of macros with this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH &
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

Try to copy/Paste this format, it has no errors on my machine:

ActiveWorkbook.SaveAs ThisWorkbook.Path & _
"\Backup\Sales\Work\" & inval & "(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


€žEd Davis€� ezt Ã*rta:

I checked and no spaces are there, but I retyped it anyway and get a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax error on the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt Ã*rta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run
(Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is
calling
it?
That way I can have only 1 macro that runs this code and pass the
"string" to it.
BTW I have three workbooks with the same amount of macros with this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH &
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

Thank you that did it.


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Try to copy/Paste this format, it has no errors on my machine:

ActiveWorkbook.SaveAs ThisWorkbook.Path & _
"\Backup\Sales\Work\" & inval & "(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


"Ed Davis" ezt írta:

I checked and no spaces are there, but I retyped it anyway and get a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax error on
the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path &
"\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt írta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")"
&
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run
(Changing
something on a sheet).
The macros are exactly the same except this line where this line
says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is
calling
it?
That way I can have only 1 macro that runs this code and pass the
"string" to it.
BTW I have three workbooks with the same amount of macros with
this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH
&
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

You are welcome! Thanks for the feedback!
Stefi
Clicking the YES button will be appreciated.


€žEd Davis€� ezt Ã*rta:

Thank you that did it.


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Try to copy/Paste this format, it has no errors on my machine:

ActiveWorkbook.SaveAs ThisWorkbook.Path & _
"\Backup\Sales\Work\" & inval & "(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


"Ed Davis" ezt Ã*rta:

I checked and no spaces are there, but I retyped it anyway and get a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax error on
the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path &
"\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt Ã*rta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")"
&
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run
(Changing
something on a sheet).
The macros are exactly the same except this line where this line
says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is
calling
it?
That way I can have only 1 macro that runs this code and pass the
"string" to it.
BTW I have three workbooks with the same amount of macros with
this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH
&
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

I thought you were a NG girl Stefi, not a forum type <g

--
__________________________________
HTH

Bob

"Stefi" wrote in message
...
You are welcome! Thanks for the feedback!
Stefi
Clicking the YES button will be appreciated.


"Ed Davis" ezt írta:

Thank you that did it.


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Try to copy/Paste this format, it has no errors on my machine:

ActiveWorkbook.SaveAs ThisWorkbook.Path & _
"\Backup\Sales\Work\" & inval & "(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


"Ed Davis" ezt írta:

I checked and no spaces are there, but I retyped it anyway and get a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax error
on
the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path &
"\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt írta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH &
")"
&
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run
(Changing
something on a sheet).
The macros are exactly the same except this line where this
line
says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is
calling
it?
That way I can have only 1 macro that runs this code and pass
the
"string" to it.
BTW I have three workbooks with the same amount of macros with
this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" &
strSH
&
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

Hi Bob,

Please, explain, what is a NG girl, I've never heard it! And what does forum
type mean? And finally, what <g stands for?

Regards,
Stefi


€žBob Phillips€� ezt Ã*rta:

I thought you were a NG girl Stefi, not a forum type <g

--
__________________________________
HTH

Bob

"Stefi" wrote in message
...
You are welcome! Thanks for the feedback!
Stefi
Clicking the YES button will be appreciated.


"Ed Davis" ezt Ã*rta:

Thank you that did it.


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Try to copy/Paste this format, it has no errors on my machine:

ActiveWorkbook.SaveAs ThisWorkbook.Path & _
"\Backup\Sales\Work\" & inval & "(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


"Ed Davis" ezt Ã*rta:

I checked and no spaces are there, but I retyped it anyway and get a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax error
on
the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path &
"\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt Ã*rta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH &
")"
&
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run
(Changing
something on a sheet).
The macros are exactly the same except this line where this
line
says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is
calling
it?
That way I can have only 1 macro that runs this code and pass
the
"string" to it.
BTW I have three workbooks with the same amount of macros with
this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" &
strSH
&
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

NG - newsgroups - the UseNet groups that are accessed through a mail client
and don't need a web browser

forum type - one who uses the web based forums

<g - grin

--
__________________________________
HTH

Bob

"Stefi" wrote in message
...
Hi Bob,

Please, explain, what is a NG girl, I've never heard it! And what does
forum
type mean? And finally, what <g stands for?

Regards,
Stefi


"Bob Phillips" ezt írta:

I thought you were a NG girl Stefi, not a forum type <g

--
__________________________________
HTH

Bob

"Stefi" wrote in message
...
You are welcome! Thanks for the feedback!
Stefi
Clicking the YES button will be appreciated.


"Ed Davis" ezt írta:

Thank you that did it.


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Try to copy/Paste this format, it has no errors on my machine:

ActiveWorkbook.SaveAs ThisWorkbook.Path & _
"\Backup\Sales\Work\" & inval & "(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


"Ed Davis" ezt írta:

I checked and no spaces are there, but I retyped it anyway and get
a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax
error
on
the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path &
"\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH &
")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH &
")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt írta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH &
")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH
&
")"
&
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run
(Changing
something on a sheet).
The macros are exactly the same except this line where this
line
says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that
is
calling
it?
That way I can have only 1 macro that runs this code and
pass
the
"string" to it.
BTW I have three workbooks with the same amount of macros
with
this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" &
strSH
&
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

Thanks!
Anyway, I'm a boy!
Stefi


€žBob Phillips€� ezt Ã*rta:

NG - newsgroups - the UseNet groups that are accessed through a mail client
and don't need a web browser

forum type - one who uses the web based forums

<g - grin

--
__________________________________
HTH

Bob

"Stefi" wrote in message
...
Hi Bob,

Please, explain, what is a NG girl, I've never heard it! And what does
forum
type mean? And finally, what <g stands for?

Regards,
Stefi


"Bob Phillips" ezt Ã*rta:

I thought you were a NG girl Stefi, not a forum type <g

--
__________________________________
HTH

Bob

"Stefi" wrote in message
...
You are welcome! Thanks for the feedback!
Stefi
Clicking the YES button will be appreciated.


"Ed Davis" ezt Ã*rta:

Thank you that did it.


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Try to copy/Paste this format, it has no errors on my machine:

ActiveWorkbook.SaveAs ThisWorkbook.Path & _
"\Backup\Sales\Work\" & inval & "(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


"Ed Davis" ezt Ã*rta:

I checked and no spaces are there, but I retyped it anyway and get
a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax
error
on
the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path &
"\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH &
")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH &
")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt Ã*rta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH &
")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH
&
")"
&
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run
(Changing
something on a sheet).
The macros are exactly the same except this line where this
line
says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that
is
calling
it?
That way I can have only 1 macro that runs this code and
pass
the
"string" to it.
BTW I have three workbooks with the same amount of macros
with
this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" &
strSH
&
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis

Passing text to VBA code
 

Sorry about that, you are clearly not the Stefi I was thinking of, she is
definitely female.

--
__________________________________
HTH

Bob

"Stefi" wrote in message
...
Thanks!
Anyway, I'm a boy!
Stefi


"Bob Phillips" ezt írta:

NG - newsgroups - the UseNet groups that are accessed through a mail
client
and don't need a web browser

forum type - one who uses the web based forums

<g - grin

--
__________________________________
HTH

Bob

"Stefi" wrote in message
...
Hi Bob,

Please, explain, what is a NG girl, I've never heard it! And what does
forum
type mean? And finally, what <g stands for?

Regards,
Stefi


"Bob Phillips" ezt írta:

I thought you were a NG girl Stefi, not a forum type <g

--
__________________________________
HTH

Bob

"Stefi" wrote in message
...
You are welcome! Thanks for the feedback!
Stefi
Clicking the YES button will be appreciated.


"Ed Davis" ezt írta:

Thank you that did it.


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Try to copy/Paste this format, it has no errors on my machine:

ActiveWorkbook.SaveAs ThisWorkbook.Path & _
"\Backup\Sales\Work\" & inval & "(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


"Ed Davis" ezt írta:

I checked and no spaces are there, but I retyped it anyway and
get
a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax
error
on
the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path &
"\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH
&
")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH
&
")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt írta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH
&
")"
&
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" &
strSH
&
")"
&
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is
run
(Changing
something on a sheet).
The macros are exactly the same except this line where
this
line
says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro
that
is
calling
it?
That way I can have only 1 macro that runs this code and
pass
the
"string" to it.
BTW I have three workbooks with the same amount of macros
with
this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update ("
&
strSH
&
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis