Error en validacion con macro

07/02/2008 - 16:22 por nelson | Informe spam
Hola,

Hace unos dias me ayudaron para validar un celda y funciono, ahora
quisiera aplicar la
validacion a cualquier celda o en una especifica mediante codigo, he
intentado con ...en office 2000 y 2003


Sub ValidaCelda()

Range("D6").Select ' no funciona
' ActiveCell.Select ' no funciona

With Selection.Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop,
Operator:= _ en esta
xlBetween,
Formula1:="=Y(LARGO(D6)=9,ESNUMERO(D6))" sale
error
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Error"
.InputMessage = _
"Digite el NUMERO sin puntos ni comas"
.ErrorMessage = "El NUMERO contiene información errónea !!
VERIFIQUE ¡¡"
.ShowInput = True
.ShowError = True
End With
End Sub

En la linea de codigo donde aplica la validacion personalizada sale
error

Agradezco su colaboracion, infinitas gracias


Nelsonb

Preguntas similare

Leer las respuestas

#1 Juan M
07/02/2008 - 17:23 | Informe spam
Hola Nelson,

Prueba con la formula en versión inglesa

Formula1:="=AND(LEN(D6)=9,ISNUMBER(D6))"

o esta otra que sería un poco más general,

Formula1:="=AND(LEN(" & Selection.Address & ")=9,ISNUMBER(" &
Selection.Address & "))"

un saludo,
Juan
Respuesta Responder a este mensaje
#2 nelson
07/02/2008 - 20:52 | Informe spam
Hola Juan

ok Muchas gracias, la solucion estaba tan cerca, que no la veia

Gracias

Nelsonb




On 7 feb, 11:23, "Juan M" wrote:
Hola Nelson,

Prueba con la formula en versión inglesa

Formula1:="=AND(LEN(D6)=9,ISNUMBER(D6))"

o esta otra que sería un poco más general,

Formula1:="=AND(LEN(" & Selection.Address & ")=9,ISNUMBER(" &
Selection.Address & "))"

un saludo,
Juan
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida