Jump to content

Archived

This topic is now archived and is closed to further replies.

JMark

Macro eliminar espacios en blanco y caracter 160

Recommended Posts

Buenas tardes estimados especialistas,

Tengo la siguiente macro para validar IDs, estoy tratando de mejorarla para que cuando se peguen IDs con espacios en blanco y/o caracter 160 (ALT+255) se eliminen y solo se queden los dígitos pero la función que agregue no funciona, por favor si me pudieran indicar que agregar para que funcione u otra forma más efectiva.

Adjunto el ejemplo.

Muchas gracias por su tiempo!.

 

Verificacion.xlsm

Share this post


Link to post
Share on other sites

Partiendo de la base que el ID es un valor numérico:

Function EliminaEspacios(Texto As String) As String
Dim i As Byte
For i = 1 To Len(Texto)
   If IsNumeric(Mid(Texto, i, 1)) Then
      EliminaEspacios = EliminaEspacios & Mid(Texto, i, 1)
   End If
Next i
End Function

 

Share this post


Link to post
Share on other sites

Buenas tardes Sr. Antoni,

Muchas gracias, agregue la función e inserte la siguiente linea para que el momento de presionar el botón VALIDAR aplique la función.

.Cells(i, 1) = WorksheetFunction.EliminaEspacios(.Cells(i, 1))

Sin embargo no lo actualiza., por favor me podría indicar si está correcta la instrucción o que debería cambiar/agregar.

De antemano mucha gracias por su ayuda.

Gracias.

Verificacion.xlsm

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

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