Avatar billede mira96ac Novice
02. december 2007 - 22:57 Der er 14 kommentarer og
1 løsning

Userform+dato+comboboks

Hejsa

Jeg kalder nedenstående linie ved min userform_activate:

Me.f_dato = Format(Date, "dd-mm-yy") (sætter dags dato som default)

Og har denne Sub:

Private Sub f_dato_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Not IsDate(Me.f_dato) Then
        MsgBox "Dette er ikke et godkendt format for dato. Indtast venligst som dd-mm-åå.", vbExclamation, "Dato"
        Cancel = True
       
        Else
      Me.f_ugenr = Format(Me.f_dato, "ww", vbMonday, vbFirstFourDays)
     
    End If
 
End Sub

MEN jeg vil meget gerne have, at man KUN kan taste datoen som i dette format. Den godtager nemlig også andre formater (bla. uden åå).
Denne værdi bliver gemt i det bagvedliggende Excel ark hvor datoformattet SKAL være det samme.

Hvordan sikrer jeg mig det ?

Jeg tillader mig også et lille nemt bonusspørgsmål. Jeg har på samme userform en Comboboks som henter værdierne fra en Excelliste. Hvordan får jeg den til ikke at absolut vil have en værdi. Hvis man nu har aktiveret boksen og ikke valgt fra listen skriver den nemlig en fejl når man prøver at gå til en anden del af userformen ?

Håber i kan hjælpe.
Avatar billede kabbak Professor
02. december 2007 - 23:00 #1
Du kan teste på længden
  If Not IsDate(Me.f_dato) and len(Me.f_dato)<> 8 Then
Avatar billede kabbak Professor
02. december 2007 - 23:03 #2
Jeg var lidt for hurtig, det er sådan jeg mener

Private Sub f_dato_Exit(ByVal Cancel As MSForms.ReturnBoolean)

  If  IsDate(Me.f_dato)and len(Me.f_dato)<> 8 Then
Me.f_ugenr = Format(Me.f_dato, "ww", vbMonday, vbFirstFourDays)
        Else
        MsgBox "Dette er ikke et godkendt format for dato. Indtast venligst som dd-mm-åå.", vbExclamation, "Dato"
        Cancel = True
    End If

End Sub
Avatar billede kabbak Professor
02. december 2007 - 23:04 #3
If  IsDate(Me.f_dato) and len(Me.f_dato)= 8 Then
Avatar billede kabbak Professor
02. december 2007 - 23:05 #4
du kan se at det var en hård weekend, med alle de fejl ;-))
Avatar billede mira96ac Novice
03. december 2007 - 07:18 #5
Hvad med at skrive værdien i en celle i Excel korrekt? Er det alene et spørgsmål om at formattere cellen korrekt ?

Har du en hjælp til spørgsmål to vedr. Comboboks ?
Avatar billede kabbak Professor
04. december 2007 - 12:48 #6
så skal jeg se koden, hvori den fejler
Avatar billede mira96ac Novice
04. december 2007 - 16:33 #7
Det er ikke koden der fejler.

Der er VBA som ikke vil accepterer at man har valgt denne combobox og ikke valgt en værdi på rullelisten.

Fejlen kommer når man vil forlade comboboksen.
Avatar billede kabbak Professor
04. december 2007 - 17:12 #8
Har du sat MatchRequired til False, under properties
Avatar billede mira96ac Novice
04. december 2007 - 17:22 #9
Den står til True...

Er det det som er galt. Hvad hvis jeg sætter den til False, kan brugeren så skrive en værdi som ikke findes på rullelisten ?
Avatar billede kabbak Professor
04. december 2007 - 17:29 #10
Ja, det kan han, men du kan tage en tom celle med nederst i RowSource,
Avatar billede kabbak Professor
04. december 2007 - 17:30 #11
og så sætte MatchRequired til True, så godkender den jo den tomme celle
Avatar billede mira96ac Novice
04. december 2007 - 19:44 #12
Super.

Kan man bruge denne hvis kildedata til comboboksen bliver hentet således:

Set dataarkXLS = CreateObject("Excel.application")
    With dataarkXLS
        .Workbooks.Open DataSti, False, True
        .Sheets(3).Activate
        Max = .ActiveCell.SpecialCells(xlLastCell).Row+1 (jeg har tilføjet +1 som er blank)
        For r = 11 To Max
            Me.f_projekt.AddItem .Cells(r, 1)
        Next r
    End With (jeg har tilføjet +1 som er blank)

Tak for hjælpen. kom med et svar så får du point.

Hvis du har tid må du meget gerne kigge på dette spørgsmål. Jeg ved det er lukket, men gider du hjælpe opretter jeg det bare som spørgsmål igen.

http://www.eksperten.dk/spm/808046
Avatar billede kabbak Professor
04. december 2007 - 23:18 #13
et svar ;-))
Avatar billede kabbak Professor
04. december 2007 - 23:46 #14
Jeg mener ikke at en pivot kan tage data fra flere ark.
Avatar billede kabbak Professor
04. december 2007 - 23:49 #15
Jeg mener ikke at en pivot kan tage data fra flere ark.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester