Actividad pública reciente
Ha valorado "Excelente" la respuesta
Comparar dos hojas y completar hoja2 con datos de hoja1 que faltan
Esta es lamacro Sub copiar() 'Por.DAM Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row Set b = h1.Range("A:A").Find(h2.Cells(i, "A")) If Not b Is Nothing Then h1.Range("H" & b.Row & ":I" &...