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! :)
" NR FV / WZ " , " Data Wys?ania " , " Spedytor " , " Numer Paczki " , " Odbiorca " , " Kod pocztowy " , " Adres " , " Miasto " , " NAZWA TOWARU " , " ILO?? " ,
" WC0009114/17 " , " 04-12-17 " , " GLS " , " 45650911769 " , " AUTO TALKE GDBR " , " 76229 " , " OHMSTRASSE 5 " , " KARLSRUHE " , " PIRELLI L285/30 ZR18 PZERO ASIM N3 DOT05 " , " 1 " ,
" WC0009112/17 " , " 2017/04/12/21200539 05:14:38 " , " DPD " , " 13199600058544 " , " AUTOHAUS POPRASK " , " 8552 " , " EIBISWALD 388 " , " EIBISWALD " , " BRIDGESTONE Z215/70 R15C W800 109/107R DOT2012 " , " 2 SZT " ,
" WH0038204/17 " , " 2017/04/12/21200561 05:16:14 " , " DPD " , " 0000111121599W " , " BLUM UWEREIFENSERVICE " , " 71106 " , " LUTZENSTRASSE 6/1 " , " Szczecin " , " CONTI 205 50 17 TS815 93V XL " , " 1 SZT "
" WH0037935/17 " , " 2017/04/12/21200630 05:21:08 " , " DPD " , " 13229600329586 " , " HUGO PHONE GMBH " , " 19061 " , " PAMPOWER STR 1 " , " SCHWERIN " , " PIRELLI Z285/30 R20 SOTTOZERO 99V XL DOT 2014 " , " 1 SZT "
" WH0037924/17 " , " 2017/04/12/21200630 05:21:08 " , " DPD " , " 13229600329587 " , " PNEUHAGE REIFENDIENSTE SUD GMBH " , " 83022 " , " TEGERNSEESTR 1 " , " ROSENHEIM " , " MICHELIN 150/60 R17 PILOT STREET RAD R 66H DOT15 " , " 1 SZT "
" WH0037932/17 " , " 2017/04/12/21200630 05:21:08 " , " DPD " , " 13229600329588 " , " INTERMOBIL " , " 12529 " , " LICHTENRADER CHAUSSE 1 " , " SCHONEFELD OT GROSSZIETHEN " , " GOODYEAR Z245/55 R17 UG PERFORMANCE 2 ROF 102H " , " 1 SZT "
" wh0038010/17 " , " 2017/04/12/21200630 05:21:08 " , " DPD " , " 13229600329625 " , " seidt " , " 76599 " , " kestelbergweg 4 " , " weisenbach " , " firestone 155 65 14 winterhawk 3 75t d14 " , " 2 szt "
,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,
,,,,,,,,,,