Error de validación de datos y de formato de fecha

[Antonio8688]

Hola a todos. Se me ha presentado un curioso caso con validación de datos y con el formato de fecha que aplico en una tabla de Excel. Resulta que tengo una tabla de Excel en la cual, en la columna...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Hola

Las imágenes en estos casos jamás valen más que mil palabras. Adjunta tu archivo con al menos una parte de los datos, sobre todo con aquellos del problema. Si tienes datos que consideras...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ServandoV]

Hola Antonio y Abraham.

Ya te lo comentó Abraham, una imagen no nos sirve y todo lo que podamos hacer por ayudarte será por imaginación.
Lo único que puedo observar, es que lo que tienes en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Antonio8688]

Hola

Las imágenes en estos casos jamás valen más que mil palabras. Adjunta tu archivo con al menos una parte de los datos, sobre todo con...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Hola

Por eso la importancia del archivo. En el módulo de tu hoja tienes esto:

    If .Column > 1 And .Column <= 10 Then

Cámbialo por esto:

    If .Column > 1 And...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

También valdría:

If Not Intersect(Target, Range("C:D,H:I")) Is Nothing Then

 

[Antonio8688]

Hola

Por eso la importancia del archivo. En el módulo de tu hoja tienes esto:

    If .Column > 1 And .Column <= 10 Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Antonio8688]

También valdría:

If Not Intersect(Target, Range("C:D,H:I")) Is Nothing Then

Excelente, Maestro, muchas gracias.