Adaptación de macro para ser operativa en 2 hojas a la vez. Para Dante Amor

Tengo una macro que ejecuta la función buscarv() en una base de datos que se encuentra en la hoja2 y quisiera que fuera también operativa en la hoja1 desde una celda concreta que le señalase. El código es el siguiente:

Sub busqueda()
Dim lookupvalue As Variant, value As Variant, lookupRange As Range
value = Range("b16")
Set lookupRange = Range("b4:d14")
lookupvalue = Application.VLookup(value, lookupRange, 3, False)
'Si no encuentra valor finaliza
If IsError(lookupvalue) Then
Exit Sub
'Si lo encuentra lo devuelve
Else
MsgBox lookupvalue
End If
End Sub

1 Respuesta

Respuesta
1

¿Quieres otra macro?

¿O quieres que la misma macro busque en la hoja2 y si no encuentra que busque en la hoja1?

Si quieres la misma macro, solamente la tienes que seleccionar la hoja1 y ejecutar la macro.

Tampoco entiendo esto: "desde una celda concreta que le señalase"

La macro está funcionando desde la Hoja2 que es donde está la base de datos donde ha de buscar el valor de la celda seleccionado (que también está en dicha hoja). Lo que quiero es que esa misma macro u otra asignada a la Hoja1 tome el valor seleccionado que en este caso estará en la Hoja1. Eso ahora mismo no lo hace. Solo es operativa con el valor asignado en la Hoja2, que es donde se encuentra la base de datos.

Tu macro toma el valor de la celda B16 y lo busca en el rango B4:D14. Pero en ninguna parte de la macro dice que lo deba hacer en la hoja2, por eso digo, que ejecutes la macro en la hoja1 y va a funcionar.

Dices esto: "tome el valor seleccionado" te refieres que que tome el valor de la celda que tienes seleccionada, es decir, ¿qué no tome el valor de la celda B16?

Otra duda, quieres que "tome el valor seleccionado" y lo busque, ¿dónde quieres buscarlo en la hoja1 o en la hoja2?

Si consideras mejor olvidarnos de esa macro que pusiste y me explicas paso a paso qué es lo que necesitas y te creo una macro nueva, porque no te estoy entendiendo.

Te anexo las macros

Esta macro toma el valor de la hoja1 y lo busca en la hoja1

Sub busqueda()
    Dim lookupvalue As Variant, value As Variant, lookupRange As Range
    value = Sheets("Hoja1").Range("b16")
    Set lookupRange = Sheets("Hoja1").Range("b4:d14")
    lookupvalue = Application.VLookup(value, lookupRange, 3, False)
    'Si no encuentra valor finaliza
    If IsError(lookupvalue) Then
        Exit Sub
        'Si lo encuentra lo devuelve
    Else
        MsgBox lookupvalue
    End If
End Sub

Esta macro toma el valor de la hoja1 y lo busca en la hoja2

Sub busqueda()
    Dim lookupvalue As Variant, value As Variant, lookupRange As Range
    value = Sheets("Hoja1").Range("b16")
    Set lookupRange = Sheets("Hoja2").Range("b4:d14")
    lookupvalue = Application.VLookup(value, lookupRange, 3, False)
    'Si no encuentra valor finaliza
    If IsError(lookupvalue) Then
        Exit Sub
        'Si lo encuentra lo devuelve
    Else
        MsgBox lookupvalue
    End If
End Sub

Si alguna de las opciones es la que necesitas, no olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

"VLOOKUP" la segunda y la tercera coincidencia

Buscando un dato con "VLOOKUP" me da la primera coincidencia pero tiene 3 coincidencias como pedir la segunda y la tercera
1 respuesta

Destacar OptionButton al cargar formulario

Tengo un formulario con tres OptionButton y los tengo asignado a una misma celda. El valor al hacer click son 1,2 y 3 respectivamente. La idea es que al cargar el formulario me pueda mostrar activo el OptionButton que había asignado anteriormente, es...
1 respuesta

¿Como puedo aplicar una macro a una hoja determinada de un documento de Microsoft Excel?

Recién estoy aprendiendo a aplicar macros a mis hojas de excel, y tengo muchas dudas, una de ellas es, como puedo hacer para que una macro solo se ejecute para una determinada hoja, aunque la ejecute desde otra hoja, ej: en Hoja1, en determinada...
1 respuesta

Macro que se ejecute cuando cambia un valor

Tengo un archivo de excel con 2 hojas (hoja1 y hoja2) En la hoja2, hice un código para que se ejecute una macro automáticamente cada que cambien los valores de una celda la D11. Si cambian el valor de esta celda, y le ponen un 0 necesito que me...
1 respuesta

Buscar hoja señalada en CmBx1 y atraer en los TxBx contenidos de las celdas especificas

Tengo esta macro que anexo y su función es: al seleccionar la obra en el cmbx1 y clickear “buscar”, debe buscar la hoja respectiva en el libro y visualizar en los textbox el contenido que encuentre en las celdas específicas. Si se desea modificar un...
1 respuesta

Como ejecutar una macro cuando el Valor de una celda es igual al valor de una celda de un rango

Soy nuevo en esto y no me aclaro. Quiero ejecutar tres macros diferentes si el valor de una celda coincide con el valor de cualquier celda dentro de 4 diferentes rangos. Tengo la casilla c3 que es una validación de datos en formato lista. Pues mi...
1 respuesta

Mostrar MsgBox con datos de celda

Recurro de nuevo a su valiosa ayuda. Gracias al experto "Aprendemos" pude dar con una respuesta interesante. Por medio de un Formulario capturo un nombre ubicados un rango, si el valor no existe en el rango aparece un MsgBox "Número no encontrado"....
2 respuestas

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta