Here is the code:

Dim val2 as double
dim val1 as double
Dim val as long
Dim fsheet as string
Dim fnameb as string

Do
ActiveCell.Offset(1, 0).Select
val = ActiveCell.Offset(0, -12).Value
Val1=Activecell.offset(0,11).value
With Workbooks(fnameb).Worksheets(fsheet)
Set rng = .Columns(3).Find(val)and.find(val1)
End With
If Not rng Is Nothing Then
val2 = rng.Offset(0, 11).Value+activecell.offset
(0,11).value

Dim val2 as double
dim val1 as double
Dim val as long
Dim fsheet as string
Dim fnameb as string
Dim rng1 as Range
Dim rng2 as Range

Do
ActiveCell.Offset(1, 0).Select
val = ActiveCell.Offset(0, -12).Value
Val1=Activecell.offset(0,11).value
With Workbooks(fnameb).Worksheets(fsheet)
Set rng1 = .Columns(3).Find(val)
Set rng2 = .Columns(2).Find(val1)
End With
If Not rng1 Is Nothing Then
if Not rng2 is nothing then
' both val and val1 were found
else
' only val was found
end if
elseif not rng2 is nothing then
'. only val1 was found
else
' neither was found
End if

I don't know what you want to do in each case - so you would need to add
that.

--
Regards,
Tom Ogilvy
"fish" wrote in message
...



Here is the code:

Dim val2 as double
dim val1 as double
Dim val as long
Dim fsheet as string
Dim fnameb as string

Do
ActiveCell.Offset(1, 0).Select
val = ActiveCell.Offset(0, -12).Value
Val1=Activecell.offset(0,11).value
With Workbooks(fnameb).Worksheets(fsheet)
Set rng = .Columns(3).Find(val)and.find(val1)
End With
If Not rng Is Nothing Then
val2 = rng.Offset(0, 11).Value+activecell.offset
(0,11).value