[es] - Ažuriranje jedne tabeli iz više drugih ?

civi
Petrovic
Beograd

Član broj: 57037
Poruke: 37
194.24.248.*

Profil

Ažuriranje jedne tabeli iz više drugih ?

^{16.07.2012. u 13:00 - pre 143 meseci}

Pozdrav svim,

imam problem koji ne znam da rešim i potrebna mi je pomoć, problem se sastoji iz sledećeg:

Imam više tabela koje je potrebno spojiti u jednu (sve tabele imaju iste nazivne kolone ali se broj redova u njim menja). Tako dobijenu jednu tabelu opet radim copy-paste u moju master tabelu i preko pivota dobijam tabelu za štampu koja je meni potrebna.
E, sad da li je moguće da se napravi preko VBA neki makro koji će primera radi da iz svih tabela određenog foldera prebaciti podatke u jednu (master) tabelu tj. da ja prosto samo sačuvam tabele dobijene mailom u odredjeni folder, otvorim moju master tabelu prosto kliknem na dugmence (Button), i u sheetu koji ima pivot dobijem odmah sve podatke spremne za štampu.
Još jedna mana je što kod dobijenih tabela treba obrisati prvih 3-4 reda i poslednji gde je zbir kako bi ostali samo podaci mada ako je ovo problem mogu da kad radim save odmah obrišem nepotrebne redove.
Na nekim forumim sam uspeo da nadjem nešo slično ali kod mene to nefunkcioniše jer tabele koje dobijam imaju promenjiv broj redova.

Ako nešto nisam napisao pitajte jer ne znam da pišem u VBA pa neisam siguran da li sam lepo opisao problem i da li sam dao dovoljno podataka.

Hvala.

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{16.07.2012. u 13:56 - pre 143 meseci}

Ključna reč je konsolidacija, što je ime Excelovog alata za objedinjavanje tabela iz više izvora.

Trebalo bi da je nešto od ovoga:
Merge data from multiple worksheets
Consolidate multiple worksheets into one PivotTable report

Takođe, pogledaj starije teme sa foruma: Spajanje dve tabele u jednu, Sabiranje iz promenljivog broja radnih listova, problem sa vise tabela

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

civi
Petrovic
Beograd

Član broj: 57037
Poruke: 37
194.24.248.*

Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{16.07.2012. u 14:21 - pre 143 meseci}

Hvala na brzom odgovoru,

Opcija mi ne odgovara jer se odnosi na odredjeni broj redova, a kao što sam već napisao imam promenjivi broj redova. Najbliže rešenje (rekao bih) je iz ove teme

Međutim kao što sam i napisao ne znam da programiram u VBA i ne znam prepraviti ovaj kod za moje potrebe pa ako neko zna da mi pomogne.

_{[Edit: tagovi]

deo iz Pravilnika za korisnike:

5.Ne šarenite poruke

7.Ne citirajte bez potrebe

koristite umerene [ quote ] tagove kako biste dali ostalima do znanja

na koji deo teksta se vaš odgovor odnosi, ali NIKAKO nemojte dozvoliti

da citat predstavlja veći deo poruke koju pišete.}

_{[Ovu poruku je menjao 3okc dana 16.07.2012. u 19:40 GMT+1]}

Odgovor na temu

elektroing
elektroing
IT sektor
Podgorica

Član broj: 204397
Poruke: 98
*.crnagora.net.

Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{16.07.2012. u 21:36 - pre 143 meseci}

To bi mozda mogao da odradis linkovanjem celija (=[Book1.xls]Sheet1!$A1).

Prikačeni fajlovi

Book1.xls - 13.5k

Book2.xls - 13.5k

Odgovor na temu

civi
Petrovic
Beograd

Član broj: 57037
Poruke: 37
194.24.248.*

Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{17.07.2012. u 08:29 - pre 143 meseci}

Linkovanje tabela rešava problem ukoliko su tabele sačuvane uvek pod istim imenom i nazivi sheet-ova su uvek isti u suprotnom linkovi "pucaju", ovo sam već probao ali nisam dobio željeni rezultat. Takodje postoji problem ukoliko ima različiti broj tabela za unos te sam i dalje mišljenja da je VBA jedino pravo rešenje koje bi bez obzira na broj tabela mogao da adekvatno popuni master.
Već sam pogledao razna rešenja medjutim problem je nepoznavanje pisanja koda ali ono što znam je da je to za nekoga boza da napiše što bi se reklo u tri reda.

Odgovor na temu

elektroing
elektroing
IT sektor
Podgorica

Član broj: 204397
Poruke: 98
*.crnagora.net.

Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{17.07.2012. u 11:01 - pre 143 meseci}

Obaj kod bi mogao da posluzi, u neku ruku radi posao. Neko ko se bolje razumije u VBA mogao bi da doradi kod.

Code:

Sub copy_files()
    Dim FSO As Object, Folder As Object, file As Object
    Dim copyFrom As Workbook
    Dim wksCopyTo As Worksheet, wksCopyFrom As Worksheet
    Dim rngCopyTo As Range, rngCopyFrom As Range
    Set wksCopyTo = ThisWorkbook.Sheets(1)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder("C:\temp")
    For Each file In Folder.Files
        If LCase(Right(file.Name, 4)) = ".xls Then
            Set copyFrom = Workbooks.Open("C:\temp\" & file.Name)
            Set wksCopyFrom = copyFrom.Sheets(1)
            Set rngCopyFrom = wksCopyFrom.Range("a1")
            Set rngCopyFrom = wksCopyFrom.Range(rngCopyFrom, _
                rngCopyFrom.SpecialCells(xlCellTypeLastCell))
            Set rngCopyTo = wksCopyTo.Range("a1").SpecialCells(xlCellTypeLastCell)
            If rngCopyTo.Address <> wksCopyTo.Range("a1").Address Then
                Set rngCopyTo = wksCopyTo.Cells(rngCopyTo.Row + 1, 1)
            End If
            rngCopyFrom.Copy
            wksCopyTo.Paste rngCopyTo
            Application.CutCopyMode = False
            copyFrom.Close False
        End If
    Next file
End Sub

Odgovor na temu

civi
Petrovic
Beograd

Član broj: 57037
Poruke: 37
194.24.248.*

Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{17.07.2012. u 11:33 - pre 143 meseci}

Hm,

promenio sam putanju i kad pokrenem makro apsolutno se ništa ne dešava

:-(

Odgovor na temu

elektroing
elektroing
IT sektor
Podgorica

Član broj: 204397
Poruke: 98
*.crnagora.net.

Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{17.07.2012. u 12:06 - pre 143 meseci}

evo primjer koj iradi

Prikačeni fajlovi

Book_1.xls - 28k

Odgovor na temu

civi
Petrovic
Beograd

Član broj: 57037
Poruke: 37
194.24.248.*

Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{17.07.2012. u 13:56 - pre 143 meseci}

1. Mislim da je to to što meni treba, ali (kad ne bi bilo ali ne bi bilo to to) kad pokrenem button sheet jedan se automatski popuni samo sa podacima iz jedne tj prve tabele, koliko mogu da zapazim radi copy-paste iz svih tabela ali na kraju ostanu podaci samo iz prve tabele.

2. Kad recim hocu da uradim refresh izbaci grešku kod citanja tabele 3 i trazi debug u koloni:

wksCopyTo.Paste rngCopyTo

Gde sada gresim???

Odgovor na temu

elektroing
elektroing
IT sektor
Podgorica

Član broj: 204397
Poruke: 98
*.crnagora.net.

Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{17.07.2012. u 14:44 - pre 143 meseci}

Sto se tice kopiranja lista to je definisano u liniji
Set wksCopyFrom = copyFrom.Sheets(1)

ako stavis Sheets(2) onda ce kopirati list 2.

Neznam kako prepraviti da stampa svaki list, neko ko se bolje razumije u VBA bi trebalo da prilagodi kod.
Ovaj kod sam pronasao na net tako da ne znam bas kako funkcionise.

Mozda da postavis pitanje u podforum VBA?

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: Ažuriranje jedne tabeli iz više drugih ?

^{24.07.2012. u 14:07 - pre 143 meseci}

Evo odradio sam ti ovo kopiranje podataka iz drugih Excel fajlova u glavnu Excel knjigu, u prilogu je primer.
Prvo je potrebno odraditi pripremu (kliknuti na dugme Priprema) koja kreira spisak svih xls fajlova koji se nalaze u istom folderu gde se nalazi i ova MasterTabela. Zatim kliknuti na dugme Kopiraj. Moze se ovo i spojiti u jednom kodu ako je potrebno.

[email protected]=

Prikačeni fajlovi

Kopiranje_FOX028.rar - 84.15k

Odgovor na temu