Chidos

 C ó d i g o s | M a c r o s | Fórmulas y Trucos |
1. Abrir en la última celda escrita | Macros siempre disponibles | 1. Anotación en celda... sin insertar comentario |
2. Abrir archivos automáticamente | 1. Comparar datos entre dos hojas | 2. Crear rápidamente nombres de rangos |
3. Marcar celdas con el botón derecho del ratón | 2. Ir a la última celda con datos | 3-7 Trucos de teclado yratón |
4. Saltar a celdas concretas | 3. Modificar tamaño comentarios | 8. Introducir los mismos datos en varias hojas |
5. Scroll delimitado | 4. Macro para copiar la selección en otra hoja | 9. Cálculo de días (EDAD) + fórmulas |
6. Reemplazar mayúsculas por minúsculas | 5. Proteger y desproteger todas las hojas mediante macros | 10. Evitar números repetidos en COLUMNA |
7. Colorear lafila de la celda seleccionada |   | 11. Colorear rangos de filas |
8. Eliminar todos los nombres definidos |   | 12. Ver todas las hojas de un libro |
9. Obtener el nombre de todas las hojas |   | 13. Hipervínculo a Hoja mediante fórmula |
10. Código para consultas |   | 14. Hallar la ruta, nombre de archivo y nombre de hoja |
  |   | 15. Hallar referencia de un rango definido |
  |  | 16. Referencias dinámicas con nombre |
  |   | 17. Separar contenido de celdas |
  |   |   |
  |   |   |
Instrucciones básicas:
A. Abrir Visual Basic: ALT+F11
- o colocar el botón en la barra de herramientas (Personalizar la Barra de herramientas - Comandos - Herramientas)
 
B. Insertar módulo: Menú Insertar - Módulo: pegar el código facilitado.
 
C. Insertar código en unahoja en concreto: doble clic en el nombre de la hoja: pegar el código en la ventana de la derecha.
 
D. Insertar código en todo el libro: doble clic en ThisWorkbook.
 
E. Ejecutar macros creadas: ALT+F8
- o menú Herramientas - Macros - Macros, seleccionar y Ejecutar
 
F. Asignar método abreviado para ejecutar Macros:
menú Herramientas - Macros - Macros, seleccionar y pulsar elbotón Opciones
 
G. Botón para Macro en la Barra de Herramientas:
Personalizar Barra de Herramientas - Comandos: Macros, arrastrar "Personalizar botón" a la Barra de Herramientas, pulsar con el botón derecho del ratón sobre el botón sacado y seleccionar "Asignar Macro".
También podemos cambiar la imagen asignada, cambiarle el nombre, etc.
 

     C ó d i g o s    
1. Abrir en la últimacelda escrita
Insertar un módulo con lo siguiente:
Sub Auto_Open()
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub
2. Abrir archivos automáticamente
Al abrir un libro que se abran automáticamente otros libros.
Insertar en el primer libro el siguiente código en ThisWorkbook:
Private Sub Workbook_Open()
Workbooks.Open ("archivo1.xls")
Workbooks.Open ("archivo2.xls")
End Sub
3.Marcar celdas con el botón derecho del ratón
Aplicación: resaltar celdas correctas. Se aplica el color determinado (rojo) en las celdas de las columnas A:D haciendo dos veces clic con el botón derecho.
Insertar el código en cada hoja (Worksheet) en el que queramos aplicarlo:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns("a:d")) IsNothing Then Exit Sub Else Cancel = True
With ActiveCell.Interior
If .ColorIndex = xlColorIndexNone _
Then .ColorIndex = 3 Else .ColorIndex = xlColorIndexNone
End With
End Sub
4. Saltar a celdas concretas dentro de la misma hoja
Aplicación: introducir datos en una celda y saltar a la siguiente celda establecida.
Private Sub Worksheet_Change(ByVal Target As Range)
Select CaseTarget.Address
Case Is = "$F$1": Range("B4").Select
Case Is = "$B$4": Range("D3").Select
Case Is = "$D$3": Range("B9").Select
Case Is = "$B$9": Range("B5").Select
'y así sucesivamente...
End Select
End Sub
5. Scroll delimitado en una hoja de un libro
Aplicación: impedir desplazar la hoja fuera del rango marcado en el código.
Insertar el código en ThisWorkbook:
Private Sub Workbook_Open()...