Hi...I applied this code, and nothing happened. I think I may need
more instruction. You mentioned variables....I have 857 different
numbers in sheet A (QB) that I need to find the corresponding number
and line of data in Sheet B (EST) which has over 3800 lines of data.
I recorded the actions, I just need it to advance one cell down, and
continue through the page.
On Apr 4, 2:31 am, paulwillekens <paul.johan.willek...@gmail.com>
wrote:
> 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.
