Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Excel - Wyszukaj pionowo - makro

tobi85 06 Lut 2015 08:42 1230 7
  • #1 06 Lut 2015 08:42
    tobi85
    Poziom 11  

    Witam,
    Nagrałem makro w którym wyszukiwane są dane z innego pliku za pomocy funkcji wyszukaj pionowo.
    Podczas nagrywania funkcja znalazła dane i wstawiła do innego pliku,
    po zapisania makra i ponownym uruchomieniu formuła zwraca zupełnie inne wartości.

    Może ktoś sprawdzić kod i powiedzieć co jest źle? Poniżej przesyłam kod:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0 7
  • #2 06 Lut 2015 10:23
    -psiak-
    Poziom 32  

    Przed:
    ActiveCell.FormulaR1C1 = ...
    Nie zaktywowałeś żadnej komórki, musi być coś w rodzaju:
    Range("K342").Select
    Tylko że z innym adresem.

    0
  • #3 06 Lut 2015 11:15
    tobi85
    Poziom 11  

    nagrałem jeszcze raz pominąłem otwieranie pliku, wyszedłem z założenia że wsztskie są otwarte, "Range..." się pokazało jednak makro nadal ne zwraca wartości tak jak podczas nagrywania.
    Nowe makro po nagraniu:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #4 06 Lut 2015 17:16
    clubs
    Poziom 31  

    tobi85 napisał:

    ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(RC[8],'[plki222.xls]Próby'!C1:C8,2,0)"

    End Sub


    tu masz błędny zapis

    0
  • #5 30 Mar 2015 11:23
    tobi85
    Poziom 11  

    Fakt. nie mogę nigdzie znaleźć "wytłumaczenia" czemu tak się nagrało.
    Nie wiem czy widać po kodzie co chcę osiągalność.
    Chodzi o to ze po przefiltrowaniu po nr 756902 kolumna x ( wynik około 10 wierszy) chcę wyszukać pionowo w kolumnie y wartości z innego pliku i zwrócić nr_indeksu_kolumny.
    Wyszukaj pionowo nie działa poprawnie pewnie dlatego że nie zawsze nr 756902 jest w tym samym wierszu, a takie wyszukiwanie robię prawie codziennie.

    Jak zapisać makro żeby wyszukiwało pionowo poprawie o założeniu filtra ?
    Dzięki za wszystkie podpowiedzi.

    0
  • #6 30 Mar 2015 13:52
    JRV
    Specjalista - VBA, Excel

    Witaj, lepiej dołączyć makiety arkuszy.
    Względne powoływania(RC nie zawsze dają przedstawienie o tablicach.
    Albo wykorzystuj powoływanie w stylu А1

    Dodano po 7 [minuty]:

    edit...

    0
  • Pomocny post
    #7 30 Mar 2015 13:53
    -psiak-
    Poziom 32  

    Formułę można wpisać bezpośrednio do całego zakresu:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    1
  • #8 31 Mar 2015 11:03
    tobi85
    Poziom 11  

    -psiak- napisał:
    Formułę można wpisać bezpośrednio do całego zakresu:
    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Prawie idealnie tylko zakres "Range" zmienić trzeba po wyszukaj.pionowo i potrzeby jest tylko dla kolumny K :)

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    DZIĘKI!

    0