Elektroda.pl
Elektroda.pl
X

Wyszukiwarki naszych partnerów

Wyszukaj w ofercie 200 tys. produktów TME
Europejski lider sprzedaży techniki i elektroniki.
Proszę, dodaj wyjątek elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA - Kopiowanie między plikami z warunkiem

Kajak51 15 Lis 2016 17:28 495 4
  • #1 15 Lis 2016 17:28
    Kajak51
    Poziom 3  

    Witam,

    Zapętliłem się do tego stopnia, że mając prostą pętlę czytającą wiersze między skoroszytami, ni w ząb nie potrafię jeszcze ugryźć jak sądzę funkcji IF - dla podanego na wstępie warunku sprawdzenia (tutaj w przykładzie "cyfry miesiąca") i przepisania wiersza jeśli ten warunek został spełniony - jeżeli nie, kod ma czytać dalej aż znajdzie i kolejny wiersz wpisać w arkusz wynikowy w pierwszy (nastepny) pusty wiersz.

    O ile uparcie dostosowałem sobie kod samego kopiowania - to już tego warunku "nie daję rady". Zaczynam dopiero "studiowanie VBA" - i wiem, że na przykładzie mądrzejszego - a daj Panie z komentarzem - nauka idzie szybciej i lepiej wchodzi do głowy. Proszę zatem o pomoc w uzupełnieniu tego "com wypocił".

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    0 4
  • #2 15 Lis 2016 18:58
    JRV
    Specjalista - VBA, Excel

    Kajak51 napisał:
    If kom.Value = i Then

    Chcesz wyszukać numery w kolejności(LP)?
    'i' - zmienia się od 1 do liczby wierszy w rngSzuk

    Dodano po 5 [minuty]:

    If Month(kom)=Sheets("Raport").Cells(1, 3) Then

    0
  • #3 15 Lis 2016 19:41
    Kajak51
    Poziom 3  

    [quote="JRV"]

    Kajak51 napisał:
    If kom.Value = i Then

    Chcesz wyszukać numery w kolejności(LP)?

    Nie chodzi o (Index - LP ) lecz wartość miesiąca w tablicy danych (kolumna z numerem miesiąca zakupu) - stąd jeśli wpiszę w arkuszu RAPORT- numer miesiąca - ma mi wy_listować w RAPORCIE wszystkie transakcje z tego miesiąca.

    0
  • #4 16 Lis 2016 09:38
    cbrman
    Poziom 26  

    Wg. mnie pętla powinna wyglądać w następujący sposób:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    1
  • Pomocny post
    #5 16 Lis 2016 09:46
    JRV
    Specjalista - VBA, Excel

    Kajak51 napisał:
    wszystkie transakcje z tego miesiąca.
    JRV napisał:
    If Month(kom)=Sheets("Raport").Cells(1, 3) Then

    0
TME logo Szukaj w ofercie
Zamknij 
Wyszukaj w ofercie 200 tys. produktów TME
TME Logo