Corrección en Fórmula que ajusta fechas...
fejoal
Buenos Dias fejoal, hace algunos dias atras me habias dado una formula que corrige fechas...
No se si coloque bien todos los datos, o si faltan datos, pero, al importar un archivo txt me hace los procesos correctamente...
Pero al colocarle que me corriga (O que revise más bien) las fechas de la base de datos, me cambia el mes por el día, y en dos líneas con la misma fecha, una me coloca "mm/dd" y en la otra "dd/mm".
En la celda "G4" coloque la formula "=HOY()".
La formula la modifique algunos puntos, asi quedo la formula que uso:
Set h2 = Workbooks("renatea").Worksheets("" & h1.Range("B" & b) & "")
Columnados = 5
Columnauno = 4
'---- fin Variables
MesAnA = IIf(IsDate(CeldaMes), Month(CeldaMes), CeldaMes)
Rehacer:
For a = 3 To Application.WorksheetFunction.CountA(h2.Range("A:A"))
Set LaCelda = h2.Cells(a, Columnauno)
If LaCelda <> "" Then
LaCelda.ClearFormats
LaFecha = LaCelda.Value
If IsNumeric(LaFecha) Then
If Month(LaFecha) <> MesAnA Then
LaFecha = CDate(Month(LaFecha) & "/" & Day(LaFecha) & "/" & Year(LaFecha))
Colorin = 38
End If
Else
LaFecha = CDate(Mid(LaFecha, 1, 2) & "/" & Mid(LaFecha, 4, 2) & "/" & Right(LaFecha, 2))
Colorin = 37
End If
LaCelda.Value = LaFecha
If Colorin <> Empty Then LaCelda.Interior.ColorIndex = Colorin
LaCelda.NumberFormat = "dd/mm/yyyy"
Colorin = Empty
End If
Next a
If Columnauno <> Columnados Then
Columnauno = Columnados
If Columnauno <> "" Then GoTo Rehacer
End If
Set LaCelda = Nothing
