Comandos

Solo disponible en BuenasTareas
  • Páginas : 7 (1551 palabras )
  • Descarga(s) : 0
  • Publicado : 27 de marzo de 2011
Leer documento completo
Vista previa del texto
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 False4-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:\Misdoc\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 un módulo y allí escribir una rutina:Ejemplo: Sub Nuevamacro ()
'instrucciones, por ej:
MsgBox "Bienvenid@"
End Sub

Y agregar esta otra en el objeto ThisWorkbook:
Private Sub Workbook_Open ()
Nuevamacro
'o también se puede llamar utilizando la expresión Call
'CallNuevamacro
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 ' filas
ActiveCell.EntireColumn.Hidden= True'col

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 defilas.

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 va entre comillas, por ej: "C:\Mis docu\Foto1.jpg"

10-Imprimir la hoja seleccionada:
ActiveWindow.SelectedSheet.PrintOut Copies:=1, Collate:=True 'oActiveSheet.PrintOut

Reemplazar PrintOut por PrintPreview para realizar solo una vista preliminar.


Trabajando con Rangos o Celdas


1- Formas de seleccionar una celda o un rango de celdas:

Range("B7").Select 'selecciona la celda B7
Range("B:B").Select 'selecciona toda la columna B

Range("A4:A10, D10, B5:B20").Select
'selecciona rangos discontinuos...
tracking img