Capturar resultado "nothing" en una macro
Diego
En una parte de una macro realizo una busqueda de un valor de una celda.
Esa celda puede estar oculta en la hoja de cálculo, si eso ocurre, hay una
serie de comandos que no deben ejecutarse.
Cuando la celda esta oculta, el resultado de la busqueda es "nothing", pero
no encuentro la forma de capturar ese resultado y usarlo en la línea de
programación.
La línea del conflicto es la sgte:
"If Not IsEmpty(Worksheets("REPORTE").Cells.Find(What:="Datos por Cliente",
LookAt:=xlWhole)) Then"
Diego
"Se ha producido el error '91' en tiempo de ejecución:
Variable de objeto o bloque With no establecido"
Héctor Miguel
> En una parte de una macro realizo una busqueda de un valor de una celda.
> Esa celda puede estar oculta en la hoja de calculo, si eso ocurre, hay una serie de comandos que no deben ejecutarse.
> Cuando la celda esta oculta, el resultado de la busqueda es "nothing"
> pero no encuentro la forma de capturar ese resultado y usarlo en la linea de programacion.
> La linea del conflicto es la sgte:
> "If Not IsEmpty(Worksheets("REPORTE").Cells.Find(What:="Datos por Cliente", LookAt:=xlWhole)) Then"
>> El mensaje de error que arroja es:
>> "Se ha producido el error '91' en tiempo de ejecucion: Variable de objeto o bloque With no establecido"
1) (hasta donde se) no importa si alguna celda (o incluso su hoja) esta oculta...
para que por codigo puedas administrar sus propiedades, metodos, etc.
2) si el mensaje de error (91) por "variable de objeto o bloque with no establecido"
pudiera tener dos (posibles) causas del error (segun la linea de codigo que expones):
a) la funcion vba IsEmpty(...) <= REQUIERE que la referencia sea de tipo objeto y que previamente se haya establecido
-> p.e. Set MiCelda = Worksheets("reporte").Cells.Find(What:="datos por cliente", LookAt:=xlWhole)
para que puedas usarla en la forma de: If Not IsEmpty(MiCelda) Then ........
y obviamente, podria ser necesario un control de errores ANTES de la instruccion Set... (por si las dudas) :))
b) la otra posibilidad es que NO exista el dato buscado ("datos por cliente") por no coincidir caracteres (algun espacio de mas ?)
3) alternativas ?... prueba modificando esa linea por dos (o tres) distintas +/- como sigue:
On Error Resume Next
If Worksheets("reporte").Cells.Find(What:="datos por cliente", LookAt:=xlWhole) Is Nothing Then
MsgBox "El dato por el que se pregunta NO EXISTE !!!"
End If
On Error Goto 0
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.
Diego
En realidad necesitaba saber como comparar el valor.
Como cultura general, yo tenia el mismo supuesto que tu, sobre que los busca
inclusive en celdas ocultas, pero al realizar la busqueda con celdas ocultas
el resultado que arroja es "nothing", es decir, no encuentra nada, y cuando
la fila se muestra, encuentra el valor.
Gracias nuevamente.
Héctor Miguel
> Como cultura general, yo tenia el mismo supuesto que tu, sobre que los busca inclusive en celdas ocultas
> pero al realizar la busqueda con celdas ocultas el resultado que arroja es "nothing", es decir, no encuentra nada
> y cuando la fila se muestra, encuentra el valor...
(pues)... "mi" supuesto lo comprobe antes de emitir la propuesta ;)
en que version de excel te sucede que no lo encuentra ?
(y cual es la instruccion precisa ?)
saludos,
hector.