Jump to content
aaquino

Macro para validación de datos con números

Recommended Posts

Buenos días, tardes, noches compañeros

Hoy vengo con una duda que no he podido encontrar solución, en internet o en el foro.

La consulta es la siguiente: estoy tratando de realizar una macro para insertar de manera automática una "Validación de datos con lista desplegable", con números enteros, la macro que he hecho, basándome en lo que he encontrado en internet y en mi poco expertís es la siguiente:

With ActiveWorkbook
    With .ActiveSheet		
		For iCo = 1 To 9
            lCodigoEF = lCodigoEF & "," & CStr(iCo)
        Next iCo
        
        With .Range("C2:C1000").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
                Formula1:=CStr(lCodigoEF)
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
        End With
	End With
End With

La cuestión está en que al momento de ejecutar la macro, lo que consigo es que en la lista desplegable me coloque el número "123456789", y lo que yo necesito es que se muestre una lista desplegable del 1 al 9.

Por lo anterior, recurro a ustedes para que me ayuden a identificar cuál es el error y cómo solucionarlo.

Quedo atento a su amable ayuda.

Muestra AE.xlsm

Share this post


Link to post
Share on other sites

Hola @Antoni gracias, ya encontré la solución, ya que a mí me sigue dando el mismo resultado, una lista desplegable con el valor "123456789".

La solución que encontré fue en definir la variable lCodigoEF como "String"

Pueden cerrar el tema.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png