Maria Gomez

Adriel Ortiz Mangia respondió: Te paso la macro Sub compara_copia() '//Por Aortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set r = h2.Columns("A") Set b = r.Find(h1.Cells(i, "A"), lookat:=xlWhole) If Not b Is Nothing...

Dante Amor respondió: H o l a: Te anexo la macro, cambia en la macro "Hoja1" y "Hoja2" por los nombres reales de tus hojas. Sub Actualizar_Precios() '--- ' Por.Dante Amor '--- Set h1 = Sheets("Hoja1") 'Hoja 1 Set h2 = Sheets("Hoja2") 'Hoja 2 ' For i = 2 To h2.Range("A" &...