FORMATO HORAS EN COLUMNA DE UNA TABLA

[Benito Bartolomé]

Hola de  nuevo, seguimos con formateos.

En la macro que adjunto al añadir un numero a la columna "E" de mi tabla  "Tabla" a través del evento "Worksheet_Change" de la hoja me lo transforma en formato hora es decir, si pongo 0.5 el formato devuelto es 00:30:00.

Lo que me gustaría saber si el código es del todo correcto o se puede mejorar ¿?

Saludos.

Horas.xlsm

[Antoni]

                Celda = Celda / 24

 

[Benito Bartolomé]

hace 11 horas, Antoni dijo:

                Celda = Celda / 24

 

Hola Antoni, fíjate en el error

No debería afectar solo a la columna E de la tabla¿?

If Not Intersect(Target, Tabla.ListColumns("E").DataBodyRange) Is Nothing Then

Saludos y buen día.

[Antoni]

hace 3 horas, Benito Bartolomé dijo:

Hola Antoni, fíjate en el error

No debería afectar solo a la columna E de la tabla¿?

If Not Intersect(Target, Tabla.ListColumns("E").DataBodyRange) Is Nothing Then

Saludos y buen día.

Tienes mal especificado el rango de la tabla, ListColumns("E") no es correcto, debes especificar el número de columna de la tabla, en este caso 4.

    If Not Intersect(Target, Tabla.ListColumns(4).DataBodyRange) Is Nothing Then

Al utilizar On Error Resume Next, no te has percatado del error.

Te puede servir este enlace: Guía de tablas

[Benito Bartolomé]

hace 43 minutos , Antoni dijo:

Tienes mal especificado el rango de la tabla, ListColumns("E") no es correcto, debes especificar el número de columna de la tabla, en este caso 4.

    If Not Intersect(Target, Tabla.ListColumns(4).DataBodyRange) Is Nothing Then

Al utilizar On Error Resume Next, no te has percatado del error.

Te puede servir este enlace: Guía de tablas

Gracias por la aclaración Antoni. Saludos 👍

[Benito Bartolomé]

hace 20 horas, Antoni dijo:

Tienes mal especificado el rango de la tabla, ListColumns("E") no es correcto, debes especificar el número de columna de la tabla, en este caso 4.

    If Not Intersect(Target, Tabla.ListColumns(4).DataBodyRange) Is Nothing Then

Al utilizar On Error Resume Next, no te has percatado del error.

Te puede servir este enlace: Guía de tablas

Hola Antoni y disculpa que te moleste nuevamente.

En la misma macro he añadido un procedimiento para copiar y pegar resultados en otra hoja y después de hacer esto hago la llamada a otro procedimiento para que me borre el contenido de ciertas columnas de la tabla. Lo borra pero me cambia el formato y me pone "0" y no se el porqué?

Saludos.

 

Horas.xlsm