Thanks Paul, I'm not sure I was being thorough enough with my
explanation. In any case...Through trial and error today I kept
working at it, and this is what I've come up with. It looks like it's
providing me with what I need. Maybe it will be of help to someone
else.
Sub ESTSearch()
Do Until ActiveCell.Value = Blank
On Error GoTo ErrorProc
Application.ScreenUpdating = False
Sheets("QB").Select
Var = ActiveCell.Value
Sheets("EST").Select
Columns("BP:BP").Select
Selection.Find(What:=Var, After:=ActiveCell).Activate
ActiveCell.EntireRow.Select
Selection.Copy
Destination:=Sheets("Results").Range("A65536").End(xlUp)(2)
Search1:
Sheets("QB").Select
ActiveCell.Offset(1, 0).Select
Loop
ErrorProc:
Sheets("QB").Select
Var = ActiveCell.Value
Selection.Copy
Destination:=Sheets("Results").Range("A65536").End(xlUp)(2)
If ActiveCell.Value = "" Then
Exit Sub
End If
Resume Search1:
End Sub
On Apr 5, 12:50 pm, paulwillekens <paul.johan.willek...@gmail.com>
wrote:
> Hi Java,
>
> If your specifications are vague, then I can only speculate and
> simplify...
>
> I assumed first row contains column headings, so I start on row 2 (you
> can change that if necessary) in both sheets...
> I assumed the numbers to match are located in both sheets in the first
> column [if not, you can change that e.g. if in the sheet EST column 3
> then "nNumberB = Cells(nRowB, 3).Value ]
> I assumed you want data from the secund column from EST to get copied
> to QB (secund column) in case of a match... if there is more, then add
> such statements as
> cValue1 = Cells(nRowB, 3)
> cValue2 = Cells(nRowB, 4)
> etc.
> and
> Cells(nRowA, 3) = cValue1
> Cells(nRowA, 4) = cValue2
> etc.
>
> Or you could send a consistent test workbook and I'll further write it
> for you...
>
> Kind regards,
>
> Paul Willekens
--
----------------------------------------------------------------------------------
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.
