............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Buscar en rango de otro libro abierto

Ver el tema anterior Ver el tema siguiente Ir abajo

Buscar en rango de otro libro abierto

Mensaje por Roberto2010 el Dom Abr 10, 2011 12:44 am

Buenos días! Agradecido como siempre por este foro, les planteo mi inquietud.
La siguiente macro informa si el texto ingresado en textbox1 ya existe en un rango de la hoja. Ahora bien yo quisiera hacer esto mismo tomando referencia de otro libro, es decir; quisiera retocarla para que halle en rango ("A:A") pero de otro libro abierto. ¿Es posible?
Agradezco y aclararo que el autor de esta macro es el Sr Abraham.

Option Explicit
Dim rango As Range

Private Sub CommandButton1_Click()

Set rango = Range("A:A").Find(What:=TextBox1, LookAt:=xlWhole, LookIn:=xlValues)

If rango <> Empty Then
MsgBox "Dato existente", vbOKOnly + vbInformation, "AVISO"

Exit Sub
End If
End Sub
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 40
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Buscar en rango de otro libro abierto

Mensaje por Tatayayan el Dom Abr 10, 2011 1:33 pm

Hola, hay otras formas de averiguar lo indicado; esto te va ayudar:
Private Sub CommandButton1_Click()
Dim Rango As Range
Set Rango = Workbooks("Libro1.xlsx").Sheets(1).Range("A:A").Find(What:=TextBox1, LookAt:=xlWhole, LookIn:=xlValues)
If Rango Is Nothing Then
MsgBox "No Está", 64, ""
Else
MsgBox "Está!", 64, ""
End If
End Sub
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Buscar en rango de otro libro abierto

Mensaje por Roberto2010 el Dom Abr 10, 2011 2:56 pm

Tatayayan: anda de diez! muchísimas gracias por tu respuesta ràpida y acertiva.
Otra vez; Gracias
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 40
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Re: Buscar en rango de otro libro abierto

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.