macros_libros

Anterior Siguiente

Trabajando con Libros

1-Abrir un segundo libro:

Application.Workbooks.Open "C:\Mis docu\Libro1.xls" o

Workbooks.Open "C:\.....\Libro1.xls"

2-Activar un segundo libro:

Workbooks("Libro2.xls").Worksheets("Hoja3").Activate o Workbooks(2).Sheets(3).Activate

3-Cerrar un libro (sin guardar):

Workbooks("Libro1.xls").Close False o
ActiveWorkbook.Close False

4-Cerrar un libro (guardando los cambios):

ActiveWorkbook.Save

ActiveWorkbook.Close

5-Guardar un libro con otro nombre:

ActiveWorkbook.SaveAs Filename:="C:\Mis doc\Libro1.xls", FileFormat:=xlNormal, Password:="clave", ReadOnlyRecommended:=False

Estas son algunas de las opciones. Si se omiten, escribir la coma, como en el siguiente ejemplo:
ActiveWorkbook.SaveAs Filename:="C:\Mis doc\Libro.xls",,, ReadOnlyRecommended:=False

6-Guardar un libro cuyo nombre será el valor de una celda:

ActiveWorkbook.SaveAs Filename:=Range("A2").Value

7-No mostrar aviso al salir, al eliminar hoja, o cualquier aviso que queremos omitir:

Application.DisplayAlerts= False 'volverla a True al finalizar la macro

8-Deshabilitar la opción de actualizar vínculos al abrir un libro:

Application.DisplayAlerts= False 'volverla a True al finalizar la macro
WorkBooks.Open Filename:= "C:\Mis docu\pruebas.xls", UpdateLinks:= 0

9-No mostrar la ejecución de la macro (movimiento de pantalla):

Application.ScreenUpdating = False 'volverla a True al finalizar la macro

10-Ejecutar una macro al abrir un libro:

Insertar una rutina en un módulo:

Ejemplo: Sub Nuevamacro ()

'instrucciones

End Sub

Y agregar esta otra en el objeto ThisWorkbook:
Private Sub Workbook_Open ()

Nuevamacro

End Sub

Trabajando con Hojas

1- Activar o seleccionar otras hojas:

Sheets("Hoja2").Activate o Sheets(2).Select

2-Seleccionar la hoja anterior o siguiente:

ActiveSheet.Previous.Select 'hoja anterior a la activa

ActiveSheet.Next.Select 'hoja posterior a la activa

3-Datos de la hoja:

ActiveSheet.Name 'nombre de la hoja

ActiveSheet.Index 'número de hoja

4-Copiar datos de una hoja a la siguiente:

Selection.Copy 'previamente se habrá seleccionado algo

ActiveSheet.Paste Destination:=ActiveSheet.Next.Range("B2")

5- Ocultar filas o columnas:

ActiveCell.EntireRow.Hidden=True o ActiveCell.EntireColumn.Hidden= True

6-Proteger o desproteger una hoja:

ActiveSheet.Protect "contraseña" 'proteger con contraseña

ActiveSheet.Unprotect "contraseña" 'quitar la protección

7-Insertar filas o columnas:

'reemplazar i por el nro de columna

Workbooks("Libro1").Sheets("Hoja2").Column(i).Select

Selection.EntireColumn.Insert

'reemplazar Column por Row en caso de filas.

8-Eliminar filas o columnas:

ActiveSheet.Row(n).Select 'reemplazar n por el nro de fila

Selection.EntireRow.Delete

9-Insertar una imagen en una hoja:

ActiveSheet.Pictures.Insert(ruta).Select

'la ruta entre comillas: "C:\Mis docu\Foto1.jpg"

10-Imprimir la hoja seleccionada:

ActiveWindow.SelectedSheet.PrintOut Copies:=1, Collate:=True o

ActiveSheet.PrintOut

Anterior Siguiente