- Código: Seleccionar todo
Sub QuitarNros()
Dim Celda As Range, Nro As String, i As Integer, Numeros As String
Numeros = "0123456789"
For Each Celda In Selection
If Not Celda.HasFormula Then
For i = 1 To Len(Celda.Text)
If IsNumeric(Mid(Celda.Text, i, 1)) Then Nro = Nro & Mid(Celda.Text, i, 1)
Next i
[b]If Not Nro = "" Then Celda = Nro[/b] ' Modificación respecto a lo solicitado
Nro = ""
End If
Next Celda
End Sub
Deja Solo Números
Reglas del Foro
Este foro no es para hacer preguntas!
Este foro solo es para que aportes algo de interés para la comunidad.
(para preguntas vuelve al índice y busca los foros de "Tus Preguntas a la Comunidad")
Este foro no es para hacer preguntas!
Este foro solo es para que aportes algo de interés para la comunidad.
(para preguntas vuelve al índice y busca los foros de "Tus Preguntas a la Comunidad")
Compartir en:
3 mensajes
• Página 1 de 1
Deja Solo Números
por Adrian » 14 Dic 2011 10:43
Hola, esta macro basada en un requerimiento; deja solo números:
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
Adrian - Moderator
- Registrado: 13 Jun 2004 17:24
- Ubicación: Chamical La Rioja ARG
Re: Deja Solo Números
por yonigrinwod » 27 Ene 2012 18:51
buen dia
me pone error en esta parte ya que lo pone en amarillo
If Not Nro = "" Then Celda = Nro ' Modificación respecto a lo solicitado
me pone error en esta parte ya que lo pone en amarillo
If Not Nro = "" Then Celda = Nro ' Modificación respecto a lo solicitado
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- yonigrinwod
- Miembro Frecuente
- Registrado: 23 Jun 2008 08:40
Re: Deja Solo Números
por Adrian » 28 Ene 2012 11:13
Hola, el error al parecer es por que en el editor de html de este foro le quise dar estilo negrita al texto, mira que dice:
If Not Nro = "" Then Celda = Nro
y debería ser If Not Nro = "" Then Celda = Nro
Es decir sin:
If Not Nro = "" Then Celda = Nro
y debería ser If Not Nro = "" Then Celda = Nro
Es decir sin:
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
Adrian - Moderator
- Registrado: 13 Jun 2004 17:24
- Ubicación: Chamical La Rioja ARG
Compartir en:
3 mensajes
• Página 1 de 1
-
- Anuncio
Volver a Macros, programación y códigos
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado
