Hi JavaOnLine
This method works always and you can insert any specific criteria
without limit...
Good luck. Let me know if it was useful...
Paul Willekens
'=======================================================================
Sub ESTSearch()
Dim cValue
Dim lDoneA
Dim lDoneB
Dim nNumberA
Dim nNumberB
Dim nRowA
Dim nRowB
nRowA = 2
lDoneA = False
Sheets("QB").Select
While Not lDoneA
nNumberA = Cells(nRowA, 1).Value
If IsEmpty(nNumberA) Then
lDoneA = True
Else
Sheets("EST").Select
nRowB = 2
lDoneB = False
cValue = ""
While Not lDoneB
nNumberB = Cells(nRowB, 1).Value
If IsEmpty(nNumberB) Then
lDoneB = True
ElseIf nNumberB = nNumberA Then
cValue = Cells(nRowB, 2)
lDoneB = True
Else
nRowB = nRowB + 1
End If
Wend
Sheets("QB").Select
If Not cValue = "" Then
Cells(nRowA, 2) = cValue
End If
nRowA = nRowA + 1
End If
Wend
End Sub
'=======================================================================
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
To unsubscribe, reply using "remove me" as the subject.
