Dentro de una SubCarpeta, guarde el libro con el nombre según nbr =
Como mencione en la pregunta anterior
2ª Dentro de esa sub, guarde el libro con el nombre nbr = (YA RESUELTA)
En esta 2ª pregunta y abusando de tu generosa ayuda, me dejas (si quieres) la misma macro pero para que SOLO seleccione y copie un rango al nuevo libro y NO toda(s) hoja(s) = Ej.: ActiveSheete. Range("A1:I52").select 'Sheete(1). Range("A1:I52").select (algo asi es ¿No?)
En mi parecer, arriesgo que dentro de esto ¿esta el resultado? Probare y ya veré si estoy en lo cierto o fallando como es habitual en mis teclas
Range("A1:I52").select
Selected. Copy 'Sheets. Copy
'Guarda el nuevo libro como xlsx
nuevo = ruta & carp & "\" & nomb & ".xlsx"
Sheete(1). Selected.SaveAs Filename:=nuevo, _Me perdonas mi ignorancia si acaso no es así, voy probando. Si en tu parecer existe más que una pregunta, manda un grito y atenderé tu llamado, jjejejje
1 Respuesta
H o l a:
Te anexo la macro para guardar un rango de una hoja en un nuevo libro.
Sub CrearArchivo()
'Por.Dante Amor
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
'Crea un nuevo libro
Set l2 = Workbooks.Add
Set h2 = l2.Sheets(1)
'
'ruta = "C:\0\"
ruta = ThisWorkbook.Path & "\"
carp = h1.Range("E8")
nomb = h1.Name & "_" & h1.Range("J8") & " " & h1.Range("K9")
nuev = ruta & carp & "\" & nomb & ".xlsx"
'Crea la carpeta si no existe
If Dir(ruta & carp, vbDirectory) = "" Then MkDir ruta & carp
'Copia el rango
h1.Range("A1:I52").Copy h2.[A1]
'Guarda el nuevo libro como xlsx
l2.SaveAs Filename:=nuev, FileFormat:=xlOpenXMLWorkbook
l2.Close
MsgBox "Archivo guardado en: " & nuev
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubSal u dos
