Ver Mensaje Individual
  #7 (permalink)  
Antiguo 23/01/2009, 15:27
Avatar de Pablus00
Pablus00
 
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 15 años, 11 meses
Puntos: 11
Definicion y Tips para la programacion 2

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 otra:
Selection.Copy 'previamente se habrá seleccionado algo
ActiveSheet.Paste Destination:=ActiveSheet.Next.Cells(1,4)
Application.CutCopyMode= False
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:
Workbooks("Libro1").Sheets("Hoja2").Column(i).Sele ct
Selection.EntireColumn.Insert
'reemplazar Column por Row en caso de filas.
8-Eliminar filas o columnas:
ActiveSheet.Row(n).Select
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



Trabajando con 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
Range("A"&variable).Select 'selecciona la celda cuya fila será el valor de la variable
Si Rango=("B2"&":E"&variable)
entonces: Range(rango).Select 'selecciona el rango B2:E hasta la fila indicada en la variable
Range("A:A, D:F").Select 'selecciona las columnas A, D, E y F
Range("2:2, 4:7").Select 'selecciona las filas 2 y desde 4 hasta la 7.
2- Seleccionar celdas a cierta distancia de la celda activa:
Sheets(1).Range("A1").Offset(2,3).Select 'selecciona la celda D3
ActiveCell.Offset(-10,1).Select 'selecciona la celda que se encuentra 10 filas por encima
'y 1 columna a la derecha de la celda activa.

3- Formato de celdas:
Range("B2:D10").Select
With Selection
.Font.Bold=True 'formato negrita
.Font.Italic=True 'formato cursiva
.Font.Underline=xlUnderlineStyleSingle 'subrayado simple
.Font.Color = RGB(255,0,0) 'color de fuente (para estos valores será rojo)
.HorizontalAlignment=xlCenter 'alineación central (Right=derecha, Left=izquierda)
End With
4- Guardar la dirección de una celda en una variable:
lugar= ActiveCell.Address 'guarda la referencia absoluta
lugar= ActiveCell.Address(False, False) 'guarda la referencia relativa
5- Copiar un comentario en otra celda:
ActiveCell.Offset(0,1).Value = ActiveCell.Comment.Text
'copia el comentario de la celda activa en la celda que se encuentra en la
'columna siguiente.

6-Seleccionar celdas y borrarlas:
Range(rango). Select o Cells.Select
Selection.ClearContents
7- Ampliar un rango seleccionado
Selection.Resize(10,4).Select ' (10 filas, 4 columnas)
' si el rango seleccionado fue A1:B5 ahora será: A1:D10
8- Combinar celdas selecccionadas:
Range("B1:E1").Select
Selection.Merge
9- Seleccionar el rango donde se encuenra la celda activa:
Range("B2").CurrentRegion.Select
10- Seleccionar hasta la última celda no vacía:
Range("A2", Range("A2").End(xlDown)).Select 'seleciona desde A2 hacia abajo
Range("A2", Range("A2").End(xlToRight)).Select 'selecciona desde A2 hacia la derecha
Range("D2", Range("D2").End(xlToLeft)).Select 'selecciona desde D2 hacia la izquierda
Range("A20", Range("A20").End(xlUp)).Select 'selecciona desde A20 hacia arriba
En cambio, para seleccionar solo la última celda con datos será:
Range("A2").End(xlDown).Select
__________________
-- Nunca te des por vencido, aún vencido -- Web