problemi con una data

Hai un problema con Excel?

Nuova discussione

problemi con una data
di trump61 data: 22/03/2016 20:32:55
Ciao altra domanda, Ho un problema con una data messa in un filtro, in pratica inserisco con tre combobox la data in una textbox che ho personalizzato così: 1 codice
trasferisco questo nel foglio dove ci sono i criteri ma praticamente quando avvio il fitraggio non succede nulla se tolgo a dato tutto funziona regolrmente è la mia tabella è filtrata con i dati da me immessi
il secondo codice è quelo che uso per filtrare i dati e far visualizzare in una Userform i risultati.
mentre facevo delle prove per vedere come poteva funzionare inserivo una data da una combobox che facevo riempire con una data e aggiungendo 1 o sottraendo 1 mi ritrovavo con tre date possibili e funzionava adesso no, non capisco perchè, qualche anima pia può darmi un suggerimento?
Grazie

1 codice
Private Sub TextBox3_Change()
 Dim lng As Long
    With Me
        .TextBox3.Value = Format(.TextBox3.Value, "dd/ mm /yyyy")
    End With
End Sub

2°Codice
Private Sub CommandButton2_Click()
Dim sh1 As Worksheet: Set sh1 = Worksheets("Scheda")
Dim sh2 As Worksheet: Set sh2 = Worksheets("DataBase")
Dim numrec As Long
Dim alfa As Range
    sh2.Range("A2") = UserForm4.TextBox2.Text
    sh2.Range("B2") = UserForm4.ComboBox10.Text
    sh2.Range("C2") = UserForm4.TextBox3.Value
    numrec = sh2.Range("A1").End(xlDown).Row
 sh2.Range("A1:D" & numrec).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=sh2.Range("A1:D2"), CopyToRange:=sh2.Range("G1:J1"), Unique:=False
 sh2.Activate
 sh2.Range("G3").Select
UserForm3.TextBox2 = ActiveCell.Value
UserForm3.TextBox3 = ActiveCell.Offset(0, 1).Value
UserForm3.TextBox4 = ActiveCell.Offset(0, 2).Value
UserForm3.TextBox5 = ActiveCell.Offset(0, 3).Value
UserForm3.Show
End Sub

di trump61 data: 22/03/2016 23:48:31
Risolto grazie
di patel data: 23/03/2016 07:43:07
una discussione è risolta se viene riportata la soluzione
di trump61 data: 24/03/2016 16:27:53
Cioa ho risolto togliendo il 1 codice, ed ho inserito su
Userform_Initialize
la stringa
TextBox3 = Format(TextBox3, "dd/ mm /yyyy").
adesso funziona

Vuoi Approfondire?