Prikazi cijelu temu 09.03.2017 21:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: IsNumeric provjeriti dali je celija broj
Evo i moja
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Provjera()
  2.     Dim red As Long
  3.     Dim tmp
  4.     Dim Dat As Date
  5.  
  6.     For red = 2 To Cells(Rows.Count, "A").End(xlUp).Row
  7.     tmp = Range("A" & red).Value
  8.     On Error Resume Next
  9.     Dat = tmp
  10.         If Err.Number = 0 Then
  11.         Cells(red, 2) = "vrijeme"
  12.         Else
  13.         Cells(red, 2) = "nije vrijeme"
  14.         End If
  15.         Err.Number = 0
  16.     Next red
  17. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.