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.
Mar, 12/03/2019 - 12:42
#1
Macro para seleccionar celda no numérica
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
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.
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
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.
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
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.
¿Por qué vuelves a pedir lo que te resuelvo en la última entrada?