Cambiar la celda donde inicia excel

[Pablus00]

Como puedo hacer para que el status de excel se situe en una celda con la fecha de hoy?

Seria algo asi como: si fecha de hoy=celda xx , entonces situar el status ahi

Gracias colegas por la info

[karla_gemi]

Hola que tal, quizas no tenga el suficiente conocimiento para responder
tu pregunta correctamente pero al menos lo intentare.
Como se trata de excel, intente ver que era status pero no encontre info
al respecto.
A pesar de eso, tal vez esto te sirva.

Private Sub Workbook_Open()
'Cada vez que abres el libro de excel se aplica esta macros
'Indicas el rango y la hoja desde donde quieres que se haga la busqueda
'hacia abajo.
Sheets("Hoja1").Activate
Sheets("Hoja1").Range("A1").Select

'Que revise solo las celdas que contengan información
Do While ActiveCell <> Empty

If ActiveCell.Value <> 0 Or ActiveCell.Value <> "" Then
Fecha = Date
If ActiveCell.Value = Fecha Then
ActiveCell.Offset(0, 0).Select
Exit Sub
Else
ActiveCell.Offset(1, 0).Select
End If
End If
'Si finalmente se llega a una celda vacia o con un cero, avisa que no
'encontro la fecha y regresa a la celda A1
If ActiveCell.Value = 0 Or ActiveCell.Value = "" Then
MsgBox "No se encontro una celda que contenga la fecha de hoy", vbInformation, "Fecha actual no encontrada"
Range("A1").Select
Exit Sub
End If
Loop

End Sub


Espero te sea de utilidad, y si no pues, al menos lo intente :P bye

[potypoty]

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

[3pies]

¿Esa pregunta, no es la misma que esta?