Corrección macro

Hola,
Una vez recuro a ti para buscar las soluciones de mis problemas.
Mi consulta es la siguiente:
He encontrado un código por internet concretamente en "elistas" sobre envío de email de varias maneras una hoja todo el libro solo una hoja concreta...
Me funciona perfectamente, mi única duda seria si se puede modificar un poco "adjunto código":
Public Sub Enviar_Hoja()
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveWorkbook.SendMail "", "Archivo_ anexo", True
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub
Este código copia la hoja activa y la envía como datos adjuntos de un email, a mi me gustaría que se pudiera seleccionar un rango concreto, no toda la hoja, ¿se puede hacer? ¿Cómo?
Gracias por tu tiempo.
Respuesta
1
Creo que te conozco, en mi lista de correo de eListas respondí una pregunta casi igual... te respondo lo mismo, saludos...
Hola a todos...
Claro que es posible, básicamente hay tienes que hacer
Seleccionar el rango a enviar
Copiar el rango a una nueva hoja/libro
Enviar el libro
Por supuesto supongo que esto lo quieres con código, pero antes de hacer código
considera los siguientes puntos...
Un rango puede contener varios objetos (celdas, dibujos, fórmulas, datos,
formatos)
Considera lo que pasa cuando copias información, por ejemplo la información
vinculada, las fórmulas, los formato, por ejemplo el ancho de las columnas no se
copia si solo copias un rango, entre otros detalles
Para pasarlo integro, podrías:
Copiar el libro completo y eliminar lo no necesario
Copiar solo el rango y después los anchos de columna si lo consideras
La macro podría arrancar ANTES de seleccionar o DESPUÉS de seleccionar,
dependiendo de tu gusto y necesidad...
Cuéntanos más detalles y con gusto te ayudamos...
Hola Mauricio,
Efectivamente ya contestaste esta consulta anteriormente en elistas, solo que, no se por que, la respuesta no la vi en su completo, solo el primera parte. Me permito la osadía de enviarte la macro que he desarrollado para que si puedes le ehces un vistazo, no se si esta bien o se puede hacer de otra manera que sea más fácil o más lógica. (Perdona por abusar)
Public Sub Enviar_Tarifa_Cast()
Application.ScreenUpdating = False
'copiar l'informacio en una fulla nova
Sheets.Add.Name = "tarifa castellano"
Sheets("TARIFES").Select
Range("J7:s200").Select
Selection.Copy
Sheets("tarifa castellano").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TARIFES").Select
Range("J7:s200").Select
Selection.Copy
Sheets("tarifa castellano").Select
Range("A1:j195").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Columns("A:j").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 18.71
Columns("c:c").ColumnWidth = 4
Columns("h:h").ColumnWidth = 15.25
Columns("G:G").ColumnWidth = 8.14
Rows("2:2").RowHeight = 26
ActiveWindow.Zoom = 80
Sheets("tarifes").Select
ActiveSheet.Shapes("Picture40").Select
Selection.Copy
Sheets("tarifa castellano").Select
Range("i2:i3").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -18
Selection.ShapeRange.IncrementTop -21
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "a1:j191"
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Range("a95")
ActiveWindow.SelectedSheets.VPageBreaks.Add before:=Range("K:K")
With ActiveSheet.PageSetup
.PrintTitleRows = "$2:$3"
.LeftMargin = Application.InchesToPoints(0.02)
.RightMargin = Application.InchesToPoints(0.02)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.CenterHorizontally = True
.Zoom = 64
End With
Range("a1").Select
'enviar aquesta fulla per e-mail
ActiveSheet.Copy
ActiveWorkbook.SendMail "", "Archivo anexo", True
ActiveWorkbook.Close False
'borrar la fulla nova
Cells.Select
Selection.ClearContents
ActiveWindow.SelectedSheets.Delete
Sheets("tarifes").Range("a5").Select
Application.ScreenUpdating = True
End Sub
Saludos,
David
Te felicito realmente, eres de los pocos usuarios que se toman la molestia de tener iniciativa, la mayoría tan solo espera que les resuelvas sus problemas, tu código así a simple vista lo veo bien, y si te funciona entonces esta excelente, solo algunas lineas que se podrían hacer de varias a una, pero es tan pequeña que así la puedes dejar, si te interesa ver como reducir el numero de lineas de código y que siga haciendo lo mismo, esto, solo como deseo de saber un poco más, finaliza esta pregunta y enviame tu macro a mi correo y te la devuelvo con la optimización y los comentarios pertinentes...
Saludos
Mauricio
Mbs ARROBA inbox PUNTO net

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Mejora en impresión por medio de macro

Tengo este macro Private Sub imprimir() Application.ScreenUpdating = False Sheets("IMPRESION").Select Range("A:G" & j).Select Selection.PrintOut Copies:=1 Sheets("JUGADOS").Select Application.ScreenUpdating = True End Sub pero quiero que cuando...
1 respuesta

Macro para copiar datos de una hoja a otra

Bueno este es el macro que hice, me copia los datos de la "hoja factura" pero me los manda mal a la "hoja acumulador" me los pone mezclados: Sub asi() Application.ScreenUpdating = False Worksheets("FACTURA").Range("F3").Copy...
1 respuesta

Alto de fila II

Otra vez con dudas... Te comento, en una consulta anterior, me facilitaste la siguiente macro: Sub formato() Dim acolb As Double, acolc As Double, acold As Double, acole As Double Application.ScreenUpdating = False If Sheets("Registre").Visible =...
1 respuesta

¿Cómo puedo hacer validación de datos al ejecutar una macros de guardado?

Tengo una macro en una hoja llamada NUEVO CLIENTE que guarda infroamcion en otra hoja llamada CLIENTES REGISTRADOS. Application.ScreenUpdating = False Sheets("CLIENTES REGISTRADOS ").Unprotect password:="28021990" Application.ScreenUpdating = False...
1 respuesta

Mediante macro copiar hojas a un nuevo libro quitando vínculos

¿Cómo seria una macro que me copie dos hojas y las pegue en un nuevo libro pero que quite los vínculos de las hojas copiadas?, tengo esta macro pero solo me quita los vínculos de la hoja Forma10: Sub Imprime() Application.ScreenUpdating = False...
2 respuestas

Macro para imprimir selecciones diferentes en hojas diferentes

Necesito ayuda con una macro que debería ser sencilla y me esta causando problemas, necesito imprimir de una hoja de excel 2 selecciones diferentes en hojas diferentes y de otra hoja 1 selección, me explico: lo que hago normalmente es en la "hoja 1"...
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Macro copiar formato

Querría saber si me podéis ayudar en la siguiente cuestión. Tengo el excel 2007, y querría saber si se podría hacer una macro donde se copiara el formato de una hoja y se aplicara en la otra, es decir sería lo mismo como si lo haces con el pincel...
1 respuesta

Macro para exportar de excel a txt

Quisiera que me ayudaras con algo, estoy tratando de exportar toda una hoja de excel a un archivo txt, estoy usando este código: ub generar_texto() Application.ScreenUpdating = False Range("A1").Select Range(Selection, Selection.End(xlDown)).Select...
1 respuesta

Copiar varios archivos excel en uno.

Encontré este código que copia de varios archivos una columna en especifica, pero yo necesito que de varios archivos excel copie todo lo que esta en la hoja "Consulta" de todos los archivos en la "hoja1" del archivo donde se van a copiar los datos....
1 respuesta