Centar za edukaciju-BiH

Predmet:preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a

---

Ponovo imam problem sa preuzimanjem djela podataka iz jedne excel tabele u odgovarajuća polja u drugoj tabeli. meže li se to pisanjem vb-a. Tabela u koju hoću da preuzmem podatke je tepmlet i podaci u njoj se mjenjaju dva puta dnevno (sada copiranjem, i preuređivaljem poslije copiranja). želio bih kada otvorim templat da on pokupi te podatke i smjesti ih u odgovarajuća polja.
Tri dana tražim po helpu kako da preuzmem podatke iz neke tabele ali samo sam našao kako iz otvorene da prebacim podatke u novi sheet u istoj, svi moji pokušaji da uzmem podatke iz druge tabele nisu uspjeli.

---

Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a

---

Pa zakaci to sto si poceo pa cemo popraviti ako imas.
Ako ne onda cemo od pocetka.

---

Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a

---

Malo si reko.
valjda ce valjat.
Otvori form tulbar i stavi jedan komandni taster i na on klik ovo.
Mozes staviti i na nesto drugo ako hoces.

---

Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a

---

Ovo je super, RADI bez greške. Hvala puno. Baš što je trebalo

---

Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a

---

Ja sam siguran da se tu moze nesto kvalitetnije napraviti dok kazes da uporedjujes podatke ali neznam kako to radi.
Sto nebi racunar uporedjivao podatke on to radi bolje od nas.

---

Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a

---

Evo ja sam joÅ¡ dodao u ovu tvoju proceduru i ovo gdje vrijednosimamijema boju i boldira ih ako su veće od 0, e sad ima jedan mali probrem, a neznam dali tako treba. ova varijabla R kada radi petla pokazuje vrijednosti veće od zadanog renge-a "G58", a kada gledam SHEET uredo su selectovane zadane vrjednosti. Neznam jeli to ok jer kod pozvanja dosta dugo vrti...
Sub Button1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim Sit As Object, celija As Object
Dim brojac As Integer, i As Integer
Dim R As String, slovo As String
Dim a
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\nostro_acc_balances.XLS") 'Putanja do tog tvog fajla iz kog trebas podatke
'xlApp.Visible = True
xlBook.Sheets(1).Range("Q1:T57").Copy ' odakle dokle trebas kopirati nadam se iz shhet 1
xlApp.DisplayAlerts = False
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Set xlBook = ActiveWorkbook
Set Sit = xlBook.Sheets("nostro_acc_balances") ' Ime sita u postojecem exelu ili broj moze
Sit.Activate
Range("D2").Select
Sit.Paste
[color=#FF3300]Sit.Range("D2:G58").Activate
For Each celija In Sit.Cells
R = celija.Address
If IsNumeric(celija.Value) = True Or IsEmpty(celija.Value) = True Then
If celija.Value > 0 Then
celija.Font.Bold = True
celija.Font.Color = 255
Else
celija.Font.Bold = False
celija.Font.Color = 0
End If
End If
Next celija
Sit.Range("D2:G58").NumberFormat = "0.00"
End Sub[/code]

---

Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a

---

evo malo sam ovo prepravio sada mislim da radi ok.

---