Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Macro za kopiranje podataka iz jednog Worksheeta u drugi

  • 6 odgovora
  • 4.019 pregleda

Najnovija ↓

Macro za kopiranje podataka iz jednog Worksheeta u drugi 22.11.2016. u 14:02 · pre 121 mesec #1
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
Re: Macro za kopiranje podataka iz jednog Worksheeta u drugi 24.11.2016. u 17:18 · pre 120 meseci #3
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.
Re: Macro za kopiranje podataka iz jednog Worksheeta u drugi 24.11.2016. u 22:39 · pre 120 meseci #4
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"
Potpis
Jasmin
Re: Macro za kopiranje podataka iz jednog Worksheeta u drugi 28.11.2016. u 08:39 · pre 120 meseci #5
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.
Re: Macro za kopiranje podataka iz jednog Worksheeta u drugi 01.12.2016. u 07:10 · pre 120 meseci
izmenjeno 1 put, poslednji put snenad_82 01.12.2016. u 11:38
  1. snenad_8201.12.2016. u 11:38zapis iz teksta poruke
#7
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.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme