Условный выбор и вставка в Excel

Question

Я довольно новичок в кодировании VBA, поэтому я надеялся, что вы поможете мне решить следующую проблему.

Я ищу лучший способ организовать следующее:

Из одного набора данных я получаю различные виды документов (все имеют определенный тип документа) с их информацией (например, имя клиента, адрес, сумма, НДС, ...). Из этого файла я хочу выбрать определенные типы документов (например, DG, EG, SA, ...), которые каждый раз откладывают и копируют и вставляют те строки, которые относятся к этим элементам.

например. данных, которые я получаю

Имя клиента Дата Сумма налога Скидка Тип документа

25739484 Берт 01/01/2010 100 15% 2% EG

Теперь мой вопрос:

1. Какой самый простой способ сказать, для каких типов документов я хочу, чтобы данные были выбраны и вставлены. (этот файл для повторного использования через компанию). Пусть пользователи помещают их в разные ячейки?
2. Исходя из типов документов, которые затем выбирают пользователи, как я могу заставить макрос выбирать эти строки и копировать их в новый файл?

Спасибо большое !!!

Ellen

Answer 1

Обратите внимание, что это не завершено, и я не полностью его протестировал. Надеюсь, это поможет вам начать.

Dim dt As String
Dim ws As Worksheet
Dim cnt As Long
Dim done As Boolean
Dim emptycount As Long

'ask the user for the doc type
dt = InputBox("Enter the doc type")

'get the active sheet
ws = ThisWorkbook.ActiveSheet

If dt <> "" Then
    'loop over rows
    Do While Not done
        cnt = cnt + 1
        'compare the doc type column to the doc type they selected
        If ws.Cells(cnt, 6) = dt Then
            'copy the row here
        End If

        'keep track of "empty" rows, after 1000 emptys, exit the loop
        If ws.Cells(cnt, 6) = "" Then emptycount = emptycount + 1
        If emptycount = 1000 Then done = True
    Loop
End If