2014-01-16 140 views
1

我做手动将这些最后的最后一年,希望我能得到关于如何使用Excel数据到发票Excel宏

表来执行这个更好一些帮助和指导1

Client Name | SKU | Description | Oct Qyt | Oct fee | Nov Qty | Nov Fee | Dec Qty | Dec Fee | Total 
John, Doe | 1234 | red wine |  12 |  $12 |  12 |  $12 |  12 |  $12 | $36.00 
John, Doe | 3456 | white wine |  6 |  $6 |  3 |  $3 |  0 |  $0 | $9.00 
Kent, Clark | 6789 | etc.. 

同一客户有多个SKU和SKU每月数量不同,我需要计算出总数。

我需要在客户端名称翻译上面的数据到一个发票:

SKU, Description, Oct Units, Fee, Nov, Units, Fee, TOTAL.

有没有办法在宏或vlookups轻松地处理这个?我尝试了vlookups,由于一人下有多个产品,因此无法正常工作。

我需要这样做,以产生超过150的发票,单独保存,转换成PDF格式,并通过电子邮件发送给客户。

+0

有你累了数据透视表,与客户端名称在报告过滤器,'SKU'和'Description'在行标签和每个'十月Qyt','十月fee','月Qty','十一月Fee'的总和Σ值? – pnuts

+0

我有以下透视表: –

+0

谢谢你,我会尝试多个数据透视表,看看我能排序更好地让我的复制粘贴容易 –

回答

0

绝对最简单的方法是使用数据透视表。

如果你想使用宏做一些事情,你可以通过为每个客户端的纸张开始。我有时用这个宏通过突出显示名称的不同列表和运行宏:

Sub CreateSheetsWithTheseNames() 
    Dim CurName As Range 

    For Each CurName In Selection 
     ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count) 
     ActiveSheet.Name = CurName.Value 
    Next CurName 
End Sub 

这可以被修改,以刚刚通过A列和创建表寻找那些尚不具有与纸张每一个名字那个名字。

如果你有一个枢轴表已经设置,上面的宏可被修改以用于每个客户端的透视表纸上复印,并相应地过滤。从那里,每张纸可以保存为PDF。

如果需要,我大概可以在宏中阐述一些。

+0

是的,我有一个数据透视表如下 –

+0

由于新的堆栈所以生病尝试重做枢轴然后尝试写一个宏来复制数据 –

+0

应该能够使用表格(“模板”),然后复制像activesheet.pivottables(“PivotTable1”).PivotFields(“Client Name”)。currentpage = activesheet.name - 这当然是粗略的代码,但应该是方向正确的:-) – BAReese

0

为了答案。

尝试数据透视表,与客户端名称在报告过滤器,SKUDescription在行标签和每个Oct Qyt的总和,Oct feeNov QtyNov Fee为Σ值。