Ayuda con Contador

[IronSpirit]

Cordial saluo pra todos

Agradezco quien me pueda ayudar con lo siguiente

Trabajo para una empresa de transporte donde toca contar los viajes de los vehiculos y ahi que generar notas en una...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

.
Te dejo esta función que hace lo que pides, ponla en un módulo:

Function VIAJES(ByVal Celda As Range) As Long
   VIAJES = (Evaluate("=" & Celda) * -1) + 1
End Function

En tu...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[IronSpirit]

Antoni, muchas gracias por responder...me ha encantado tu funcion pero perdoname se me olvidó una cosa...
si en A1 pongo 1-5 en B1 me cuenta los viajes osea 5 pero en A1 tambien neccesitaria que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

.
Prueba así:

Function VIAJES(ByVal Celda As Range) As Long
   If Trim(Celda) = Empty Then Exit Function
   If IsNumeric(Celda) = True Then VIAJES = CLng(Celda)
   If VIAJES = 0 Then VIAJES...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[IronSpirit]

Gracias por tu ayuda, muy valiosa!!!