georgevb

Paulo Pareja respondió: Este es el código: 'Pongo el nombre en una variable Nombre =" Reporte.xlsx" 'indico que directorio es mi carpeta de escritorio y dentro le agrego la carpeta "datos" Directorio = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\datos\"...

Dante Amor respondió: H o l a: Te anexo las 2 macros. Para crear un nueva carpeta en mis documentos: Sub NuevaEnDocumentos() 'Por.Dante Amor ruta = CreateObject("wscript.shell").SpecialFolders("mydocuments") & "\" carpeta = "Nueva" If Dir(ruta & carpeta, vbDirectory) = ""...

Luis Barrales respondió: Echa una mirada a este código y modifica a tu gusto o necesidades... Saludo y recuerda VALORAR la respuesta... (Y) Sub Macro1() ' ' Macro1 Macro ' ' Application.ScreenUpdating = False Range("D1:F35").Select Range("F35").Activate Selection.Copy...

Dante Amor respondió: Así quedaría, agregué la instrucción On Error Resume Next Y después de intentar abrir el libro, pregunto si existe error, si error = 0 entonces continúa, si es diferente de 0, entonces no hace nada y se pasa a la siguiente instrucción, que en este...