[ srdjan_kg @ 10.11.2014. 18:55 ] @
Da li postoji mogucnost da odredjena polja iz jednog excel fajla npr. A2, G6. H8 prebacim u drugi excel fajl koji ce se azurirati na svaki klik u drugog excel fajla i unositi u nove redove trazene podatke

Zahvalan unapred...
[ 2012 @ 12.11.2014. 14:35 ] @
Moze, svakako. Mozes bilo kojom funkcijom koja sluzi za uzimanje podataka (vlookup, hlookup, match i da ne nabrajam) samo u delu gde pises odakle podatak treba uzeti napises ceo naziv linka
pr: = vlookup(sta trazis, odakle ovde pises, prvo gde se dokument nalazi, kako je ime dokumenta, na kojoj strani je trazeni podatak , onda lokaciju celije i False na kraju.

Podatak/podaci se mogu povlaciti i iz zatvorenog excel fajla.
[ srdjan_kg @ 13.11.2014. 16:58 ] @
DA LI OVO MOZE DA SE PREPRAVI U SMISLU DA SHEET "BAZA" BUDE U DRUGOM FAJLU,
A DA SHEET SPECIFIKACIJA BUDE U PRVOM FAJLU U KOJEM UNOSIM NEKE PODATKE
KOJE NAKON NPR. SNIMANJA PRVOG FAJLA PREBACUJE TE PODATKE U NOVI RED DRUGOG FAJLA SHEET "BAZA"


Dim rw As Long
Dim cl As Integer
Dim Dest As Range

'Postavlja prvu kolonu za upis
cl = 1 ' A kolona
'Nalazi prvi prazni red u koloni A
rw = ActiveWorkbook.Sheets("BAZA").Cells(65535, cl).End(xlUp).Row + 1
' Ovde se moze promeniti gde se kopira
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl) ' Gde je Dest1
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("J1") ' Upis prve vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 1) ' Gde je Dest2
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("H3") ' Upis druge vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 2) ' Gde je Dest3
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("A9") ' Upis trece vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 3) ' Gde je Dest4
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("F6") ' Upis cetvrte vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 4) ' Gde je Dest5
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("H5") ' Upis pete vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 5) ' Gde je Dest6
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("J4") ' Upis seste vrednosti
Set Dest = ActiveWorkbook.Sheets("BAZA").Cells(rw, cl + 6) ' Gde je Dest7
Dest.Value = ActiveWorkbook.Sheets("Specifikacija").Range("I28")
[ 2012 @ 13.11.2014. 18:14 ] @
@srdjan_kg

Nemoj koristiti Caps Lock (velika slova) pri kucanju, to se podrazumeva da vices.

Evo ti nekoliko linkova gde mozes pronaci dosta toga o povezivanja podataka iz razlicitih radnih knjiga

Link 1
link 2
link 3
link 4
link 5
[ srdjan_kg @ 13.11.2014. 18:49 ] @
izvini, nisam znao za velika slova da imaju takva znacenja...

hvala puno na korisnim informacijama, u medjuvremenu sam nasao
resenje mog problema koji se nalazi na sledecem linku

LINK

ako nekome zatreba