merpachi67

Esto me lo ha pasado un colegilla, a ver si te sirve: Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") '...

Con un botón no se decirte como se hace, pero manualmente si. Clicas en la casilla de la hoja 2 a la que quieras "transferir" la información de la casilla de la hoja 1. Pones el signo = en la barra de fórmulas, cambia a la hoja 1 y clica encima de la...