Validación de fechas con hojas de Microsoft Excel
Hola amigo!
Tengo una duda habrá una función en visual para convertir de letras a números lo que pasa es que estoy realizando una validación de fechas con hojas de excel .
Ejemplo:
='K:\Subdireccion de Operacion\PROGRAMACION DE LA PRODUCCION\GPP\Reportes\COSOLEACAQUE\MARZO\[BALANCE 030309.xls]Reporte'!$D$36
Lo que está en negritas es lo que valida, solo que la fecha está en números.
Ejemplo:
Selection.Replace What:="[MORELOS_MARZO_2009_" & Format(fecha1, "dd"), Replacement:="[MORELOS_MARZO_2009_ " & Format(fecha2, "dd"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Y en este caso el mes está en letras y tiene guiones por lo consiguiente no me valida nada .
La pregunta es que que si habrá una función para poder cambiar el mes a números.
Espero que me pueden ayudar.
Saludos
Tengo una duda habrá una función en visual para convertir de letras a números lo que pasa es que estoy realizando una validación de fechas con hojas de excel .
Ejemplo:
='K:\Subdireccion de Operacion\PROGRAMACION DE LA PRODUCCION\GPP\Reportes\COSOLEACAQUE\MARZO\[BALANCE 030309.xls]Reporte'!$D$36
Lo que está en negritas es lo que valida, solo que la fecha está en números.
Ejemplo:
Selection.Replace What:="[MORELOS_MARZO_2009_" & Format(fecha1, "dd"), Replacement:="[MORELOS_MARZO_2009_ " & Format(fecha2, "dd"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Y en este caso el mes está en letras y tiene guiones por lo consiguiente no me valida nada .
La pregunta es que que si habrá una función para poder cambiar el mes a números.
Espero que me pueden ayudar.
Saludos
1 Respuesta
Respuesta
1
Pues NO conozco nada que haga esto que vos decís, lo único que se me ocurre es que te hagas una "funcioncita" que le ingreses el mes (en letras) y te devuelva el mes (en números), algo del estilo
Funcion MesaNumero(queMes as string) as Integer
Select Case queMes
case "Enero"
MesaNumero = 1
Case "Febrero"
MesaNumero = 2
...
End Function
Funcion MesaNumero(queMes as string) as Integer
Select Case queMes
case "Enero"
MesaNumero = 1
Case "Febrero"
MesaNumero = 2
...
End Function
Hola
Muchas gracias por tu respuesta
Ya encontré la solución
Selection.Replace What:="[MORELOS_MARZO_2009_" & Format(fecha1, "dd"), Replacement:="[MORELOS_MARZO_2009_ " & Format(fecha2, "dd"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Tuve que realizar unos cambios
Más específicos para encontrarlo
Gracia por turespuestaaaaa
Muchas gracias por tu respuesta
Ya encontré la solución
Selection.Replace What:="[MORELOS_MARZO_2009_" & Format(fecha1, "dd"), Replacement:="[MORELOS_MARZO_2009_ " & Format(fecha2, "dd"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Tuve que realizar unos cambios
Más específicos para encontrarlo
Gracia por turespuestaaaaa