Macros en Visual Basic

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
<< atras

Tabla de contenidos

adelante >>