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]
Pozdav,
Nedim
Ovaj post je ureden
2
puta. Posljednja izmjena 16.12.2011 14:00 od strane nzuko.