Actividad pública reciente
Ha valorado "Excelente" la respuesta
Copiar celdas cuando la celda se pinta de rojo
Prueba Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'if left cell is dark red painted On Error Resume Next If (Target.Offset(0, -1).Interior.Color = 192) Then LastRow = Sheets("Errors_list").Range("A" & Rows.Count).End(xlUp).Row + 1...