¿Cómo saltar rápidamente a la celda que contiene la fecha actual en Excel?
Tiene una hoja con una lista de fechas y quiere saltar rápidamente a la celda que contiene la fecha actual. ¿Cómo puede resolver este problema?
Saltar a la fecha actual con VBA
Saltar a la fecha actual con Buscar y reemplazar
Saltar a la fecha actual con VBA
A continuación, encontrará un código VBA que le permite saltar rápidamente a la celda que contiene la fecha actual.
1. Active el libro que desea utilizar y pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en el Módulo.
VBA: Saltar a la fecha actual
Private Sub Workbook_Open()
'UpdatebyExtendoffice
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. Pulse la tecla F5 y el cursor saltará directamente a la celda con la fecha actual, sin importar en qué parte del libro se encuentre.
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Saltar a la fecha actual con Buscar y reemplazar
Si no está familiarizado con el código VBA, también puede utilizar la utilidad Buscar y reemplazar para saltar a la fecha actual.
1. Active la hoja que contiene la lista de fechas, seleccione una celda vacía, escriba esta fórmula =HOY() y pulse la tecla Intro. Así obtendrá la fecha de hoy.
2. Pulse Ctrl + C para copiar la fecha de hoy, seleccione la lista de fechas y, a continuación, pulse Ctrl + F para abrir el cuadro de diálogo Buscar y reemplazar. En el cuadro de texto Buscar qué, pulse Ctrl + V para pegar la fecha de hoy. Vea la captura de pantalla:
3. Haga clic en Buscar todo. El cursor saltará ahora a la celda que contiene la fecha de hoy en la lista seleccionada.
Consejo: Si dispone de Kutools para Excel, puede utilizar su función Seleccionar celdas específicas para realizar esta tarea rápidamente. ¡Disfrute de todas sus funciones sin limitaciones durante 30 días! Descárguelo e instálelo ahora para probarlo gratis.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos