jeg har et ark som vist det er frosset ved den markerede celle, jeg kører 2 søgninger ved workbook_open en på nr. range(B2:CU) og en på dags dato range(A2:A2000) ved en søgning på 75 og en dato eks. idag ender den med at springe ned og vise dags dato men den går ikke til siden og viser nr. 75


what 2 do, what 2 do :-)

min formel til at finde og gå til dato jeg bruger en tilsvarende til at finde nr.

Sub Find()

Dim finddato As Range
Set finddato = Range("A2:A2200")

Dim idag As Date
idag = Date

For Each cell In finddato
  If cell = idag Then
    cell.Select
    Else
  End If
Next

End Sub




bruger forresten Excel 2010

den er faktisk endt med at være en find bruger og så er den range("B1:CU1") består nu af navne men det ændre ikke ved opgaven :-)

koden er her

Sub GetUser()
'**** gå til bruger af PC *****************
Dim strUser As String
strUser = Environ("USERNAME")
Set finduser = Range("B1:CU1")


For Each cell In finduser
  If cell = strUser Then
    cell.Select
    Else
  End If
Next

End Sub

skal den både finde dags dato i Range("A2:A2200") og user i Range("B1:CU1")
og så selecte diagonalt/horisontal der hvor de kryder ?

Sub xFind()
x = Range("B1:CU1").Find(Environ("USERNAME"), LookIn:=xlValues).Column
y = Range("A2:A2200").Find(Date, LookIn:=xlValues).Row
Cells(y, x).Select
End Sub