Copy data from data sheet

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Steve - 24 Mar 2008 22:37 GMT

Hi everyone. I have a large data sheet, with the first 6 columns of
data I need. Column 1 of the data sheet is an invoice number. I then
have a calculation sheet. In cell A2 of the calculation sheet is an
invoice number. Can I have vba scan column A of the data sheet for
the invoice number in A2 and return columns 1 thru 6 into the
calculation sheet? Thanks!!!

Reply to this Message

Barb Reinhardt - 24 Mar 2008 22:54 GMT

You can, but why wouldn't use use VLOOKUP instead?

Signature

HTH,
Barb Reinhardt

> Hi everyone. I have a large data sheet, with the first 6 columns of
> data I need. Column 1 of the data sheet is an invoice number. I then
> have a calculation sheet. In cell A2 of the calculation sheet is an
> invoice number. Can I have vba scan column A of the data sheet for
> the invoice number in A2 and return columns 1 thru 6 into the
> calculation sheet? Thanks!!!

Reply to this Message

Steve - 25 Mar 2008 03:44 GMT

Because I have multiple instances of the same invoice number. I need
to copy in every instance of the given invoice number. Thanks!

On Mar 24, 3:54 pm, Barb Reinhardt
<BarbReinha...@discussions.microsoft.com> wrote:

> You can, but why wouldn't use use VLOOKUP instead?
> --
[quoted text clipped - 9 lines]
>
> - Show quoted text -

Reply to this Message

GTVT06 - 26 Mar 2008 21:02 GMT

This will find and select your data, but I'm not sure where you want
it pasted.

Sub FindRange()
Dim cell As Range
'Assuming Invoice numbers are located in
'L1:L50 as an example
For Each cell In Worksheets("Data").Range("L1:L50")
If cell.Value = Worksheets("Calc").Range("A2").Value Then
Worksheets("Data").Activate
Range(cell.Address & ":" & cell.Offset(0, 5).Address).Select
End If
Next cell
End Sub

Reply to this Message