Hop til dato via userform.

Ja, tryk ind på din userform og klik på din calender. I properties finder du tagindex - sæt den til 1. Så er det første step når du bruger tab tasten.

Sub ShowIt()
application.Goto Reference:="VÆLGDATO"
    UserForm1.Show
Me.Calender.SetFocus
End Sub


Eller også:

Sub userform_Activate()
Me.Calender.SetFocus
End Sub

Hmmm...kanikke finde tagindex.....kun tag...mon det er det samme ?
Jeg får problemer med ME.Calender.SetFocus, den giver mig Compile error,
Invalid use of Me keyword

Hvor er "dato" placeret - på fanen eller i de enkelte ark?

"Calender" - huskende du at skifte til det navn du har givet din Calender?? Hvis du trykker Me."så kommer der forslag op"

Ja, undskyld den lange svartid, jeg har ikke været på pinden i et stykke tid....og Jo navnet var godt nok. Jeg må indrømme at jeg har opgivet ævret for nu det blev for kompliceret, men tak for forsøget.

Man skal ikke - opgive!
Er det arkfanerne, der indeholder datoen??
- prøv at sende regnearket til: pb@supertekst-it.dk

Filen fylder er stor over 3 MB og indeholde nogle "følsomme" data så jeg kan ikke lige vupti sende den videre, jeg kunne muligvis konstruere en eksempel fil.

Men først kan jeg lige prøve at forklare mig lidt bedre.

Filen fungerer som en kalender og indeholder omkring 10 ark. Hvert ark viser et halvår og kun de 2 aktuelle halvår vises, de øvrige er skjulte. Hver kolonne (fra D til ca GD) viser en dag. Datoen vises i række 2.

Nu vil jeg gerne have en "Find dato" knap, således at userformen Calendar aktiveres og når jeg prikker på en dato hopper Excel til denne dato, og hvis der er tale om en gammel dato hives arket frem fra gemmerne.

Jeg er kommet så langt at userformen er oprettet, når jeg trykker på min "Find dato" knap indsættes datoen i celle A1....her stopper min ekspertise :-)...og jeg har brug for hjælp.

Hvis det er arkfanerne, der har datoen:

Private Sub Calendar1_Click()      'Ved klik på dato i kalender - navn evt. tilpasses
    dato = CStr(Calendar1.Value)
   
    For Each ark In ActiveWorkbook.Sheets
        If ark.Name = dato Then
            ark.Activate
            Exit Sub
        End If
    Next
    MsgBox ("Dato kunne ikke findes")
End Sub

Men det er det ikke....datoerne ligger i arkene i række 2...arkene hedder typisk "1.Halvår 2005" o.s.v.

OK - det er forståeligt...

Din forklaring kan anvendes - vender tilbage....

Tillægsspørgsmål - hvad står der på arkfanerne: 01-01-07 - 30-06-07 f.eks. eller ?

som jeg skrev før...arkfanerne hedder f.eks. "1.HALVÅR 2005" hhv. "2.HALVÅR 2007" o.s.v.

undskyld - havde ikke bemærket det...

Følgende kode er indlagt i Userform, der kun indeholder kalenderen:
Hvordan skal proceduren være vedr. de skjulte ark - de bliver vist når søgningen lander i sådan et.

Dim dato As Date, halvÅr As String, måned, år
Private Sub Calendar1_Click()      'Ved klik på dato i kalender - navn evt. tilpasses
    dato = Calendar1.Value
    år = Format(dato, "YYYY")
    måned = DatePart("m", CStr(dato), 2, 2)
    If måned < 7 Then
        halvÅr = "1"
    Else
        halvÅr = "2"
    End If
   
    findRelevanteArk
End Sub
Private Sub findRelevanteArk()
Dim arkNavn
    arkNavn = halvÅr + ".HALVÅR " + år
   
    For Each ark In ActiveWorkbook.Sheets
        If ark.Name = arkNavn Then
            ark.Visible = True
            ark.Activate
            SøgIark
            Exit Sub
        End If
    Next
    MsgBox ("Dato kunne ikke findes")
End Sub
Private Sub SøgIark()
Dim antalKol
        antalKol = ActiveCell.SpecialCells(xlLastCell).Column
       
        For k = 4 To antalKol
            If Cells(2, k) = dato Then
                Cells(2, k).Select
                Exit Sub
            End If
           
        Next k
End Sub

Hvad kan jeg sige......

det er bare suverænt...lige i øjet, tusind tak - never never opgivedet er forstået :-)

smid et svar

Fint... - her er et svar...