New array equal old array

[mc136355]

hi guys
have the following code that works until i try to use the new array in a different routine.
when i do a MsgBox Join(newArr, ", ") in new sub the it returns an empty message box yet works fine in this sub

grateful on any solutions to this prob

thanks
MC

Dim result As String
Dim resultsFinal() As String
ReDim resultsFinal(0)
Dim i As Integer
Dim newArr As Variant


i = 0


result = 0


Dim wsf As Worksheet

For Each wsf In Sheets
If wsf.Name Like myArr & "*" Then

result = result + 1
ReDim Preserve resultsFinal(result)
resultsFinal(i) = wsf.Name
i = i + 1

End If
Next wsf

newArr = resultsFinal

 

[Peter_SSs]

.. i try to use the new array in a different routine.

Perhaps you could tell us more about how you are doing that - or better show us all the relevant code.

Also, in the code you posted, you have a variable myArr but it is not declared anywhere not does it have a value set. More information about that might be helpful too.

 

[mc136355]

Hi thanks for reply

my full code is as follows

Function Find_Sheet(myArr As String) As Boolean


Dim result As String
Dim resultsFinal() As String
ReDim resultsFinal(0)
Dim i As Integer




i = 0


result = 0


Dim wsf As Worksheet

For Each wsf In Sheets
If wsf.Name Like myArr & "*" Then

result = result + 1
ReDim Preserve resultsFinal(result)
resultsFinal(i) = wsf.Name
i = i + 1

End If
Next wsf

newArr = resultsFinal

MsgBox Join(newArr, ", ")
Var = Show_Records(myArr) '------


End Function





Function Show_Records(newArr As String) As Boolean




'Dim resultsFinal As String





MsgBox Join(newArr, ", ")


end function





thanks in advance

 

[Peter_SSs]

I think you are confusing your variable names and types. In the first function myArr is a String and newArr is an array.
You are then passing the string myArr to the second function where it becomes the string newArr
In the second function your are trying to use Join on the string newArr but Join is a function for joining strings held in an array.

That is, you never passed the array newArr from the first function to the second.

Very mixed up!

Function Find_Sheet(myArr As String) As Boolean

newArr = resultsFinal

MsgBox Join(newArr, ", ")
Var = Show_Records(myArr) '------


End Function


Function Show_Records(newArr As String) As Boolean

MsgBox Join(newArr, ", ")

end function

 

[mc136355]

Hi

what i am attempting is to put list of all worksheets into an array begining only with certain text. Then work on that second array which will be smaller than the original. I'm new to vba and will persevere happily. thanks
MC

 

[Fluff]

Cross posted https://www.excelforum.com/excel-pr...ch-array-and-put-results-in-second-array.html

Cross-Posting
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[mc136355]

Brand new to this site.

Please delete this thread and i will go back to using google

thanks

 

[Fluff]

There's no need to delete the thread.
All we ask is that, in future, you supply links to any other sites where you have asked the same question.