[thelist] vb help with array

Heather Welsh hbwelsh at yahoo.com
Tue Mar 1 09:58:34 CST 2005

I have a for loop that will count my rows and stop on
the row stated.
I have an if statmendt to test if there is a blank
I would like to use an array that will hold a set of
numbers and when my if statment verifys a blank line
it will incress my array to the next value in it. 

1. how do i do this. so far everything i can think of
for looping the array dose not allow me to move on to
the next row.

2 can i use a mulitdimensional arry i have 4 things
that need to be changed when i reah the blank line. 

here is the code i have now:

' Remimber RowMax is equal to total number of rows in
the sheet
' Dont forget to set RowMax to the total number of row
in the worksheet
' Don't forget to set what number row you are staring
on (For rownum = ? to RowMax)

'******************** COLUM DECLERATION

Const RowMax As Integer = 10
Const pos As Integer = 0

Const colMFGREF     As String = "A"
Const colMFG        As String = "B"
Const colNAME       As String = "C"
'Const colSmallImage As String = "D"
'Const colBigImage   As String = "E"
'Const colTKN        As String = "F"
'Const colGP         As String = "G"
'Const colPARTNUMBER As String = "H"
Const colShortDes   As String = "I"
'Const colLongDes    As String = "J"
'Const colCost       As String = "K"
'Const colSP         As String = "L"
'Const colLP         As String = "M"
'Const colShipWeight As String = "N"
'Const colCat1       As String = "O"
'Const colCat2       As String = "Q"
'Const colCat3       As String = "R"
'*********************************** END COLUM
DECLERATION ************************************
'*************************************** START WEB
FILE ***************************************

Sub WEB()

    Dim MFG(1) As Integer
    MFG(0) = "123"
    MFG(1) = "456"
    Dim i As Integer
    Dim sMFG As Integer

For rownum = 2 To RowMax
emty = Cells(rownum, colNAME).Value
    If emty = vbNullString Then
       If Arr(i).Value = 0 Then
        x = x + 1
        MFG(x) = Arr(i).Value
        Cells(rownum) = rownum + 1
        Cells(rownum, colMFG) = MFG(i)
        Cells(rownum, colShortDes) = "here we are"
     End If
Next rownum
End Sub

thank you for your time 

Heather Welsh

Do you Yahoo!? 
Yahoo! Sports - Sign up for Fantasy Baseball. 

More information about the thelist mailing list