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