Macro para seleccionar celda no numérica

8 envíos / 0 nuevos
Último envío
Santiago
Imagen de Santiago
Offline
última acción: Hace 5 años 1 semana
alta: 12/03/2019 - 12:26
Puntos: 130
Macro para seleccionar celda no numérica

Buenos días, a ver si alguien me puede ayudar. Necesito una macro que seleccione, en un rango de celdas en una columna, la primera celda no númerica. Muchas gracias, un saludo.

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Yo haría una función que

Yo haría una función que devuelva True si encuentra alguna celda así, y false si todas las celdas del rango son numéricas. Algo así como:

Function NoNumeric(rango As Range) As Boolean

Dim celda As Range

NoNumeric = False

For Each celda In rango

    If Not IsNumeric(celda.Value) Then

        celda.Select

        NoNumeric = True

        Exit Function

    End If

Next

End Function

 

 

Un saludo

Santiago
Imagen de Santiago
Offline
última acción: Hace 5 años 1 semana
alta: 12/03/2019 - 12:26
Puntos: 130
Muchas gracias. Donde pongo

Muchas gracias. Donde pongo el rango???? 

Buenos días, a ver si alguien me puede ayudar. Necesito una Macro que seleccione, en un rango de celdas en una columna, la última celda NO NUMÉRICA. Muchas gracias, un saludo.

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Donde la tengas que poner,

Donde la tengas que poner, llámala así:

if NoNumeric(rango) = true then

  'lo que pasa cuando se encuentra una celda y se selecciona

else

  'lo que pasa cuando todas las celdas del rango son numéricas, por lo que no se selecciona ninguna

end if

Santiago
Imagen de Santiago
Offline
última acción: Hace 5 años 1 semana
alta: 12/03/2019 - 12:26
Puntos: 130
Pues no me funciona

Pues no me funciona

Buenos días, a ver si alguien me puede ayudar. Necesito una Macro que seleccione, en un rango de celdas en una columna, la última celda NO NUMÉRICA. Muchas gracias, un saludo.

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Hola, Santiago.En tu primera

Hola, Santiago.

En tu primera entrada pedías la "primera" celda no numérica. Eso exactamente es lo que hace el código que te he enviado. si quieres la última, lógicamente habrá que modificar el código en consecuencia. Pero eso es lo que pides en tu última respuesta.

Además, creo que con que lo pidas una vez es suficiente. No hace falta pedirlo en 4 lugares diferentes del foro.

Para el caso de la última, haría lo siguiente:

Function NoNumeric(rango As Range) As Boolean

Dim celda As Range, celda2 As Range

NoNumeric = False

For Each celda In rango

    If Not IsNumeric(celda.Value) Then

        set celda2 = celda

        NoNumeric = True

    End If

Next

If NoNumeric then

    celda2.select

end if

End Function

 

Un saludo

Santiago
Imagen de Santiago
Offline
última acción: Hace 5 años 1 semana
alta: 12/03/2019 - 12:26
Puntos: 130
Lo he pedido por cuiatro

Lo he pedido por cuiatro sitios diferentes? Será por que no estoy familiarizado con el foro y no se bien el manejo. 

Buenos días, a ver si alguien me puede ayudar. Necesito una Macro que seleccione, en un rango de celdas en una columna, la última celda NO NUMÉRICA. Muchas gracias, un saludo.

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
¿Por qué vuelves a pedir lo

¿Por qué vuelves a pedir lo que te resuelvo en la última entrada?