[RESOLVED] Possibly very simple vba code question.

[KiwiDexter]

Excel 2010 spreadsheet.

I want to check if a cell has a value (not blank) and then add another cell in the same row to an ongoing total, but am drawing a blank on how to do it

Pseudo code

Loop
   a+1
   If cell(a,3) <> "" then
      iTotal += cell(b,3)
   End if
While row(a) <> ""

For some reason I'm just not seeing how to do that

[seenu_1st]

if i understand u corectly, try like this

Dim LastCol As Long, iTotal As Single
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To LastCol
    If Cells(1, i) <> "" Then
        iTotal = iTotal + Cells(1, i)
    End If
Next i
MsgBox iTotal

[westconn1]

@ seenu

i would be reasonably sure that the OP would wand to loop through rows (not columns)
and the total would be from some other cell on the same row, though i could not determine which

personally i prefer the

if not isempty(cells(i, 1)) then

[seenu_1st]

@Pete
other cell in same row means how come next row? i think op says column

[Boytony]

@ Seenu & Pete
I have to agree w Pete, to me it seems as rows are asked for rather than columns.

Sample code suggests looping down thru rows rather than across columns.
Roger

[Spoo]

Kiwi

I too must go with Pete's interpretation.

If we're right, then perhaps something like this ...

    Dim iTotal As Integer
    For rr = 1 To 1000
        If IsEmpty(Cells(rr, 1)) Then
            Exit For
        Else
            iTotal = iTotal + Cells(rr, 2)
        End If
    Next rr

The loop will sum the contents of col B .. Cells(rr, 2)
The loop will exit at the first row that has a blank in col A .. Cells(rr, 1).

If that is not what you are after, then perhaps you could
elaborate further on your needs.

Spoo

[KiwiDexter]

Thanks for the help, have it up and running like a JRT onto a cat ... unfort we're now changed requirements