jose sacho perez

Sub GuardarHojasComoPDF() Dim Ruta As String Dim NombreArchivo As String Dim Hoja As Object With Application.FileDialog(msoFileDialogFolderPicker) Title = "cierre caja - Seleccionar carpeta" .Show If .SelectedItems.Count = 0 Then 'Nada Else Ruta =...

Tengo esta macro para que me guarde la hoja activa pero da un error 214701887(80071779) en tiempo de ejecución Como puedo soluciona el problema que presenta para que me guarde la hoja activa Si me ayudaran les agradecería Sub GuardarHojasComoPDF()...

Tengo la siguiente macro Pero me esta dando un problema que me pone en nombre de la siguiente manera remesa-06-02-2017.xlsm06 - 02 - 2017.xlsm como puedo solucionar el problema para el nombre salga así Remesa-06-02-2017 si pudieran ayudarme se los...

Private Sub BuscayCreaCarpeta() Dim mes1 As String Dim mes, año As Integer 'Establezco si la carpeta existe año = Year(Date) mes = Month(Date) 'Determino el nombre de la subcarpeta que va dentro de la carpeta año, hay que tener en cuenta que los...

Es que quiero una macro que al presionar un commandbuton se mande a imprimir y guarde una copia Fechada en una carpeta con el nombre el mes y año actual, previamente verifica si la carpeta existe o no, en caso de no existir la crea, una vez realizado...