Macro Equation

[wonderBOi]

I don't know if this is the correct term, but I hope you guys understand. Please bear with me as I'm a newbie when it comes to this.

I am having a hard time to reflect one equation to another equation. I am not sure but this might need dimming. Requesting for backup

Sub test232()
Dim FName4
Dim FName


FSource = "C:\Tools\"


FName4 = "All-In-One Updater\KCForwarder Updater*.xls*"
FName = FName & "4"


Workbooks.Open (FSource & FName)


End Sub

I want FName to reflect the FName4 value.

 

[JoeMo]

Why do you want to do this? Why not just use FName4 directly?

 

[wonderBOi]

Hi Joe,

Thanks for your response. The code above is just an example. Im doing it because im performing a loop. there's a lot of links and i want to shorten the code.

my loop code is like this:

FSource = "C:/Tools/"
FName1 = FileA
FName2 = FileB
FName3 = FileC

x = 1
Loop1:
x = 1 + 1
If x = 5 Then GoTo EndThis


FName = FName & x

Workbooks.Open (FSource & FName)

GoTo Loop1

like that
so i need to call FName to increment the value from FName1 to FName3 for example

 

[JoeMo]

That won't work. FName has the initial (default) value of "" (empty). So,
FName = Fname & x becomes whatever the value of x is. Say x is 1 then on the first time through the loop you get:
FName = 1, the next pass yields FName = 12 ....

You can adapt this:

Sub test()
Dim fNam
fNam = Array("File1", "File2", "File3", "File4")
For x = LBound(fNam) To UBound(fNam)
    MsgBox fNam(x)
Next x
End Sub

 

[wonderBOi]

How bout if like this:

FName = "FName" & x

and then ex. FName = FName4

then it will call whatever the value of FName4

 

[JoeMo]

How bout if like this:

FName = "FName" & x

and then ex. FName = FName4

then it will call whatever the value of FName4

That will work.