VBA Makro - Porównanie i kopiowanie danych między plikami X.xls i Y.xls

Witam,

Potrzebuję porównać dane z pliku X.xls z kolumny B1:B13606(dane są stałe) z plikiem Y.xls z kolumną D (do pustego miejsca- dane zmienne) i jeżeli znajdzie
taki sam to przepisać wartość z pliku Y.xls z kolumny F do pliku X.xls w kolumnie
E . Robiłem to z użyciem funkcji Vlookup excella ale strasznie długo mieli dane.
Czy jest możliwe zrobienie takiego makra VBA ,które przyśpieszyło by to wyszukiwanie ?

Byłbym wdzięczny za pomoc

Jeżeli ma być naprawdę szybko, to musisz posortować obie listy według wspólnego identyfikatora. Wtedy wystarczy pojedyncze przejrzenie obu list, a to będzie przy (zakładam) 2*15000 wierszy kilka sekund. Jeżeli nie możesz tego zrobić, to może da się utworzyć arkusz, tam skopiować co trzeba, przetworzyć, a potem przepisać według gotowej listy.

Wstaw plik z próbką danych, mogą być z sufitu, byleby układ był zachowany.

Witam,
załączyłem pliki z próbką mojej formuły, ale tak jak pisałem strasznie długo mieli,
jakby udało się coś szybszego napisać w VBA to byłoby super, ja niestety jestem
laikiem w makrach

trzeba tylko wartości dodatnie? >0

Dodano po 13 [minuty]:

2007 Excel za 0,5 sek
=JEŻELI(LICZ.JEŻELI(Y.xlsx!$D:$D;B2);JEŻELI( WYSZUKAJ.PIONOWO(B2;Y.xlsx!$D:$F;3;0)>0; WYSZUKAJ.PIONOWO(B2;Y.xlsx!$D:$F;3;0);"");"0")

JRV
twoje rozwiązanie wywala błąd #ARGH , bycz może dlatego ,że nie znajduje danej wartości z komórki B z pliku X w pliku Y(plik Y zawiera tylko niektóre dane ze stałej tabeli z pliku X)

poprawne pisanie
w E2 =JEŻELI(LICZ.JEŻELI(Y.xlsx!$D:$D;B2)>0;JEŻELI( WYSZUKAJ.PIONOWO(B2;Y.xlsx!$D:$F;3;0)>0; WYSZUKAJ.PIONOWO(B2;Y.xlsx!$D:$F;3;0);"");"0")
ale u mnia nie wywala błąd to co w post #6
jak nie znajduje danej wartości to pisze zero( =JEŻELI(LICZ.JEŻELI(Y.xlsx!$D:$D;B2);........;"0")

drobok napisał:

Utwórz sobie z tego słownik to wyszukiwanie będzie szybsze. Ew możesz sobie posortować (o ile tego nie zrobiłeś) i szukać w przedziałach (ostatni argument vlookup) kodu nie wstawiłeś to można tylko domniemywać.

Pomogło trochę bo liczy około 4 minut ,ale szukam jeszcze szybszego rozwiązania

Dodano po 11 [minuty]:

JRV napisał:

poprawne pisanie
w E2 =JEŻELI(LICZ.JEŻELI(Y.xlsx!$D:$D;B2)>0;JEŻELI( WYSZUKAJ.PIONOWO(B2;Y.xlsx!$D:$F;3;0)>0; WYSZUKAJ.PIONOWO(B2;Y.xlsx!$D:$F;3;0);"");"0")
ale u mnia nie wywala błąd to co w post #6
jak nie znajduje danej wartości to pisze zero( =JEŻELI(LICZ.JEŻELI(Y.xlsx!$D:$D;B2);........;"0")

Rzeczywiście działa i to szybciutko, ale problem polega na tym ,że pod warunkiem ,że oba pliki są uruchomione jednocześnie, a potrzebowałbym ,żeby zaciągało bezpośrednio z pliku Y dane bez konieczności jego uruchamiania .

karzek napisał:

Robiłem to z użyciem funkcji Vlookup excella ale strasznie długo mieli dane.

W formułach użyć nie całą kolumnę(D:F), a zakres(np. $D$1:$F$1000)

JRV napisał:

karzek napisał:

Robiłem to z użyciem funkcji Vlookup excella ale strasznie długo mieli dane.

W formułach użyć nie całą kolumnę(D:F), a zakres(np. $D$1:$F$1000)

Nic z tego, w dalszym ciągu błąd #ARG ,chyba że mam otwarte oba pliki jednocześnie to wtedy jest ok, ale nie o to mi chodzi .

Może ktoś ma jakieś lekarstwo w postaci makra ?

Ponownie wracam z tematem.

JRV twoja propozycja jest dobra ale doczytałem się ,że funkcja licz.jeżeli nie działa
na zamkniętych arkuszach(muszą być otwarte).

Może jednak ktoś ma jakieś rozwiązanie w tym temacie z użyciem vlookup w makrze?

w takich przypadkach używam 'PODAJ.POZYCJĘ' i 'INDEKS' w linii w przypadku, gdy nie ma błędu(jest dane), pracują na zamkniętych arkuszach.

Dodano po 3 [minuty]:

karzek napisał:

takiego makra VBA ,które przyśpieszyło by to wyszukiwanie ?

funkcje arkusza zawsze szybciej niż makro

A jakby to miało być rozpisanie bazując na przykładzie z wykorzystaniem wyszukaj.pionowo ?

Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS

ok, spróbuję podziałać z tym, dam znać jak wyjdzie.

A co myślisz o tym kodzie :
Sub szukaj()
Dim sk, IactA, IactB, IactC, IIactA, IIactB, IIactC
Worksheets("x").Select
Range("b2").Select
sk = ActiveCell.Text
IactA = ActiveCell.Text

Do While IactA <> ""
sk = ActiveCell.Text
If IactA = sk Then
IactB = ActiveCell.Offset(0, 1).Value
IactC = ActiveCell.Offset(0, 3).Value
Worksheets("y").Select
Range("d1").Select
IIactA = ActiveCell.Text
Do While IIactA <> ""
If IIactA = IactA Then
If ActiveCell.Offset(0, 1).Value = Empty Then
IactC = ActiveCell.Offset(0, 3).Value
Worksheets("x").Select
ActiveCell.Offset(0, 3) = IactC
IIactA = ""
Worksheets("x").Select
ActiveCell.Offset(1, 0).Select
IactA = ActiveCell.Text
Exit Do
Else
IactC = ActiveCell.Offset(0, 3).Value
Worksheets("x").Select
ActiveCell.Offset(0, 3) = IactC
IIactA = ""
Worksheets("x").Select
ActiveCell.Offset(1, 0).Select
IactA = ActiveCell.Text
Exit Do
End If
Else
ActiveCell.Offset(1, 0).Select
IIactA = ActiveCell.Text
End If
Loop
Else
Worksheets("x").Select
ActiveCell.Offset(1, 0).Select
IactA = ActiveCell.Text
End If
Loop
End Sub

Kod znalazłem na innym forum (autorstwa KiOP) i przerobiłem trochę na swoje potrzeby ,ale przy tak dużej tabeli trochę się krzaczy .

karzek napisał:

A co myślisz o tym kodzie

Nic, co ma dzialac?

JRV napisał:

Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS

JRV dzięki za wielką pomoc ,
użycie funkcji indeks i pozycja działa rewelacyjnie.
zastosowałem poniższą formułę :

=JEŻELI.BŁĄD(INDEKS('[Y.xlsx]Sheet1'!$A$1:$G$13609;PODAJ.POZYCJĘ(B2;'[Y.xlsx]Sheet1'!$D$1:$D$13609;0);7);"0")

Dane kopiują się jak należy

Pozdrawiam