Dante Amor respondió:
Te anexo la macro Sub Copiar_Datos() ' ' Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row nid = h1.Cells(i, "A") Set b = h2.Columns("A").Find(nid,...