Evaluar contenido en celda

19/01/2009 - 16:47 por Pepito | Informe spam

Hola Foro:

Tengo la siguiente macro que me calcula el numero de dias en columna,
a partir de una celda ocupada, cuando el contenido la celda es de
fecha calcula los dias y escribe en la colunma siguiente , pero si es
cualquier otro formato se detiene y no realiza ninguna accion.

Habra alguna modificacion a esta macro,en caso no tener de formato de
fecha, simplementete se prosiguiera con el bucle hasta evaluar la
ultima celda.

Sub Calculodias()
On Error GoTo salir
actual = Now
ActiveCell.Select

While ActiveCell.Value <> ""
registro = ActiveCell.Value
distancia = actual - registro
ActiveCell.Offset(0, 1).Value = distancia
ActiveCell.Offset(1, 0).Select
Wend
salir:
End sub

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Héctor Miguel

19/01/2009 - 22:18 | Informe spam

hola, jose !

Tengo la siguiente macro que me calcula el numero de dias en columna, a partir de una celda ocupada
cuando el contenido la celda es de fecha calcula los dias y escribe en la colunma siguiente
pero si es cualquier otro formato se detiene y no realiza ninguna accion.
Habra alguna modificacion a esta macro,en caso no tener de formato de fecha
simplementete se prosiguiera con el bucle hasta evaluar la ultima celda...

- en el codigo que expones no se ve "como" se comprueba algun formato de fecha
(solo comprueba que la celda no este vacia)

- (probablemente) el error salte cuando no se pueda "operar" (aritmeticamente) p.e. con textos ?

- en ese caso, prueba a omitir los errores sustituyendo la clausula On Error Goto...
por una instruccion On Error Resume Next

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto _

Sub Calculodias()
On Error GoTo salir
actual = Now
ActiveCell.Select

While ActiveCell.Value <> ""
registro = ActiveCell.Value
distancia = actual - registro
ActiveCell.Offset(0, 1).Value = distancia
ActiveCell.Offset(1, 0).Select
Wend
salir:
End sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida