Change part of code to an array

[tatendatiffany]

I need to change this part of my code into an array the part in bold into an array containing these 5 different tables. I can do the part of declaring the variable. But i am facing difficulty with make further changes to the rest of the code (c) part of the code. Any suggestions

[B]for c = 31 to 35
[/B]for r = 2 to 39
if cells (r,c).value <> "" then

If Cells(r, c).Value <> "" Then
                    LogStr = LogStr & "------------------------------" & vbCrLf
                    LogStr = LogStr & " Row " & r & " Col " & c & vbCrLf
                    LogStr = LogStr & "------------------------------" & vbCrLf
                    str = Cells(r, c).Value
                    LogStr = LogStr & str & vbCrLf
                    rtnVal = getrecordset(str)
                    LogStr = LogStr & rtnVal & vbCrLf
                    Cells(r, c - 5).Value = rtnVal
                End If
            Next r
        Next c

 

[John Davis]

I need to change this part of my code into an array the part in bold into an array containing these 5 different tables. I can do the part of declaring the variable. But i am facing difficulty with make further changes to the rest of the code (c) part of the code. Any suggestions

[B]for c = 31 to 35
[/B]for r = 2 to 39
if cells (r,c).value <> "" then

If Cells(r, c).Value <> "" Then
                    LogStr = LogStr & "------------------------------" & vbCrLf
                    LogStr = LogStr & " Row " & r & " Col " & c & vbCrLf
                    LogStr = LogStr & "------------------------------" & vbCrLf
                    str = Cells(r, c).Value
                    LogStr = LogStr & str & vbCrLf
                    rtnVal = getrecordset(str)
                    LogStr = LogStr & rtnVal & vbCrLf
                    Cells(r, c - 5).Value = rtnVal
                End If
            Next r
        Next c

Not completely sure but maybe something like this?

Dim x as variant

x = Array("31", "32", "33", "34", "35")

for c = Lbound(x) to Ubound(x)

for r = 2 to 39
if cells (r,c).value <> "" then

 

[tatendatiffany]

Thank you very much for your help that seems to have done the it but now the issue i am facing is, these tables stored in array are the only part about the code that changes.
e.g. select from table where product is aa.

the part in bold changes everytime after it has run the sql query so how do i specify this in my coding???

 

[John Davis]

Thank you very much for your help that seems to have done the it but now the issue i am facing is, these tables stored in array are the only part about the code that changes.
e.g. select from table where product is aa.

the part in bold changes everytime after it has run the sql query so how do i specify this in my coding???

I don't understand what you're asking. It seems you want to assign the bold part too a variable, if it changes. Or am I missing the point all together?

 

[tatendatiffany]

No so i have sql queries to run in 3 different "environments" and they are identical the only difference with is is the last part of each query that changes to eg.

select from file where table is AA

+ 10 more queries like that then i have to do the same thing for the other 3 tablea but the only part that is changing is:

select from file where table is BB

select from file where table is AA

so i want my code to change the tablename after completing the 10 queries then run those.

Does it make sense??

 

[John Davis]

No so i have sql queries to run in 3 different "environments" and they are identical the only difference with is is the last part of each query that changes to eg.

select from file where table is AA

+ 10 more queries like that then i have to do the same thing for the other 3 tablea but the only part that is changing is:

select from file where table is BB

select from file where table is AA

so i want my code to change the tablename after completing the 10 queries then run those.

Does it make sense??

I'm still confused? Perhaps some else can help further.