ListBox Formato Data

Question

Ciao,

Perchè la ListBox2 non riconosce la Data della colonna C pur essendo uguale.

mi totete correggere questa riga di macro.

If .Range("A" & lRig).Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0) And  _

.Range("C" & lRig).Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 0) Then

Grazie

Roccia

Answer 1

Ciao,

Perchè la ListBox2 non riconosce la Data della colonna C pur essendo uguale.

mi totete correggere questa riga di macro.

If .Range("A" & lRig).Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0) And  _

.Range("C" & lRig).Value = Me.ListBox2.List(Me.ListBox2.ListIndex, 0) Then

Grazie

Roccia

Cosa c'è nella cella delal colonna C? Una data.

Cosa c'è nella ListBox? Testo

Semplificando, metto una data in C1 e una *presunta data* nella ListBox(qui 16/04/2013):

Private Sub UserForm_Initialize()

    Me.ListBox1.AddItem "16/04/2013"

End Sub

Private Sub CommandButton1_Click()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With Me

        'non è uguale (confronto String-Data), quindi non viene eseguito il MsgBox

        If .ListBox1.List(0, 0) = sh.Range("C1").Value Then

            MsgBox "AAAAAAA"

        End If

        'è uguale (confornto Data-Data), quindi viene eseguito il MsgBox

        If CDate(.ListBox1.List(0, 0)) = sh.Range("C1").Value Then

            MsgBox "BBBBBBB"

        End If

    End With

    Set sh = Nothing

End Sub

Answer 2

Ciao Mauro,

Grazie per l'esempio,

If CDate(.ListBox1.List(0, 0)) = sh.Range("C1").Value Then

da questa riga ho trovato la soluzione

<cut>

Ciao

Bene!

Ciao e alla prossima.

Answer 3

Ciao Mauro,

Grazie per l'esempio,

If CDate(.ListBox1.List(0, 0)) = sh.Range("C1").Value Then

da questa riga ho trovato la soluzione

If .Range("A" & lRig).Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0) And _

.Range("C" & lRig).Value = CDate(Me.ListBox2.List(Me.ListBox2.ListIndex, 0)) Then

Grazie

Ciao