how do I?
 

I have a large data (about 3 000 rows)where column A has product name and
column B has detailed product discription that can range anywhere from 1 to
10 rows. Discriptions in column B are separated by blank row. I want to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks

how do I?
 

Try this on a dummy file before you try it on your original.

Sub prtTst()
Range("A1").Activate
Range(Cells(ActiveCell.Offset(0, 1).Row, 2), Cells(ActiveCell.Offset(0,
1).End(xlDown).Row, 2)).Select
Selection.PrintOut
End Sub

"rash30" wrote:

I have a large data (about 3 000 rows)where column A has product name and
column B has detailed product discription that can range anywhere from 1 to
10 rows. Discriptions in column B are separated by blank row. I want to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks

how do I?
 

Sorry, didn't read it very close the first time. Try this:

Sub prtTst()
Range("A1").Activate
Range(Cells(ActiveCell.Offset(0, 1).Row, 2), Cells(ActiveCell.Offset(0,
1).End(xlDown).Row, 2)).Select
Selection.Copy Destination:=Worksheets(2).Range("$A$1")
End Sub

"rash30" wrote:

I have a large data (about 3 000 rows)where column A has product name and
column B has detailed product discription that can range anywhere from 1 to
10 rows. Discriptions in column B are separated by blank row. I want to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks

how do I?
 

Thank you for the reply, but I get Syntax error
--
Thanks


"JLGWhiz" wrote:

Sorry, didn't read it very close the first time. Try this:

Sub prtTst()
Range("A1").Activate
Range(Cells(ActiveCell.Offset(0, 1).Row, 2), Cells(ActiveCell.Offset(0,
1).End(xlDown).Row, 2)).Select
Selection.Copy Destination:=Worksheets(2).Range("$A$1")
End Sub

"rash30" wrote:

I have a large data (about 3 000 rows)where column A has product name and
column B has detailed product discription that can range anywhere from 1 to
10 rows. Discriptions in column B are separated by blank row. I want to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks

how do I?
 

Now it worked. What I realy need is this:
In Sheet 1, I have a configuration sheet. When item names come up here, I
need to generate a formal quote including item name (column A) and its
discription (column B) in a different worksheet. The data is in worksheet 2.
How do I do this? and how do I transfer the fonts?
--
Thanks


"JLGWhiz" wrote:

Sorry, didn't read it very close the first time. Try this:

Sub prtTst()
Range("A1").Activate
Range(Cells(ActiveCell.Offset(0, 1).Row, 2), Cells(ActiveCell.Offset(0,
1).End(xlDown).Row, 2)).Select
Selection.Copy Destination:=Worksheets(2).Range("$A$1")
End Sub

"rash30" wrote:

I have a large data (about 3 000 rows)where column A has product name and
column B has detailed product discription that can range anywhere from 1 to
10 rows. Discriptions in column B are separated by blank row. I want to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks

how do I?
 

If you want help in developing a program to prepare a formal quote, you will
need to make a new posting and furnish a lot more information than you have
in this posting. It will help if you provide a sample of the worksheet
layout for the data you will be working with and what you want to copy from
where to where. Will the data always be in the same cells or will the
worksheet locations be dynamic, changing in length of columns or rows.
Taking one bite at the time is good for eating elephants, but for this
effort, a little bigger helping is in order.

"rash30" wrote:

Now it worked. What I realy need is this:
In Sheet 1, I have a configuration sheet. When item names come up here, I
need to generate a formal quote including item name (column A) and its
discription (column B) in a different worksheet. The data is in worksheet 2.
How do I do this? and how do I transfer the fonts?
--
Thanks


"JLGWhiz" wrote:

Sorry, didn't read it very close the first time. Try this:

Sub prtTst()
Range("A1").Activate
Range(Cells(ActiveCell.Offset(0, 1).Row, 2), Cells(ActiveCell.Offset(0,
1).End(xlDown).Row, 2)).Select
Selection.Copy Destination:=Worksheets(2).Range("$A$1")
End Sub

"rash30" wrote:

I have a large data (about 3 000 rows)where column A has product name and
column B has detailed product discription that can range anywhere from 1 to
10 rows. Discriptions in column B are separated by blank row. I want to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks

how do I?
 

Please provide your email address so the OP can send these samples to you
directly.

Please don't encourage people to post attachments to the newsgroups.

--
Regards,
Tom Ogilvy




"JLGWhiz" wrote in message
...
If you want help in developing a program to prepare a formal quote, you
will
need to make a new posting and furnish a lot more information than you
have
in this posting. It will help if you provide a sample of the worksheet
layout for the data you will be working with and what you want to copy
from
where to where. Will the data always be in the same cells or will the
worksheet locations be dynamic, changing in length of columns or rows.
Taking one bite at the time is good for eating elephants, but for this
effort, a little bigger helping is in order.

"rash30" wrote:

Now it worked. What I realy need is this:
In Sheet 1, I have a configuration sheet. When item names come up here,
I
need to generate a formal quote including item name (column A) and its
discription (column B) in a different worksheet. The data is in
worksheet 2.
How do I do this? and how do I transfer the fonts?
--
Thanks


"JLGWhiz" wrote:

Sorry, didn't read it very close the first time. Try this:

Sub prtTst()
Range("A1").Activate
Range(Cells(ActiveCell.Offset(0, 1).Row, 2),
Cells(ActiveCell.Offset(0,
1).End(xlDown).Row, 2)).Select
Selection.Copy Destination:=Worksheets(2).Range("$A$1")
End Sub

"rash30" wrote:

I have a large data (about 3 000 rows)where column A has product name
and
column B has detailed product discription that can range anywhere
from 1 to
10 rows. Discriptions in column B are separated by blank row. I want
to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks

how do I?
 

Thank you for your reply. Where do I attach a sample worksheet for your
review?

To answer some of your questions:
1. The data will always be dynamic, i.e. the number of rows with item
description will always be different. Some body helped me to figure out the
main formula which worked. This formula is:
=IF(B$2="","",IF(ROWS(Pricebook!$1:1)<=MATCH(TRUE, Pricebook!A$6750:INDEX(Pricebook!A$6:Pricebook!A$6 750,MATCH(B$2,Pricebook!A$6:Pricebook!A$6750,0)+1) <"",0),INDEX(Pricebook!B$6:Pricebook!B$6750,MATCH (B$2,Pricebook!A$6:Pricebook!A$6750,0)+ROWS($1:1)-1),""))

However, it only searches in a specific place - B$2.

What I need is the following:

1. I need for it to look at items in column A, Worksheet1.
2. When it finds item 1 in A2, it should match its description located in
data in Pricebook!, column B.
3. Then it should display complete item description in column B, Worksheet1.
The length (# of rows in description will always be different)
4. Then it should skip a row, grab item 2 (it may be in A3 or A4, etc.) put
it in Column A, 2 rows below the last populated (with description of item 1)
row in Column B.
5. Then it should match the description for item 2 in Column B 2 rows below
the last populated row for description for item 1.
6. This process should repeat until there are no more items in Column A.
Please note that number of items may vary from 1 to more then 15.
7. The first row of each description in Column B should always be bold. The
rest of rows showing each description should have the same font and size.

I know this can be done, but my knowledge of Excell is limited, and I know
nothing of VBA. Do you think you can help, at least point me to the correct
functions.

Thank you in advance. Do you still want me to post this in a new post as
well?

Gary


--
Thanks


"JLGWhiz" wrote:

If you want help in developing a program to prepare a formal quote, you will
need to make a new posting and furnish a lot more information than you have
in this posting. It will help if you provide a sample of the worksheet
layout for the data you will be working with and what you want to copy from
where to where. Will the data always be in the same cells or will the
worksheet locations be dynamic, changing in length of columns or rows.
Taking one bite at the time is good for eating elephants, but for this
effort, a little bigger helping is in order.

"rash30" wrote:

Now it worked. What I realy need is this:
In Sheet 1, I have a configuration sheet. When item names come up here, I
need to generate a formal quote including item name (column A) and its
discription (column B) in a different worksheet. The data is in worksheet 2.
How do I do this? and how do I transfer the fonts?
--
Thanks


"JLGWhiz" wrote:

Sorry, didn't read it very close the first time. Try this:

Sub prtTst()
Range("A1").Activate
Range(Cells(ActiveCell.Offset(0, 1).Row, 2), Cells(ActiveCell.Offset(0,
1).End(xlDown).Row, 2)).Select
Selection.Copy Destination:=Worksheets(2).Range("$A$1")
End Sub

"rash30" wrote:

I have a large data (about 3 000 rows)where column A has product name and
column B has detailed product discription that can range anywhere from 1 to
10 rows. Discriptions in column B are separated by blank row. I want to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks

how do I?
 

Tom,

I am reluctant of providing my e-mail address here.
--
Thanks

Gary

"Tom Ogilvy" wrote:


Please provide your email address so the OP can send these samples to you
directly.

Please don't encourage people to post attachments to the newsgroups.

--
Regards,
Tom Ogilvy




"JLGWhiz" wrote in message
...
If you want help in developing a program to prepare a formal quote, you
will
need to make a new posting and furnish a lot more information than you
have
in this posting. It will help if you provide a sample of the worksheet
layout for the data you will be working with and what you want to copy
from
where to where. Will the data always be in the same cells or will the
worksheet locations be dynamic, changing in length of columns or rows.
Taking one bite at the time is good for eating elephants, but for this
effort, a little bigger helping is in order.

"rash30" wrote:

Now it worked. What I realy need is this:
In Sheet 1, I have a configuration sheet. When item names come up here,
I
need to generate a formal quote including item name (column A) and its
discription (column B) in a different worksheet. The data is in
worksheet 2.
How do I do this? and how do I transfer the fonts?
--
Thanks


"JLGWhiz" wrote:

Sorry, didn't read it very close the first time. Try this:

Sub prtTst()
Range("A1").Activate
Range(Cells(ActiveCell.Offset(0, 1).Row, 2),
Cells(ActiveCell.Offset(0,
1).End(xlDown).Row, 2)).Select
Selection.Copy Destination:=Worksheets(2).Range("$A$1")
End Sub

"rash30" wrote:

I have a large data (about 3 000 rows)where column A has product name
and
column B has detailed product discription that can range anywhere
from 1 to
10 rows. Discriptions in column B are separated by blank row. I want
to
choose a specific product name and print its complete
discription on a separate worksheet. How can I do it?

--
Thanks

--
Thanks