An example of the rows im trying to add:
Num Amount
---------------------------
4757 50.00
2874 70.00
3956 50.00
7887 80.00
7887 25.00
9892 35.00
i need it to add up the amounts from rows with like Num values.
and debug.print them row by row
what i had so far....
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strInputFileName & ";" & _
"Extended Properties=""Excel 8.0;HDR=Yes"";"
rst.Open "SELECT * FROM [Sheet1$] WHERE [Type] = 'Bill' ;", cnn, adOpenStatic, adLockReadOnly
rst.MoveFirst
Do
If rst![Amount] <> "Null" Then
amt_2 = Val(rst![Amount])
If num_2 = num_1 Then
amt_2 = amt_1 + amt_2
End If
If num_2 <> num_1 Then
Debug.Print amt_2
End If
If IsNull(num_1) Then
num_1 = rst![Num]
num_2 = rst![Num]
amt_1 = rst![Amount]
End If
End If
rst.MoveNext