if statement & in list

[Legacy 15162]

is ther some type of way to say in vba,
if xlws.name not in("blah","blah-blah","blah-blah-blah") then
do this
end if

 

[cstlaurent]

Everything is pratically possible in VBA but you will need to be more precise in what you want to do. If you could post a concrete example it will help..

See ya

 

[Legacy 15162]

While xlWB.Worksheets.Count < rsStoreID.RecordCount
xlWB.Worksheets.Add
Wend

' For loop used to work with worksheets one at a time

For i = 1 To xlWB.Worksheets.Count
' Sequel String to pull back selected fields
Set xlWS = xlWB.Worksheets(i)
if xlws.Name not = ("CONTROL","APC","LA-TX","Cen LA","West Laf","South LA","Midland","Odessa","Carolinas","C Charlotte","E Charlotte","N Charlotte","SW Charlotte","W Charlotte","S Charlotte") then

stSql = "Select [dbo_FTPlan].*" & _
" From [dbo_FTPlan]" & _
" Where [dbo_FTPlan].[StoreNo] = " & Right(xlWS.Name, 5)

Set rsStoreData = CurrentDb.OpenRecordset(stSql)
PopFTMatrix xlWS, rsStoreData

rsStoreID.MoveNext
End If

Next i

 

[Norie]

Take a look at the Select Case structure.

Perhaps something like this.

For Each xlws In xlWB.Worksheets

    Select Case xlws.Name
    
        Case "CONTROL", "APC", "LA-TX", "Cen LA", "West Laf", "South LA", "Midland", "Odessa", "Carolinas", "C Charlotte", "E Charlotte", "N Charlotte", "SW Charlotte", "W Charlotte", "S Charlotte"
            ' do nothing
        Case Else
            
            stSql = "Select [dbo_FTPlan].*" & _
                    " From [dbo_FTPlan]" & _
                    " Where [dbo_FTPlan].[StoreNo] = " & Right(xlws.Name, 5)
        
                    Set rsStoreData = CurrentDb.OpenRecordset(stSql)
                    PopFTMatrix xlws, rsStoreData
        
                    rsStoreID.MoveNext
    End Select

Next xlws