Macro za kopiranje podataka iz jednog Worksheeta u drugi

[ snenad_82 @ 22.11.2016. 13:02 ] @

Potreban mi je macro za kopiranje podataka iz jedne tabele u drugu. Snimanje macroa ne pomaže jer ne pamti adresu izvorne tabele.
Da pojasnim na primeru potreban mi je macro koji će vrednosti iz kolona B, C, D, E, F... tabele Izvor kopirati u tabeli Proba na odgovarajućem mestu. Probao sam na googlu da se snađem ali pošto od programiranja ne znam ni celo p teško ide.
Tabele bi se uvek nalazile u istom folderu i bilo bi odlično ako bi se mogle koristiti relativne putanje

https://www.dropbox.com/s/x87gzpowzrpme4r/Izvor.xlsx?dl=0
https://www.dropbox.com/s/ly7at56nq8tpxje/Proba.xlsm?dl=0

[ jaskojsako @ 24.11.2016. 15:19 ] @

pozdrav
da li bi se dodavali novi podaci u tabeli izvor i gdje bi se nalazila tabela Proba,njezina putanja,da li na lokalnom disku ili ...

[ snenad_82 @ 24.11.2016. 16:18 ] @

Ovo su naravno samo primeri. Tabela Izvor bi imali fixni broj redova i kolona. Obe tabele bih držao u istom folderu na hdd-u.
Za sad imam samo glupo rešenje da macroom unesem u potrebne ćelije tabele formulu kojom linkujem dve tabele i onda copy istih, pa paste special values da ostanu vrednosti.

[ jaskojsako @ 24.11.2016. 21:39 ] @

poz evo jedan kod
pa probaj u svome primjeru prilagoditi

Dim wbCopy As Workbook
Dim wsCopy As Worksheet
Dim rngCopy As Range
Dim wbPaste As Workbook
Dim wsPaste As Worksheet
Dim rngPaste As Range

Set wbCopy = Workbooks.Open("C:\vasnaziv.xls") 'change path
Set wsCopy = wbCopy.Worksheets("baza")
Set rngCopy = wsCopy.Range("a:e").EntireColumn 'sta kopirati
Set wbPaste = Workbooks.Open("C:\vasnaziv2.xls.xls")
Set wsPaste = wbPaste.Worksheets("baza") 'kopira na drugi list?
Set rngPaste = wsPaste.Range("a1") 'zamjeni ako treba

rngCopy.Copy
rngPaste.PasteSpecial

Application.DisplayAlerts = False

wbCopy.Close

Application.DisplayAlerts = False
wbPaste.Save
wbPaste.Close

MsgBox "Uspješno ste kopirali podatke", vbInformation, "c0de"

[ snenad_82 @ 28.11.2016. 07:39 ] @

jaskojsako hvala na pomoći, nažalost nisam uspeo da prepravim kod da proradi na mom primeru. Ako Vama ili nekom drugom sa znanjem programiranja nije problem da prilagodi kod mom primeru bio bih zahvalan.

[ Ivek33 @ 30.11.2016. 18:55 ] @

Dok ti @jasko ne prepravi VBA kod, pogledaj može li ti pomoći ovaj način koji je osmislio RonDeBruin.
Vidi prilog

[ snenad_82 @ 01.12.2016. 06:10 ] @

Hvala Ivek33 testiraću danas

Edit:
Testirao, kod je odličan, super jednostavan i mali ali ima jednu manu. Ne radi pod Excelom 2016. Probao u 2007 i radi odlično. Ima li neko ideju kako to prevazići tj. prilagoditi ga da proradi.

_{[Ovu poruku je menjao snenad_82 dana 01.12.2016. u 11:38 GMT+1]}