Actividad pública reciente
Ha valorado "Excelente" la respuesta
Macro para copiar fila cuando coincida un valor
H o l a: Te anexo la macro Sub CopiarFila() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") If h1.[A2] = "" Then MsgBox "Escribe en la celda A2 un dato a buscar", vbCritical Exit Sub End If Set b = h2.Columns("A").Find(h1.[A2],...
