Error utilizando "with"

[rguez]

Hola

Tengo un error, bastante tonto por lo demás, pero no he podido resolverlo ... (error de tipo incompatible)

Aqui un ejemplo

with Activesheet.range("A1:B10")

if .value="lo que busco" then msgbox "lo encontré!!"

endwith

¿qué estoy haciendo mal?

Gracias

 

[phantom1975]

Lo siento, pero mi espanol es muy malo.

La problema es con este:

Activesheet.range("A1:B10").value="lo que busco" then msgbox "lo encontré!!"

La problema no es con "with". No hay solamente un "value" para muchas celdas. Si quieres veer si "lo que busco" es encima de A1:B10, necesitas usar este:

Dim ThisCell As Range
    For Each ThisCell In ActiveSheet.Range("A1:B10")
        If ThisCell.Value = "lo que busco" Then
            MsgBox "lo encontré!!"
            Exit For
            End If
        Next ThisCell

Esta bien?

 

[rguez]

GOT IT!

Thanks