Código ¿Para convertir con una macro valores de hora que están en texto a numérico?

Hola buen día!

Dia a dia genero un reporte de un sistema que me arroja datos de hora con formato de texto y para poder trabajar con formulas, requiero cambiar esos datos a valores numéricos, encontré el siguiente código pero es muy lento el proceso ya que la cantidad de celdas va en aumento cada dia y el proceso se torna largo. Cabe señalar que este proceso lo debo de realizar en 22 columnas del mismo archivo.

Sub macro1()
Dim Rango As Range, Cadacelda As Variant
Set Rango = Range("T2:T1000")
For Each Cadacelda In Rango
Cadacelda.FormulaLocal = Cadacelda.FormulaLocal
Next
End Sub

Las preguntas son:

- Se puede hacer que el rango se vuelva dinámico para que al pasar los días vaya tomando todas las filas que se agregan?

- Se puede modificar para que al terminar con una columna pase a la siguiente?

Nota: mis datos empiezan en la columna "S" y terminan en la columna "AN"

Saludos

Luis Garcia

Añade tu respuesta

Haz clic para o