Данные в инвойс Excel Macro

Question

Данные в инвойс Excel Macro

Я делаю это вручную последний раз за последний год и надеюсь, что смогу получить некоторую помощь и рекомендации о том, как выполнить это лучше с помощью 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 и отправить их клиентам по электронной почте.

1

excel vba excel-vba invoices

Источник

user2904116 16 янв '14 в 21:22

2 ответа

Другие вопросы по тегам excel vba excel-vba invoices

user1505120 23 янв '14 в 01:55 2014-01-23 01:55 · Answer 1 · 2014-01-23 01:55

Ради ответа.

Попробуйте сводную таблицу с именем клиента в фильтре отчетов, SKU а также Description в метках строк и сумме каждого из Oct Qyt, Oct fee, Nov Qty, Nov Fee для Σ значений.

0

Источник

user1505120 23 янв '14 в 01:55

user2441732 16 янв '14 в 22:25 2014-01-16 22:25 · Answer 2 · 2014-01-16 22:25

Абсолютно проще всего было бы с сводной таблицей.

Если вы хотите что-то сделать с помощью макросов, вы можете начать с создания листа для каждого клиента. Иногда я использую этот макрос, выделяя отдельный список имен и запуская макрос:

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.

Я мог бы объяснить некоторые из макросов, если это будет необходимо.