Enrique Bernal respondió:
Esta macro te podría ayudar Sub Actualiza() For Each cell In Range("A1:A5") Sheets("Productos").Select a = a + 1 b = Range("B" & a).Value Sheets("TarifaFestool2011").Select Cells.Find(What:=b, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart,...