Prikazi cijelu temu 16.12.2011 15:14
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Lokacija:Sarajevo


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):
  1.  Sit.Range("D2:G58").Activate
  2.     For Each celija In Sit.Cells.Range("D2:G58")
  3.     R = celija.Address
  4.     If IsNumeric(celija.Value) = True Then
  5.     If celija.Value > 0 Then
  6.        celija.Font.Bold = True
  7.        celija.Font.Color = 255
  8.     Else
  9.       celija.Font.Bold = False
  10.       celija.Font.Color = 0
  11.     End If
  12.     End If
  13.     Next celija
  14.     Sit.Range("D2:G58").NumberFormat = "0.00"
Pozdav,

Nedim