Validiacion de fechas
Hola todo experto tengo una duda
Quisiera poner un if en una condición pero no c como
mi código esta así
esta parte del código solicito 2 fechas, una para que fecha deseo sustituir y por cual
fecha1 = InputBox("Fecha que desea sustituir?", "ORIGEN", Now())
If fecha1 = Empty Then Exit Sub 'mejorar con revisión validez fecha
fecha2 = InputBox("Fecha nueva?", "DESTINO", Now())
If fecha2 = Empty Then Exit Sub
En esta parte del código quiero poner la condición de que si la fecha no c encuentra me mande un mensaje de que no c encontró
On Error Resume Next
Application.DisplayAlerts = False
MsgBox ("La Fecha que desea actualizar no se encontro")
En esta parte de arriba es no c como poner un if de que si la fecha es incorrecta me mande lo de arriba que no c encontró la fecha
Esta parte de abajo del código es donde hace los reemplazos... Tengo 5 de estos
nada más cambia donce dice BALANCE... Por servicios... Ayuda... Apoyo nadmas cambia ese nombre lo demás es el mismo
espero me puedas ayudar
gracias!
Selection.Replace What:="[BALANCE " & Format(fecha1, "ddmmyy"), Replacement:="[BALANCE " & Format(fecha2, "ddmmyy"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Quisiera poner un if en una condición pero no c como
mi código esta así
esta parte del código solicito 2 fechas, una para que fecha deseo sustituir y por cual
fecha1 = InputBox("Fecha que desea sustituir?", "ORIGEN", Now())
If fecha1 = Empty Then Exit Sub 'mejorar con revisión validez fecha
fecha2 = InputBox("Fecha nueva?", "DESTINO", Now())
If fecha2 = Empty Then Exit Sub
En esta parte del código quiero poner la condición de que si la fecha no c encuentra me mande un mensaje de que no c encontró
On Error Resume Next
Application.DisplayAlerts = False
MsgBox ("La Fecha que desea actualizar no se encontro")
En esta parte de arriba es no c como poner un if de que si la fecha es incorrecta me mande lo de arriba que no c encontró la fecha
Esta parte de abajo del código es donde hace los reemplazos... Tengo 5 de estos
nada más cambia donce dice BALANCE... Por servicios... Ayuda... Apoyo nadmas cambia ese nombre lo demás es el mismo
espero me puedas ayudar
gracias!
Selection.Replace What:="[BALANCE " & Format(fecha1, "ddmmyy"), Replacement:="[BALANCE " & Format(fecha2, "ddmmyy"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
1 respuesta
Respuesta
1
Sub Macro4()
Sub Macro1()
x = InputBox("Clave")
If Application.CountIf(Range("a:a"), x) Then
MsgBox ("No es posible,esa clave ya existe en la BASE de DATOS")
Else
Range("a65536").End(xlUp).Offset(1, 0).Select
i = ActiveCell.Row
Range("a" & i).Value = x
End If
End Sub
Este Código es para validar Num repetidos
Adáptalo, a tu necesidades
Sub Macro1()
x = InputBox("Clave")
If Application.CountIf(Range("a:a"), x) Then
MsgBox ("No es posible,esa clave ya existe en la BASE de DATOS")
Else
Range("a65536").End(xlUp).Offset(1, 0).Select
i = ActiveCell.Row
Range("a" & i).Value = x
End If
End Sub
Este Código es para validar Num repetidos
Adáptalo, a tu necesidades
olaaa experto
Es sobre si no encuentro una fecha
Es que cuando no esta la fecha me manda ventanas de actualización
Y quiero poner un msgbox de que si no encuentra la fecha
No se realize el remplazo
Espero me puedas ayudar
Es sobre si no encuentro una fecha
Es que cuando no esta la fecha me manda ventanas de actualización
Y quiero poner un msgbox de que si no encuentra la fecha
No se realize el remplazo
Espero me puedas ayudar
Sepuede con ese coduo nadamas cambiale los parametros...