Új hozzászólás Aktív témák

• #23867 m.zmrzlina senior tag Delila_1 #23866

  Új Válasz 2014-10-22 13:50:45 #23867

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz Delila_1 #23866 üzenetére

  

  Én úgy értelmeztem, hogy littleNorbi-nak a C oszlopban lévő adatokra van szüksége. Ha így van akkor ez a fv kell: (Isten bocsássa meg nekem amit tettem )

  Function CsakSzam(cella As Range)
  Dim betu As Integer, szam As Integer
  
  If IsNumeric(cella) Then
  CsakSzam = cella
  Exit Function
  End If
  
  For betu = 1 To Len(cella)
  If IsNumeric(Mid(cella, betu, 1)) Then
  szam = szam & Mid(cella, betu, 1)
  'ElseIf Mid(cella, betu, 1) = "/" And IsNumeric(Mid(cella, betu + 1, 1)) Then
  ElseIf Mid(cella, betu, 1) = "/" Or Mid(cella, betu, 1) = "-" Then
  'CsakSzam = cella
  CsakSzam = Left(cella, betu - 1) * 1
  Exit Function
  Else
  CsakSzam = szam * 1
  End If
  Next
  End Function

Új hozzászólás Aktív témák