[ icafila @ 04.02.2005. 17:33 ] @
kako da u napravljenoj bazi (tabeli) iz odredjene celije (npr. red.broj 1) pozovem podatke iz unapred pripremljenog spiska iz druge excel baze tako da u tom redu pored rednog broja (u tabeli) stoje i ostali podaci iz te druge baze?
Primer:
1.

1. / mleko / litar / 1 / 22.00 /




[ JogyII @ 04.02.2005. 20:07 ] @
funkcija koja ti treba je LOOKUP(), a primer koriscenja je u attachment-u
[ icafila @ 04.02.2005. 21:30 ] @
To mi je trebalo! Hvala!
[ tasman_76_82 @ 15.10.2006. 20:31 ] @
E, opet ja..
Evo jos jednog pitanja..
Recimo u celiji A5, unesem nesto, bilo sta, recimo, "pozdrav" i kada to unesem automatski mi se to sto sam unela kopira u drugi excelbook i odredjeni sheet. To sam napravila, Ali?! Kako da mi to ostane zapamceno tamo gde se iskopiralo.. odnosno kada to polje A5 izbrisem i unesem nesto drugo, mi se ne brise i to sto mi se iskopiralo, vec da mi se taj novi unos u A5 pamti opet u nekom odredjenom sheetu i celiji...
[ Zidar @ 16.10.2006. 16:45 ] @
To sto hoces moze u Excelu, ali nije lako. Za sve sto u excelu nije lako, pretpostavljam da postoji MS Excel forum. Ovde ce ti ljudi verovatno reci 'batali Excel, predji na neku bazu podataka' sto na zalost nece resiti tvioj problem u blizoj buducnosti.
[ Jpeca @ 17.10.2006. 10:07 ] @
Mnoge stvari nisu jasne:
Kako si realizovala kopiranje?
Koji je to odredjeni list ?
Da li je odredišna tabela otvorena ili ne?
Da li je odaredišna tablea uvek ista?

Uz neminovne pretpostavke, evo kako sam ja to zamislio:
Napravi makro koji prepisuje vrednost ćelije A5 u tabelu MyBook, prvi list, prva prazna ćelija kolone A.

Code:

Sub Prenesi()
' Kopiranje sadrzaja celije u prvu praznu celiju
' u drugoj tabeli
'
' P.Jovanovic 17/10/2006

Dim Dest As Range
Dim Source As Range
Dim wbk As Workbook

Set Source = ActiveSheet.Range("A5") ' Ovde se moze promeniti odakle se kopira
Set wbk = Workbooks.Open("C:\MyBook.xls")
'Nalazi prvu praznu celiju u koloni A
rw = wbk.Sheets(1).Range("A65536").End(xlUp).Row + 1 
 '  Ovde se moze promeniti gde se kopira
Set Dest = wbk.Sheets(1).Cells(rw, 1)   
Dest.Value = Source.Text
wbk.Close SaveChanges:=True  ' Zatvara tabelu bez snimanja
End Sub


Sad makrou možeš da dodeliš prečicu sa tastature, pa nakon izmene ćelije startuješ makro. Veći stepen automatike (ali uz neminovne rizike) dobija se ako na presretneš događaj Change na listu na kome se unosi vrednost i startuješ ovo prepisivanje kod svake promene ćelije A5

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
' Pokrece prepisivanje automatski kod izmene celije A5
'
On Error Resume Next

' Opseg u kome funkcioniše unos
Set unos = Range("A5")
Set isect = Application.Intersect(Target, unos)
If Not (isect Is Nothing) Then
    Prenesi
End If
End Sub




[Ovu poruku je menjao Jpeca dana 27.10.2006. u 14:27 GMT+1]
[ tasman_76_82 @ 26.10.2006. 20:11 ] @
Hvala ti puno, pomoglo mi je....