Resaltar celda de hoja1 si la celda de la hoja2 es igual
Me podrian ayudar necesito una macro para resaltar las celdas de la hoja1 de color amarillo conforme se van agregando en la hoja 2.
hoja1 hoja2
NOMBRE NOMBRE
LUIS ERNESTO
JUAN FABIO
PEDRO LUIS
ISAIAS PEDRO
ESTEBAN
PAOLO
MAURO
3 Respuestas
I. Hola Luís, por mi parte sólo conozco la opción del formato condicional.
https://www.forosdelweb.com/f90/formato-condicional-entre-dos-hojas-882229/
https://www.youtube.com/watch?v=T_dUtfl-Ehw
No soy conocedor, y tampoco soy capaz de encontrar información del todo funcional sobre su consulta, pero deseaba facilitarle lo que vi y en especial ofrecerme para trasladarla a un programador o experto de la comunidad para facilitarle una respuesta con conocimiento de causa, siempre en caso de no llegar respuestas. Le ruego me disculpe por todas las molestias y el tipo de respuesta. Mucho ánimo.
https://stackoverflow.com/questions/12763755/highlight-rows-in-sheet1-that-match-values-in-sheet2
https://www.youtube.com/watch?v=R43oDzqjRHg
https://www.youtube.com/watch?v=4XsLtWqvgFM
https://www.reddit.com/r/excel/comments/e8wisz/can_excel_automatically_highlight_a_name_from/
https://www.reddit.com/r/googlesheets/comments/12ew3bc/conditional_formatting_to_highlight_all_instances/
https://www.reddit.com/r/excel/comments/1532qq5/highlight_cells_based_on_range_on_another_sheet/
1- Con macro:
En el Editor selecciona la Hoja2 y allí pega el siguiente código. Ajusta las referencias de fila y columna (es importante que siempre indiques dónde se van a encontrar tus datos para enviarte la macro lo más ajustada posible ;)
Private Sub Worksheet_Change(ByVal Target As Range)
'establecer dónde se van a ingresar los nombres. Por ej: col A a partir de la fila 2
If Target.Column = 1 And Target.Row > 2 Then
'buscar el dato en la col A de la Hoja1
If Target.Value <> "" Then
Set busco = Sheets("Hoja1").Range("A:A").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
'si encuentra el dato colorea la celda
If Not busco Is Nothing Then
Sheets("Hoja1").Range("A" & busco.Row).Interior.ColorIndex = 6
End If
End If
End If
End Sub2- Con Formato condicional:
Selecciona el rango de la Hoja2 donde vayas a ingresar los nombres. Desde menú Inicio, Formato condicional, Nueva regla y optá por 'Utilice una fórmula...' y en el campo ingresá esta fórmula:
=BUSCARV(A2;Hoja2!$A$2:$A$20;1;FALSO)= A2
Asignale un formato color a gusto y Aceptar. Volverá a la ventana mostrándote la regla y verificá el campo 'Se aplica a' . Allí debiera aparecer el total de celdas seleccionadas que en mi ejemplo fue A2:A20.
NOTA: por supuesto que deberás elegir entre un método u otro... Si te decides por Macro no coloques el formato condicional ;)
Revisa:
Sal u dos
Dante Amor