05/07/2006, 09:26
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 18 años, 5 meses Puntos: 1 | |
| Si utilizas la función de excel de =HOY() esta función podrá servirte.
Private Sub Workbook_Open()
Sheets("Hoja1").Activate
Sheets("Hoja1").Range("A1").Select
F = 1
C = 1
While Not (Cells(F, C).FormulaR1C1 = "=TODAY()")
F = F + 1
If F = 101 Then
F = 1
C = C + 1
End If
If C = 101 Then
Exit Sub
End If
Wend
Cells(F, C).Activate
End Sub
No es que sea muy eficiente pero vale. Te busca la fecha en un área de 100x100. Tú puedes acomodarla a tu gusto y cuanto más cerca de A1 este la fecha y cuanto más pequeña sea el área, más rápido lo buscará.
Un saludo
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |