Archivo
Archivo: Imprimir, Abrir, Cerrar, Grabar
Imprimir: Hoja activa
Véalo
aquí
Sub imprimiendo()
'vista previa de la hoja activa
ActiveSheet.PrintPreview
'imprime la hoja activa
ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub
Imprimir: seleccionar área de impresión
Véalo
aquí
Sub AreaImpresion()
Dim primera, ultima As Variant
Range("A1").Select
If ActiveCell.Value = "" Then
Selection.End(xlToRight).Select
End If
primera = ActiveCell.Address
ActiveCell.SpecialCells(xlLastCell).Select
ultima = ActiveCell.Address
ActiveSheet.PageSetup.PrintArea = (primera & ":" & ultima)
End Sub
Imprimir: configurar impresión
Véalo
aquí
Sub Configurando()
With ActiveSheet.PageSetup
'para el encabezado
LeftHeader = "Nombre Empresa" 'ingresar un texto
CenterHeader = "&T" 'Time u hora
RightHeader = "&D" 'Date o fecha
'para el pie de página
LeftFooter = "&A" 'nombre de hoja
CenterFooter = "&F" 'File o nombre de libro
RightFooter = "&P" 'Page o número de página
End With
End Sub
Abrir: Libro
Véalo
aquí
Sub AbriendoLibros()
'oculta la ejecución de los siguientes pasos de la macro
Application.ScreenUpdating = False
'abre un segundo librolibro (ajustar la ruta)
Application.Workbooks.Open "C:\Mis documentos\Libro2.xls"
'activa el segundo libro
Workbooks("Libro2.xls").Worksheets("Hoja2").Activate
'abriendo un libro y deshabilitando la actualización de vínculos
'Workbooks.Open Filename:="C:\Mis documentos\Vinculado.xls",
UpdateLinks:=0
'se vuelve al estado normal de ejecución
Application.ScreenUpdating = True
End Sub
Cerrar: cerrar libro sin guardar
Véalo
aquí
Sub CerrandoLibros_1()
'cierra el libro sin guardar los cambios
Workbooks("Libro2.xls").Close False
End Sub
Cerrar: cerrar libro y guardar
Véalo
aquí
Sub CerrandoLibros_2()
'guarda y cierra el libro activo
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Guardar: Libro y desactiva alarma de aviso
Véalo
aquí
Sub GuardandoLibros()
'oculta mensajes de alerta, ejecutando la opción predeterminada
Application.DisplayAlerts = False
'guardando el segundo libro
Workbooks("Libro2.xls").SaveAs Filename:="C:\Mis
documentos\Libro2.xls", FileFormat:=xlNormal, Password:="clave",
ReadOnlyRecommended:=False
'omitiendo algunas opciones
Workbooks("Vinculado.xls").SaveAs Filename:="C:\Mis documentos\Vinculado.xls"
'cerrando un libro guardado
Workbooks("Vinculado.xls").Close
'guardando el libro activo con nombre = valor de celda
ActiveWorkbook.SaveAs Filename:=Range("A2").Value
End Sub
Seleccionar Celdas en relación a otra
Véalo
aquí
Sub selecciono08()
Range("D3").Select
ActiveCell.Offset(-2, 1).Select 'selecciona la celda que se
encuentra 2 filas por encima
'y 1 columna a la derecha de la celda activa (=D3)
End Sub
Activa las opciones de alerta
Véalo
aquí
Sub avisos()
'volver al estado normal la ejecución de los mensajes de alerta
Application.DisplayAlerts = True
End Sub
|