Borys Olmos

If txtcogido.Text = Empty Or txtNombres.Text = Empty Or txtApellidos.Text = Empty Or txtCedula.Text = Empty Or txtnacimiento.Text = Empty Or txtDireccion.Text = Empty Or txtTelefono.Text = Empty Or txtEmail.Text = Empty Or txtingreso.Text = Empty Or...

Regalame el archivo asunto todoexpertos listbox menciona en el contenido la ubicación de tu error, con gusto intentare ayudarte

Esta respuesta ya esta formulada Te paso los links para que tomes la que mas se acomode a tu necesidad http://www.todoexcel.com/foro-excel/macros/macro-para-mover-archivos-t10160.html...

Te adjunto archivo para que lo acomodes a tu necesidad. https://drive.google.com/open?id=0B2ewT3Iop7pCZGJUdlk1ZDFPS0U

Dim x As Integer For x = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(x).Copy _ After:=Workbooks("Libro2.xlsx").Sheets(ActiveWorkbook.Sheets.Count) Next

Espero tengas ya tu solución de no ser así mi aporte es este correspondencia https://www.youtube.com/watch?v=V1m4t6DqRWA

Workbooks.Open Filename:="ruta completa de la ubicacion del archivo para abrir" ' ejemplo "C:\Users\DES\Google Drive\ERA\DESPACHOS\extencion.xls" Sheets("XxX").Select 'escribe el nombre de la hoja dende se va a copiar...

Espero ya tengas una solución, pero te comento tu macro funciona perfectamente para lo que requieres ya la e ensayado y no tiene problema, ahora para llamarla te sugeriría un botón, que lo puedes crear en desarrollador - controles - insertar...

=MAYUSC(A1)

¿Podrías mostrar el error que genera? Si puedes subir el archivo, [email protected].