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

Proste makro do kopiowania między arkuszami

11 Lis 2013 21:14 2058 8
  • Poziom 16  
    Hej, jestem zielony w Makro, VBA a chciałbym stworzyć pewne makro.

    Mam plik Excel: Dane1
    Mam plik Excel: Dane2
    oraz plik Excel: Wyniki

    W plikach dane1, dane 2 co tydzień pojawiają się nowe informacje
    Chciałbym je co piątek kopiować do pliku Wyniki - dopisywać, to pierwszy problem :)
    drugi natomiast to taki, że jeśli w pliku dane1 zostanie coś dodane a w pliku dane2 nie, to plik Wynik zaktualizuje sie tylko o dane1.

    czy ktoś jest w stanie mi pomoc, podać stronę gdzie znajdę pomoc? ew. pomóc?

    pozdrawiam
    W.
  • Moderator Programowanie
    student_Wojtek napisał:
    podać stronę gdzie znajdę pomoc?
    Może nie trzeba daleko szukać. Bardzo podobny temat tutaj.
  • Poziom 16  
    o dziwo, tamto proste makro wyrzuca mi błąd 400 i nie działa
  • Moderator Programowanie
    W której linii?

    P.S. Na końcu należy włączyć odświeżanie, przydałby się filtr dla plików Excela, na czas działania makra wyłączyłbym zdarzenia i alarmy (pliki mogą zawierać makra, itp)...
    Kod: vb
    Zaloguj się, aby zobaczyć kod
  • Poziom 16  
    nie jestem zbyt biegły w markach, ale teraz po odpaleniu makra wyskakuje informacja, że nie moge otworzyć scieżki do pliku
  • Moderator Programowanie
    Zdaje się, że nie wpisałeś path (koniecznie w cudzysłowach) w linii
    Kod: vb
    Zaloguj się, aby zobaczyć kod
  • Poziom 16  
    Wpisałem jak poniżej

    Set dirObj = MergeObj.Getfolder("D:\Arkusze\")
  • Poziom 16  
    hey
    dałem sobie rade troche w inny sposób
    Kod: vb
    Zaloguj się, aby zobaczyć kod



    mam teraz pytanie, w tym makro kopiuje z 2 arkuszy do jednego zbiorczego.
    W kazdym z arkuszy jest pole z datą.
    jak zrobić żeby:
    1. kopiowały się TYLKO najnowsze dane, z ostatnią datą
    2. wklejały się dane w arkusz zbiorczy, jeden pod drugim. Tzn jeśli jeden się wklejni, to żeby drugi był zaraz pod nim automatycznie?

    dzieki za pomoc
  • Moderator Programowanie
    1. Porównywać daty w instrukcji warunkowej.
    2. Wyszukać ostatni niepusty wiersz i podstawić: Range("A" & ostNiepusty).Select