Borys Olmos

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...

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

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

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].

sub si_A_no_N_y_no_D ( ) if range("C6") = "N" and range("D6") = "A" or range("D6") = "D" then msgbox"no me permita ingresar ni la letra "A" ni la letra "D" end if end sub