Forum Discussion
Price list - Order form-Summary page
I am trying to build an Ordering tool. I have my product families (5) on individual worksheets. These are set ups to allow customers to enter a quantity. That creates a discounted price and an e...
Thank you for your help.
I have attached a miniature example. There are two Worksheets that hold product info and a column to allow a number to be entered (to indicate an desired order quantity.)
My question relates to pulling all of those non-zero lines into a clear concise order form.
This may be a case where I am asking excel to do things that a data base could do better but I am looking for an easy tool to deploy with customers.
Again Thank you for taking a look.
mav
Hi Mav,
i make a macro for you, see the attachment too.
Sub GetData()
Dim wksTab As Worksheet
Dim wksTabTarget As Worksheet
Dim lngz As Long
Dim rngFind As Range
lngz = 7
Set wksTabTarget = Worksheets("Order summary Sheet")
wksTabTarget.Range("A7:C" & wksTabTarget.Rows.Count).Clear
For Each wksTab In ThisWorkbook.Worksheets
Set rngFind = wksTab.Range("D:D").Find(what:="SubTotal", lookat:=xlPart)
If Not rngFind Is Nothing Then
If rngFind.Offset(0, 1).Value <> 0 Then
wksTabTarget.Range("A" & lngz).Value = "SubTotal"
wksTabTarget.Range("B" & lngz).Value = wksTab.Name
wksTabTarget.Range("C" & lngz).Value = rngFind.Offset(0, 1).Value
lngz = lngz + 1
End If
End If
Next wksTab
End SubBest regards from germany
Bernd
http://www.vba-tanker.com