Predmet:Re: preuzimanje podataka iz jednog exel file-a u drugi putem VBE-a
evo malo sam ovo prepravio sada mislim da radi ok.
PreuzmiIzvorni kôd (Visual Basic): Sit.Range("D2:G58").Activate
For Each celija In Sit.Cells.Range("D2:G58")
R = celija.Address
If IsNumeric(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"
Pozdav,
Nedim