Posible modificación de macro ya editada por Dam
Para Dam a ser posible,conseguí una macro en la web que copia hoja a un nuevo libro con el nombre de una celda creando una carpeta para ello.
La macro funciona perfectamente mi consulta es: ¿se puede modificar para que guarde el libro con el contenido de dos celdas en vez de una ? Podría ser que también bloquee y desbloquee la hoja al activar la macro para seguridad posterior de la hoja:
Si es posible esto no se si yo podre si me indicas hacer la modificación o necesitaras la macro para ello.
Esperando tu respuesta recibe un saludo
segusuario (Juan)
1 Respuesta
Respuesta de Dante Amor
1
Así quedaría
Sub COPIAHOJA_Haga_clic_en()
'Por.dam
On Error Resume Next
Set h1 = ActiveSheet
h1.Unprotect
h1.Copy
h1.Protect
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Set navegador = CreateObject("shell.application")
carpeta = navegador.browseforfolder(0, _
"SELECCIONE UNA CARPETA PARA COPIAR EL ARCHIVO", 0, "Mis Documentos:\").items.Item.Path
If carpeta <> "" Then
If Right(carpeta, 1) <> "\" Then
carpeta = carpeta & "\"
End If
If Range("G10") <> "" Then
arch = Range("G10") & Range("B11")
Else
arch = "archivo"
End If
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=carpeta & arch & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End If
End Sub Saludos. Dante Amor
No olvides finalizar la pregunta.
