Ayuda Corregir
Amigo (a): pueden ayudarme y corregir el botón guardar. El problema es el siguiente:
* El libro de excel lo tengo con tres hojas, pero al guardar. Esta me queda con una hoja, como hago que al guardar posea la misma tres hojas.
Private Sub Guardar_Click()
Dim wb
Dim ruta, carpeta, libro, texto As String
ruta = "C:\Documents and Settings\All Users\Documentos\"
carpeta = ActiveSheet.Range("H3").Value
libro = ActiveSheet.Range("A1").Value
texto = ruta & carpeta & "\" & libro & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
'por error (ya existe archivo o nombre invalido) muestra ventana para cambiar nombre o ruta
On Error Resume Next
With wb
.SaveAs texto
Application.DisplayAlerts = True
.Close True
End With
Set wb = Nothing
Sheets("Hoja1").Select 'reemplaza por tu hoja
End Sub
* El libro de excel lo tengo con tres hojas, pero al guardar. Esta me queda con una hoja, como hago que al guardar posea la misma tres hojas.
Private Sub Guardar_Click()
Dim wb
Dim ruta, carpeta, libro, texto As String
ruta = "C:\Documents and Settings\All Users\Documentos\"
carpeta = ActiveSheet.Range("H3").Value
libro = ActiveSheet.Range("A1").Value
texto = ruta & carpeta & "\" & libro & ".xls"
Application.ScreenUpdating = False
ActiveSheet.Copy
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
'por error (ya existe archivo o nombre invalido) muestra ventana para cambiar nombre o ruta
On Error Resume Next
With wb
.SaveAs texto
Application.DisplayAlerts = True
.Close True
End With
Set wb = Nothing
Sheets("Hoja1").Select 'reemplaza por tu hoja
End Sub
1 Respuesta
Respuesta de jerryeagle
1