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.

VBA Pętla - Pętla do While nie działa tak jak założyłem

picia240183 08 Sty 2013 11:05 2049 4
  • #1 08 Sty 2013 11:05
    picia240183
    Poziom 9  

    Napisałem pętlę która ma kopiować zawartość komórek z kolumny J do komórek z kolumny A jeżeli komórki z kolumny F i O są równe. Po prostu jeżeli np w komórka F4 = O1 to ma skopiować zawartość J1 do A4. Częściowo mi się to udało ale pętla nie wiadomo dlaczego zatrzymuje się tuż po starcie i wyrzuca błąd. Prosze o pomoc

    Tutaj kod mojego makra:

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    A tu plik z danymi

    Dodano po 1 [minuty]:

    Nie dodało arkusza excel. dodaje jeszcze raz spakowany

    Proszę umieszczać kod w znacznikach syntax. Opcja Listing kodu. [adamas_nt]

    0 4
  • Pomocny post
    #2 08 Sty 2013 17:54
    adamas_nt
    Moderator Programowanie

    WP wypadałoby zresetować przed następnym przebiegiem...

    Kod: vb
    Zaloguj się, aby zobaczyć kod
    A żeby nie "mielić" tych samych rekordów wstaw sobie licznik (za WO=WO+1), wtedy WP=licznik, przed pętlą.

    0
  • #3 09 Sty 2013 13:47
    picia240183
    Poziom 9  

    Wstawiłem
    WP = 1
    i wszystko działa. Nie rozumiem troche co masz na mysli z tym licznikiem

    0
  • Pomocny post
    #4 09 Sty 2013 19:23
    adamas_nt
    Moderator Programowanie

    Jeśli sprawdziłeś już pierwszą wartość z kolumny, to po zresetowaniu znowu zaczynasz od pierwszej... Żeby skrócić czas działania, można liczyć przebiegi i podstawiać Nr kolejnego wiersza wg schematu:

    licznik=1

    Pętla zewnętrzna
      WP=licznik
      Pętla wewnętrzna
          instrukcje
      Loop
      licznik=licznik+1
    Loop

    0
  • #5 26 Maj 2014 14:25
    picia240183
    Poziom 9  

    Wszystko dzała dziękuję za pomoc

    0