Centar za edukaciju-BiH

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

---

evo malo sam ovo prepravio sada mislim da radi ok.

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

---

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

---

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

---

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

---

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

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.