Hola, me gustaría una macro para guardar una sola hoja de un libro, con el nombre de 2 celdas
Hola, se que es mucho pedir pero me gustaría guardar una sola hoja de un libro de macros.
Tengo esta macro que he cogido por ahí y si que me la guarda en la carpeta que yo quiero,
pero no me pone el nombre del número factura ni del cliente (I3),(H8).
No era asi exactamente porque guardaba el archivo por la fecha y yo la he intentado retocar para que coja lo que pone en la celda i3, pero no tengo ni idia.
Gracia por adelantado.
Sub ejemplo2()
Application.DisplayAlerts = False
mio = ActiveWorkbook.Name
nombre1 = Range("I3") & .Value
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
ActiveSheet.Copy before:=Workbooks(otro).Sheets(1)
For X = 2 To Sheets.Count
Sheets(2).Delete
Next
ActiveWorkbook.SaveAs "Z:\Facturas Y Presupuestos\Facturas\2014\" & nombre1 & "" ActiveWorkbook.Close False
End Sub
1 respuesta
Prueba a modificarlo por algo del tipo de:
= Range("I3") & ".xlsm" '*****
Necesitas indicar una extensión de archivo si no esta ya definido en la celda.
Gracias, pero lo he puesto y me da erro no se por que.
Lo cierto es que puede estar mal todo porque lo he retocado y no tengo ni idea
En las celdas los datos están como general en el nombre del cliente y como número en el número factura.
Es posible que falle si en el nombre hay definido algún carácter que no sea valido para un nombre de archivo como pueda ser una barra inclinada / o cualquier otro.
he probado solo con el número de factura y tampoco, no debo de escribirlo bien.
Si se guarda en la carpeta pero no pone la cifra que hay en la celda
Prueba a añadir el nombre a la ruta de guardado y eliminando la condición de nombre1
ActiveWorkbook.SaveAs "Z:\Facturas Y Presupuestos\Facturas\2014\" & Range("i3") & ".xls"
Si con esto no te funciona ya no se me ocurre mas.
