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 Excel - Makro suma jeżeli dla wielu plików

Esioo1 22 Cze 2015 09:03 966 2
  • #1 22 Cze 2015 09:03
    Esioo1
    Poziom 2  

    Witam wszystkich serdecznie.
    Na wstępie chciałbym uprzedzić, że jeśli chodzi o VBA to jestem praktycznie noga. Przeszukałem internet oraz obecne forum i znalazłem makro prawie pasujące do moich potrzeb, mianowicie makro sumuje konkretną komórkę ze wszystkich plików znajdujących się w danym folderze. I tu moja prośba do kolegów. Czy byłby ktoś w stanie przekształcić poniższy kod aby działał podobnie do funkcji suma.jeżeli.
    Posiadam około 200 plików excela:
    - znajdują się w jednym folderze
    - pliki mają różne nazwy
    - mają podobną budowę (układ kolumn jest identyczny)
    - posiadają jeden arkusz
    chciałbym aby makro mogło wyszukać z zakresu np w kolumnie B daną nazwę "X" (może wystąpić wielokrotnie w jednym pliku) i odpowiadającą mu wartość w kolumnie D oraz zsumować te wartości ze wszystkich plików do jednego pliku o nazwie np "suma.xls" do komórki A1

    Kod:
    Sub aaa()
    MyPath = "c:\aaa\*.xls"
    myname = Dir(MyPath, vbDirectory)
    Do While myname <> ""
    Worksheets("arkusz1").Range("a1") = "='C:\aaa\[" & myname & "]Arkusz1'!$A$1"
    a = a + Worksheets("arkusz1").Range("a1")
    myname = Dir
    Loop
    Worksheets("arkusz1").Range("a1") = a
    End Sub

    Prosiłbym bardzo o pomoc w rozwiązaniu problemu
    Pozdrawiam serdecznie

    0 2
  • #3 22 Cze 2015 11:15
    Esioo1
    Poziom 2  

    Dziękuję bardzo za szybką odpowiedź i dziękuję za makro działa idealnie :)

    0