In VB6, open your Excel file, point to your worksheet if needed.
Start in row 4 (Row counter)[pre]
If Columns E, F and H have values Then
If those values do NOT exist in your table Then
Insert this record to your table
End If
End If
Add 1 to your Row counter
If next row is Empty
You are done.
End If
[/pre]
Reset your Row counter to 4 (again) and
Repeat the same for Columns Q, R, and U
Actually, you do not even need VB6, you can use
(pretty much) exactly the same code to do all of that from Excel’s VBA. To be honest, the code would be even shorter since you do not need to connect/point to Excel, you would already be in Excel
![[wiggle] [wiggle] [wiggle]](/data/assets/smilies/wiggle.gif)
---- Andy
"Hmm...they have the internet on computers now"--Homer Simpson