Združevanje podatkov iz večih delovnih zveskov na nov excel

[qwertx]

Zdravo

Zanima me če ima kdo kakšno idejo kako bi lahko najbolj enostavno rešil naslednji problem?
Imam dva excel-a v vsakem je po 24 delovnih zvezkov (na obeh so imena zvezkov enaka). Tabele, ki se nahajajo na teh zvezkih se vpisujejo podatki (tabele imajo enake stolpce NPR: v vseh tabelah je stolpec A= ime, B=Država, itd).
Skratka jaz bi rad dobil na en excel vse podatke (iz obeh excelov), ki so se vnesli na določen izbran dan (kriterij, ki bi ga vpisal na excel bi mi prenesel vse zapisi iz vrstice kjer je v stolpcu G=Created vrednost enaka vpisani).
Zanima me, če se zadeva da rešiti z makrom ali kako drugače (morda Accesss)?

Hvala za odgovore.

Lp
Kim

[admin]

Seveda se z makrom da rešiti . Z makrom se da praktično rešiti vse, problem je samo v tem, da je pač potrebno znati makro napisati, kar pa ni tako preprosto.

Pravo vprašanje je torej ali zna Excel kaj podobnega že narediti sam po sebi oz. ali obstaja kakšno excelovo orodje oz. čarovnik, ki bi uporabniku pomagal to narediti... in odgovor na slednje vprašanje je pač na žalost ne. Po mojem znanju torej česa takšnega Excel ne zna.

Če se boste lotili pisanja makra se lahko za konkretne nasvete obrnete na ta forum, če pa želite izdelan makro pa si oglejte link na vrhu strani.

[kljuka13]

Koda: Izberi vse

Sub ZdruziDatoteke()
    Dim Mapa As String
    Mapa = "c:\help\test"
   
    Dim NovaDatoteka As Workbook
    Set NovaDatoteka = Workbooks.Add
   
    Dim datoteka
    datoteka = Dir(Mapa & "\*.xls")
    Do While datoteka <> ""
        Dim wb
        Set wb = Workbooks.Open(datoteka)
        Sheets.Copy before:=NovaDatoteka.Sheets(1)
        wb.Close
       
        datoteka = Dir
    Loop
End Sub 

To je koda, ki vam združi vse liste iz večih datotek v en zvezek. Če kodo med Do While in Loop malce spremenite lahko dobite to kar želite