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 y rató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 …ver más…

Colorear fila de la celda seleccionada
Aplicación: tener una visión más clara de donde estamos introduciendo datos.
Insertar el código en la hoja
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Fila_Ant As Integer
On Error Resume Next
If Target.Row = Fila_Ant Then Exit Sub
Range("a" & Fila_Ant & ":m" & Fila_Ant).Interior.ColorIndex = xlColorIndexNone
Range("a" & Target.Row & ":m" & Target.Row).Interior.ColorIndex = 20
Fila_Ant = Target.Row
End Sub
8. Eliminar todos los nombres definidos
Aplicación:eliminar, mediante la ejecución de una macro, todos los nombre definidos a celdas y rangos en un libro.
Insertar el código en ThisWorkbook
Sub EliminarNombres()
For Each nombre In ActiveWorkbook.Names nombre.Delete Next nombre
End Sub
9. Obtener en una hoja el nombre de todas las hojas de un libro
Una vez insertado el código, al abrir el libro tendremos los nombres de todas las hojas en la primera fila, salvo la primera columna.
En ThisWorkbook insertar el código:
Private Sub Workbook_Open()
Dim contador As Integer
For contador =