Hello,

I've been away from VBA for awhile and I have forgotten how to get the
address for a cell.

Following is a brief beginning to a procedure. I'm trying to go from
one file to another - getting the information from the first file and
then going to the next file to get information contained on the second
file. For instance, the vendor and product from the first and then
going to the next file to get the vendor tab and the product in that
tab. After that, I want to offset from the procut, get the price and
bring it back to the first file.

I think that I need to use address to do this, but I'm not positive.

Would anybody be able to help me out with this.

Thanks much in advance.

Anita





Sub atryThisSix()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim myAddress, theAddress
Dim myVendor As String, myProduct
Dim m
j = 1
k = 1
l = 2
Windows("trial.xls").Activate
Do Until Cells(k, j) = ""

If Cells(k, j).Value = "f" Then
myVendor = Cells(k, j).Offset(0, 6).Value
myProduct = Cells(k, j).Offset(0, 7).Value
Cells(k, 2).Value = myVendor
Cells(k, 3).Value = myProduct
Windows("Code.xls").Activate
Workbooks("Code.xls").Sheets(myVendor).Select
Columns("F:F").Select
Columns("f:f").Find(What:=myProduct, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False).Activate
myAddress = ActiveCell
Windows("trial.xls").Activate

Else
Cells(k, 2).Value = Cells(k, j).Offset(0, 9).Value
End If

k = k + 1

Loop
End Sub


A

*** Sent via Developersdex http://www.developersdex.com ***