Hola amigos,
Espero realmente puedan ayudarme... tengo asignado este codigo a un boton en
un formato de cotizacion.
Al presionar el Boton... se genera un nuevo archivo .xls en un directorio ya
predefinido y con un nombre que se concatena (codigo vendedor,numero
cotizacion,año) y se graba en un directorio ya especificado en la hoja
vendedores (cada uno tiene un directorio especifico donde guardar sus
cotizaciones)
Realmente les comento que he recibido este archivo (no entiendo mucho de VBA
estoy aprendiendo) y lo que deseo es que me ayuden a modificarlo para que en
lugar de grabarse en .xls se grabe en PDF... pero sin tener que ingresar el
nombre ni la ruta... ya tengo instalado el PDF995
Esto sinceramente es muy urgente .. les agradezco si me pudieran ayudar.
Muchisimas gracias
Manolo.
- codigo --
Sub Formatea()
Dim Archivo As String
Range("O6").Select
Selection.Copy
Range("N14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Archivo = ActiveCell.FormulaR1C1 & ".xls"
ActiveWorkbook.SaveAs Filename:=Archivo, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Sheets("Vendedor").Select
ActiveWindow.SelectedSheets.Delete
Range("N1:R9").Select
Selection.ClearContents
Range("P10:R12").Select
Selection.ClearContents
Range("C25:C44").Select
Selection.Interior.ColorIndex = xlNone
ActiveWorkbook.Save
Range("H10").Select
Selection.Copy
Range("H11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("H10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=LEFT(R[1]C,11)"
Range("H10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("H11").Select
Selection.ClearContents
Columns("K:R").Select
Selection.Delete Shift:=xlToLeft
Range("B8:E9").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Leer las respuestas