Is it possible to do this in Excel?

[clueless2011]

I want to create a quote sheet for my customers. I would like to have it formatted to show my logo at the top and and atomatically calc the total at the bottom. That part is easy.
Between the top and bottom, i will have several (20) rows where i would like to see a small description and a price for each of the items i am quoting. here is where i need help... i would like to have complete list of all the items i sell in the same workbook (500 items) where i can manually sift through and place a qnty next to that item. Will Excel automatically take the items i randomly selected and place then orderly in my quote sheet? If so, i would like to take this a bit further because ultimately, i want my customer to see the first sheet as a summary with the total and subsequent sheets that will provide detailed descriptions of those items selected and included in his quote.
I sure hope someone can understand what i'm trying to do. sometimes i'm not the best at explain what i see in my head.

 

[Andrew Poulsom]

You could use Data Validation:

http://www.contextures.com/xlDataVal01.html

 

[rs2k]

Hi Clueless2011, welcome to the board,

This bit of code searches sheet1 for a value(Qty) in Col B and if found copies the entire row onto sheet2 starting at row 10. You never actually gave any sheet names or ranges, so you will have to adjust the code to suit.

Sub CopyToInvoice()
  
  Dim DestSheet        As Worksheet
  Set DestSheet = Worksheets("Sheet2")
  
  Dim sRow       As Long     'row index on source worksheet
  Dim drow       As Long     'row index on destination worksheet
  Dim sCount     As Long
  sCount = 0
  drow = 9
Application.ScreenUpdating = False

Sheets("Sheet1").Activate
  For sRow = 2 To Range("B65536").End(xlUp).Row
     'use pattern matching to find Qty anywhere in cell
     If Cells(sRow, "B") <> "" Then
        sCount = sCount + 1
        drow = drow + 1
        'copy cols A,B
        Cells(sRow, "A").Copy Destination:=DestSheet.Cells(drow, "A")
        Cells(sRow, "B").Copy Destination:=DestSheet.Cells(drow, "B")
        
     End If
  Next sRow
  Application.ScreenUpdating = True
End Sub

Hope this gets you started,

Cheers
Colin

 

[clueless2011]

Wow. This is amazing! You guys are truely geeks right? I have no idea where to even begin with this, but it sure does look interesting. i can't thank you enough for putting this together for me. I am going to go to work on it and give it a shot.
Thanks Colin.

 

[clueless2011]

Colin,
This worked somewhat. It did organize the quanties on sheet 2. however, nothing else came with it. for example: the text i put in C:12 on sht 1 did not show in C:10 on sht 2.
Also, i would really like to know how you came up with this because this not the first time i have come across the need for this. Please.
Thank you again.