Używam Excela do tworzenia raportów dla systemu sprzedaży biletów i chciałbym użyć VBA, aby uprościć proces aktualizacji danych raportu. Chcę tylko zaimportować plik Excel zrzucony z systemu sprzedaży biletów do pliku Excel, którego używam do raportowania, ale z niespodzianką. Muszę użyć wartości w jednej kolumnie, aby określić, czy bilet jest nowy, czy już istnieje. Jeśli jest nowy, chcę dodać go do pliku raportowania. Jeśli istnieje, chcę zastąpić pasujący wiersz (na podstawie pasującej wartości kolumny, która jest numerem biletu) z importowanymi danymi. Podstawowy proces to:

Otwórz eksportowany plik (wiem jak to zrobić)Dla każdego wiersza w eksportowanym plikuPrzeczytaj numer biletu (kolumna A)Wyszukaj istniejącą kolumnę arkusza pod numerem biletu (również kolumna A)Jeśli znaleziono, zastąp informacje zaimportowanymi danymi (kolumny B-X)Inne dołączaj importowane dane jako nowy wiersz (kolumny A-X)Następny rząd

Kroki 4-6 powyżej są tym, w czym chciałbym pomóc. Mogę użyć formuły takiej jak = NOT (ISNA (MATCH ([importowany identyfikator biletu], [tablica istniejących identyfikatorów biletów], 0))), aby zwrócić PRAWDA, jeśli identyfikator biletu istnieje i FAŁSZ, jeśli nie, ale chciałby znaleźć bardziej eleganckie rozwiązanie, jeśli takie istnieje.

Czy ktoś tutaj ma doświadczenie w robieniu tego i / lub kodu VBA, który mógłbym dostosować do moich celów? Z góry dziękuję.

EDIT: Oto kod, który mam do tej pory. To nie jest dużo.

Sub UpdateTickets()
'Specify data export file
Dim fNameAndPath As Variant
fNameAndPath = Application.GetOpenFilename(Title:="Select File To Be Processed")
If fNameAndPath = False Then Exit Sub
'Open data export file
Workbooks.Open Filename:=fNameAndPath
'For each row in data export file, starting at Row 2
'Check master data file (column A) for ticket number
'If ticket number exists, update information in columns B through P
'Else add new ticket row and place information in columns A through P
'Next row
End Sub