Visual Foxpro .CSV (Excel file) code help needed.
One of sites changes a code value in column B to the same code shared
by other sites "FDC" but has a differnt code value in column C than the others.
In order for my code to run I need that value changed back from "FDC" to the old code "IDC"
So if column A="0125" and column B = "FDC" change column B value to "IDC"
My .csv file looks like this
A B C
0025 FAD 25
0120 F20 32
0025 FAD 25
0125 FDC 48
0401 FDC 26
0401 FDC 26
0125 FDC 48
0120 F20 32
0025 FAD 25
0125 FDC 48
0125 QTT 10
0125 QTT 10
My results should look like this
A B C
0025 FAD 25
0120 F20 32
0025 FAD 25
0125 IDC 48
0401 FDC 26
0401 FDC 26
0125 IDC 48
0120 F20 32
0025 FAD 25
0125 IDC 48
0125 QTT 10
0125 QTT 10
My .csv file changes name weeky my vfp program find the file with the gretest date
value and opens it already. I need to run the code to change the column B values
and continue to run my current vfp program.
I have the vba I am pretty sure will work could use some help in the translation.
Sub ok()
Dim a As Range
Dim rng As Range
Set rng = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
For Each a In rng
If a.Value = "0125" And a.Offset(0, 1).Value = "FDC" Then
a.Offset(0, 1).Value = "IDC"
End If
Next
End Sub
Thank you, Thank you