Copiar Hoja, Guardar, Romper vínculo y abrir

¿Qué tal Experto, espero te encuentres bien, oye ya copie una macro para copiar y guardar una hoja de excel, pero ahora lo que quiero es abrir esa hoja que estoy copiando y romper el vínculo que la une a la hoja original, para poderla mandar por correo, es eso posible? De antemano te agradezco tu atención. Te anexo la rutina:
Dim CARPETA As String
CARPETA = "C:\Documents and Settings\All Users\Documents\FAM\PEDPROV\"
Dim wb As Workbook
'En la variable guarda la celda con nbre de cliente
nvaFact = Sheets("[email protected]").Range("C7").Value & "-" & Sheets("[email protected]").Range("L3").Value
'copio la hoja activa FACT
Sheets("[email protected]").Copy
' guarda esa hoja con el nombre de la variable y cierra el libro
'inhabilitamos el movimiento de hojas
Application.DisplayAlerts = False
'creamos un nuevo objeto Libro
Set wb = ActiveWorkbook
With wb
'guardamos el libro en la misma carpeta y con nombre = variable
.SaveAs CARPETA & nvaFact & ".xls"
'cerramos el libro
.Close
End With
'se libera el objeto
Set wb = Nothing
End Sub

1 Respuesta

Respuesta
1
Colocá esta instrucción justo debajo del:
With wb
Reemplazá el nombre del libro original (en mi ejemplo: Facturas.xls)
.BreakLink Name:= _
"C:\Documents and Settings\All Users\Documents\FAM\PEDPROV\Factura.xls" _
, Type:=xlExcelLinks
Excelente respuesta, ahora manejo la fórmula "=hoy()" para la fecha, cómo le hago para que al hacer todo el procedimiento anterior se quede sólo la fecha y no la fórmula para en caso de consultar después ese archivo no se actualice la fecha. Gracias
¿Qué crees, pegué tal y cómo pusiste la instrucción y al ejecutar me aparece "Se ha producido el error '1004' en tiempo de ejecución. Error definido por la aplicación o el objeto" Que hice mal? Gracias
¿Ajustaste el nombre de tu libro?
Colocá encima de With wb esta instrucción:
on error resume next
Esto evitará que se interrumpa ante un error. Es probable que si el libro no tiene vínculos presente error.
La rutina que me envías parece incompleta. Con respecto a lo de pegar solo valor y no fórmula estas son las instrucciones para colocar después de la copia. Adaptalas a tus datos:
sheets("tuhojadestino").select
Activesheet. Range("tucelda"). Copy
Selection. Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Cuando tengas todo armado y si no funciona, intentá realizar todos los pasos con la grabadora. Al detenerla en un módulo encontrarás la rutina que te puede guiar para ajustar la tuya.
Hijole, espero me tengas paciencia, porque no soy muy bueno en esto, ya hice lo que me dijiste y no rompe el vínculo, te pego la instrucción, me comentas que está incompleta, ¿qué le falta?
Dim CARPETA As String
CARPETA = "C:\Documents and Settings\All Users\Documents\FAM\PEDPROV\"
Dim wb As Workbook
'En la variable guarda la celda con nbre de cliente
nvaFact = Sheets("[email protected]").Range("C7").Value & "-" & Sheets("[email protected]").Range("L3").Value
'copio la hoja activa FACT
Sheets("[email protected]").Copy
' guarda esa hoja con el nombre de la variable y cierra el libro
'inhabilitamos el movimiento de hojas
Application.DisplayAlerts = False
'creamos un nuevo objeto Libro
Set wb = ActiveWorkbook
On Error Resume Next
With wb
.BreakLink Name:= _
"C:\Documents and Settings\All Users\Documents\FAM\PEDPROV\FAMSYS.xls" _
, Type:=xlExcelLinks
'guardamos el libro en la misma carpeta y con nombre = variable
.SaveAs CARPETA & nvaFact & ".xls"
'cerramos el libro
.Close
End With
'se libera el objeto
Set wb = Nothing
End Sub
Y para lo del valor, me pones "Hojadestino" pero ésta la genera la acción anterior, ¿qué tengo que poner ahí?
¿Por último cómo detengo la grabadora en un módulo? Muchas Gracias
Te dejo la rutina que yo utilicé y no presentó errores.
Sub copiando()
Dim CARPETA As String
CARPETA = "C:\Documents and Settings\All Users\Documents\FAM\PEDPROV\"
Dim wb As Workbook
'En la variable guarda la celda con nbre de cliente
nvaFact = Sheets("[email protected]").Range("C7").Value & "-" & Sheets("[email protected]").Range("L3").Value
'copio la hoja activa FACT
Sheets("[email protected]").Copy
' guarda esa hoja con el nombre de la variable y cierra el libro
'inhabilitamos el movimiento de hojas
Application.DisplayAlerts = False
'creamos un nuevo objeto Libro
Set wb = ActiveWorkbook
'On Error Resume Next
With wb
.BreakLink Name:= _
"C:\Documents and Settings\All Users\Documents\FAM\PEDPROV\FAMSYS.xls" _
, Type:=xlExcelLinks
'elimina formula de fecha/hora en hoja destino -AJUSTAR REFERENCIA
.Sheets("Hoja1").Range("A4").Copy
.Sheets("Hoja1").Range("A4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'guardamos el libro en la misma carpeta y con nombre = variable
.SaveAs CARPETA & nvaFact & ".xls"
'cerramos el libro
.Close
End With
'se libera el objeto
Set wb = Nothing
End Sub
Si no lo solucionás, comentame en qué línea te presenta el error y con qué versión estás trabajando.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para copiar y pegar hoja

Mi problema es que quisiera crear una macro para una factura que se encuentra en una hoja de un libro de Excel, pues bien quisiera que al ejecutar dicha macro, Copiara la hoja del libro y la guardara sola en un nuevo libro con el nombre del Cliente....
2 respuestas

Macro guardar como.. (2)

Otra vez acudo a ti, en busca de ayuda. Es en relación a la pregunta anterior, para la macro de Guardar como... La macro me funciona perfectamente, aunque no tanto, pues algo me he descuidado, te explico: Utilizo en mi proyecto, una libro principal...
1 respuesta

Añadir attach para enviar mail desde Excel

Tengo esta macro que conseguí en la red. Desde Excel lanza Outlook con la información que incluyo en el código, envía un email a varios destinatarios, me personaliza y formatea el titulo, me deja escribir varias líneas en el mensaje... Etc, pero lo...
1 respuesta

Macro crear carpeta y guardar determinadas celdas

Necesito una macro que sirva para crear una carpeta nueva que tenga como nombre el contenido de una celda, y que guarde dentro de esa carpeta determinadas celdas como un libro nuevo, cuyo nombre sea el contenido de una celda. Se como hacerlo por...
1 respuesta

Guardar como pdf excel

Estoy realizando una macro que pueda unificar el contenido de varias hojas en un solo PDF, quiero que automáticamente seleccione un rango diferente en cada hoja para que solo imprima ese rango seleccionado en el PDF final. Ej: tengo 4 hojas...
1 respuesta

Macro eliminar botones

Tengo una macro que copia una determinada hoja de un archivo a otro solo que en esa hoja tiene botones para correr determinadas macros. ¿Qué código puedo agregar para que la hoja a donde se copie no contenga dichos botones ni las macros?
1 respuesta

Macro para juntar la información de 4 archivos de excel en una nueva hoja y de 1 archivo aparte en otra

Tengo un macro que juntas hojas pero no cumple con lo que necesito. Me gustaría un macro que me permitiera seleccionar 4 archivos (cambian cada vez) y junte los datos de las primeras hojas de estos archivos en la primera hoja del libro donde estoy...
1 respuesta

Subíndice fuera de intervalo

Ok, tengo un problemilla en Visual Basic resulta que quiero crear un archivo que me extraiga los datos de una base de datos que esta en otra pc, para eso estoy basándome en un archivo que tengo que creo otra persona, pero tengo un problemilla,...
1 respuesta

Macro para pegar información de un libro a otro

Esta pregunta la hice hace poco pero buscando y buscando vi que respondes bien a este tipo de preguntas (espero que me puedas ayudar). Yo conseguí el siguiente código, pero no hace lo que necesito: Sub Guardar() Application.ScreenUpdating = False...
1 respuesta

Macro para vincular una celda a un archivo pdf

Utilizo excel 2007, en mi sistema de facturación tengo varias macros, al pulsar un botón me guarda en pdf, imprime, crea siguiente numero de factura y manda la información a una tabla dinámica que lo organiza por numero de albarán, hasta ahí, todo...
1 respuesta