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
