sexpack

jerryeagle respondió: Sub capturar() If MsgBox("Los datos seran borrados de esta hoja y se almacenaran", vbYesNo) = vbYes Then libre = Sheets("DATOS").Range("A65536").End(xlUp).Row + 1 finfila = ActiveSheet.Range("C47:U47").End(xlUp).Row ActiveSheet.Range("C4:V47").Copy...

Uriel Baray respondió: Wow una disculpa me creerás que nunca he ocupado de los saltos de página, poer porque no pruebas con el grabador de macros, eso siempre ayuda cuando no tienes idea de como comenzar un macro lo pones lees lo que grabo y lo adecuas Siento no poder...