Witam, mam problem. Nie bardzo znam VBA, stąd zupełnie nie wiem jak napisać makro. Proszę więc o pomoc kogoś, komu to nie sprawi większego problemu... W pracy codziennie porównuję dwa pliki wyeksportowane z różnych systemów. Oba pliki mają gdzieś ok 1500 wierszy danych (w załączniku wersje skrócone do 8-9wierszy) i jedną wspólną rzecz która mnie interesuje, czyli nr FV/WZ - w pliku Zeszyt1.xls jest to zawsze kolumna A, natomiast w pliku Zeszyt2.xls zawsze kolumna B. Chciałbym stworzyć makro, które byłoby zapisane w pliku Zeszyt3, które po uruchomieniu porównywało by ze sobą pliki Zeszyt1 z Zeszyt2 i jeśli znajdzie ten sam numer FV/WZ, to kopiowało by cały dany wiersz z Zeszyt1 do Zeszyt3 i dopisywało na końcu numer zamówienia z pliku Zeszyt2. Do tej pory bawiłem się w pliku Zeszyt1 funkcją wyszukaj.pionowo - ale rekordów jest coraz więcej i zastanawiałem się nad usprawnieniem tego działania. Bardzo proszę o pomoc. Pozdrawiam! :)
" DATA_WZ " , " NR_WZ " , " WZ_FA_ORG " , " ODBIORCA " , " MIE_DOST " , " INDEKS " , " KOD_TOW " , " NAZ_TOW " , " CENA_WZ " , " ILOSC " , " OPIS " , " NUMER ZAMÓWIENIA "
" 2017.04.13 " , " WC0009305/17 " ,, " 76-646 BRUCHSAL GETTYGO.DE- WYSY?KA DO KLIENTA KO?COWEGO " , " 86-497 HORGAU AUTOHAUS STEPPE GMBH " , " 82641 " , " 51708 " , " COOPER L285/65 R18 DISCOVERER A/T3 125/122S " , " 612 " , " 3 " , " 3 " ,
" 2017.04.12 " , " WH0038204/17 " ,, " 76-646 BRUCHSAL GETTYGO.DE- WYSY?KA DO KLIENTA KO?COWEGO " , " 71-106 MAGSTADT BLUM UWE REIFENSERVICE " , " 80155 " , " 3539500000 " , " CONTINENTAL Z205/50 R17 TS815 93V XL CS " , " 485 " , " 99 " , " 1 " , " 1030965461 "
" 2017.04.12 " , " WH0038010/17 " ,, " 76-646 BRUCHSAL GETTYGO.DE- WYSY?KA DO KLIENTA KO?COWEGO " , " 76-599 WEISENBACH SEIDT " , " 75631 " , " 6773 " , " FIRESTONE Z155/65 R14 WINTERHAWK 3 75T DOT2014 " , " 121 " , " 48 " , " 2 " , " 1041039505 "
" 2017.04.12 " , " WH0037932/17 " ,, " 76-646 BRUCHSAL GETTYGO.DE- WYSY?KA DO KLIENTA KO?COWEGO " , " 12-529 SCH?NEFELD OT GRO?ZIETHEN INTERMOBIL " , " 14107 " , " 523229 " , " GOOD-YEAR Z245/55 R17 UG PERFORMANCE 2 ROF 102H " , " 674 " , " 14 " , " 1 " , " 1030965313 "
" 2017.04.12 " , " WH0037924/17 " ,, " 76-646 BRUCHSAL GETTYGO.DE- WYSY?KA DO KLIENTA KO?COWEGO " , " 83-022 ROSENHEIM PNEUHAGE REIFENDIENSTE S?D GMBH " , " 80024 " , " 720861 " , " MICHELIN 150/60 R17 PILOT STREET RAD R 66H DOT15 " , " 241 " , " 98 " , " 1 " , " 1020914269 "
" 2017.04.12 " , " WC0009114/17 " ,, " 76-646 BRUCHSAL GETTYGO.DE- WYSY?KA DO KLIENTA KO?COWEGO " , " 76-229 KARLSRUHE AUTO TALKE GDBR " , " 30171 " , " 1101400 " , " PIRELLI L285/30 ZR18 PZERO ASIM (93) N3 DOT2005 " , " 158 " , " 67 " , " 1 " , " 1020913755 "
" 2017.04.12 " , " WC0009112/17 " ,, " 76-646 BRUCHSAL GETTYGO.AT- WYSY?KA DO KLIENTA KO?COWEGO " , " 85-520 EIBISWALD AUTOHAUS POPRASK GMBH " , " 77463 " , " 78472 " , " BRIDGESTONE Z215/70 R15C W800 109/107R DOT2012 " , " 269 " , " 42 " , " 2 " , " AT 002040037078 "
" 2017.04.12 " , " WH0037935/17 " ,, " 76-646 BRUCHSAL GETTYGO.DE- WYSY?KA DO KLIENTA KO?COWEGO " , " 19-061 SCHWERIN HUGO PFOHE GMBH " , " 81641 " , " 1702600 " , " PIRELLI Z285/30 R20 SOTTOZERO 99V XL DOT2014 " , " 1250 " , " 48 " , " 1 " , " 1020914300 "