Comparar dos columnas de dos hojas distintas y si coinciden, devolver un texto determinado

Tengo en un Excel con 5 hojas. En la primera hoja necesito que busque el códido que tengo en la columna A en las otras 4 hojas (también en columna A) y si coincide me devuelva el texto del nombre de la hoja donde lo ha encontrado. ¿Es posible?

2 Respuestas

Respuesta
1

http://www.programarexcel.com/2013/08/recorre-fila-buscando-y-comparando.html

Ahi tienes un ejemplo trata de adaptarlo y me comentas

Respuesta
1

Ejecuta la siguiente macro en tu primer hoja (debe estar al principio de todas las hojas).

En la columna B de la primer hoja, te va a poner el nombre de la hoja en donde encontró el dato.

Sub ComparaDatos()
'Por.Dante Amor
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        For h = 2 To 5
            Set b = Sheets(h).Columns("A").Find(Cells(i, "A"), LookAt:=xlWhole)
            If Not b Is Nothing Then
                Cells(i, "B") = Sheets(h).Name
                Exit For
            Else
                Cells(i, "B") = "Dato no encontrado"
            End If
        Next
    Next
End Sub

Sigue las Instrucciones para un botón y ejecutar la macro

  1. Abre tu libro de Excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. Ahora para crear un botón, puedes hacer lo siguiente:
  6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
  7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
  8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
    1. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: ComparaDatos
  9. Aceptar.
  10. Para ejecutarla dale click a la imagen.

Saludos. Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas