Actividad pública reciente
Ha valorado "Excelente" la respuesta
Copiar datos si son mayores a cero en la hoja 2 de manera horizontal
Prueba con la siguiente macro Sub Macro1() ' ' Por.Dante Amor ' Application.ScreenUpdating = False Set h1 = Sheets("Base") Set h2 = Sheets("Excesos") If h1.AutoFilterMode Then h1.AutoFilterMode = False u = h1.Range("AA" & Rows.Count).End(xlUp).Row...