Actividad pública reciente
Ha valorado "Excelente" la respuesta
Copiar una fila entera si aparece una determinada palabra en una celda en concreto.
Pon la siguiente macros en los eventos de tu hoja1 Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Column = 1 Then Set h2 = Sheets("Hoja2") For Each r In Target.Rows Select Case Cells(r.Row, "A") Case "otros", "varios" j...