G
Guest
Hello
How can I make to get data from a .dbf file from a Excel Macro, and replace it into a Cell in a determinated Sheet.
I made something like this.
Dim rng As Range
Set rng = Sheets("07").Range("B7:B10")
'Range("B56").Select
For Each Cell In rng
If Cell <> "" Then
'----> here I want to select the value of the next column , for example if the cursor is positioning at B7 with value "03/07/2004" I would like to obtaint C7 value (only "AM" and "PM" is saved in this cells), then with this 2 values I need to look into a .DBF file located at c:\fax named faxdata.dbf wich has a column called datefax (type Date) and another column called AMPM (type Char 2) and a third column called Lamount (type Integer) and what I need is to copy this value into the next column in the same Sheet (D7) <-------'
End If
Next
Please make it as simple as possible because I am new in macros, however any suggest wil be very appreciate it.
Regards
PE
How can I make to get data from a .dbf file from a Excel Macro, and replace it into a Cell in a determinated Sheet.
I made something like this.
Dim rng As Range
Set rng = Sheets("07").Range("B7:B10")
'Range("B56").Select
For Each Cell In rng
If Cell <> "" Then
'----> here I want to select the value of the next column , for example if the cursor is positioning at B7 with value "03/07/2004" I would like to obtaint C7 value (only "AM" and "PM" is saved in this cells), then with this 2 values I need to look into a .DBF file located at c:\fax named faxdata.dbf wich has a column called datefax (type Date) and another column called AMPM (type Char 2) and a third column called Lamount (type Integer) and what I need is to copy this value into the next column in the same Sheet (D7) <-------'
End If
Next
Please make it as simple as possible because I am new in macros, however any suggest wil be very appreciate it.
Regards
PE