Actividad pública reciente
Ha valorado "Excelente" la respuesta
Macro seleccionar y copiar celdas especificas
Sub Seleccionar() Worksheets("Hoja1").Activate Aux = 0 For Filas = 2 To Worksheets("Hoja1").Rows.Count If Cells(Filas, 1) = "" Then ' Consulta por A consecutivamente por que no sabemos el fin de la columna A Exit For End If Cells(Filas, 1).Select If...