Excel 2003 Funzione d'utente con periodi?

[papiriof]

Ho questa situazione nel TextBox1 inserisco una data che va dal 1/1/92 al 31/12/96
nel textBox2 vorrei che finisse un testo tipo " Col1"
se invece inserisco una data che va dal 1/1/97 al 31/12/99
nel textBox2 vorrei che finisse un testo tipo " Col2" e cosi via per diversi periodi
Come fare , penso a una funzione d'utente che mi restituisca "Col1","Col2","Col3" ecc ma con le date mischiate a testo mi viene difficile... help me.

[Flash30005]

Nel codice relativo al TextBox1 puoi inserire queste righe di macro

Codice: Seleziona tutto

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Miadata = DateSerial(Mid(Me.TextBox1.Value, 7, 4), Mid(Me.TextBox1.Value, 4, 2), Mid(Me.TextBox1.Value, 1, 2))
Select Case Miadata
Case DateSerial(1992, 1, 1) To DateSerial(1996, 12, 31)
MiaCol = "Col1"
Case DateSerial(1997, 1, 1) To DateSerial(1997, 12, 31)
MiaCol = "Col2"
Case Else
MiaCol = "ColNo"  ' tutti gli altri casi non presenti nei "case" precedenti
End Select
Me.TextBox2.Text = MiaCol
End Sub


Nella select puoi inserire, chiaramente, altri "case"

ciao

[papiriof]

Grazie Flash , scusa controllo meglio .......eh ehh FUNZIONA ,FUNZIONAAAA!!!!
Se possibile un commento , quamdo vuoi alle prime 2 righe:
Private Sub TextBox15_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
miadata = DateSerial(Mid(Me.TextBox15.Value, 7, 4), Mid(Me.TextBox15.Value, 4, 2), Mid(Me.TextBox15.Value, 1, 2))

[Flash30005]

Il Brivate Sub TextBox15_BeforUpdate(....
è il comando che si avvia quando viene aggiornato il textbox15, cioè quando digiti un testo e premi invio
miadata = DateSerial(Mid(Me.TextBox15.Value, 7, 4), Mid(Me.TextBox15.Value, 4, 2), Mid(Me.TextBox15.Value, 1, 2))
Miadata è una variabile che acquisisce il testo digitato in Textbox15 suddividendolo in
anno = Mid(Me.TextBox15.Value, 7, 4)
mese = Mid(Me.TextBox15.Value, 4, 2)
giorno = Mid(Me.TextBox15.Value, 1, 2))
inseriti in questo ordine nella funzione DateSerial si ottiene la data nel formato configurato nel Pc
(gg/mm/aaaa oppure mm/dd/yyyy)

Ciao

[papiriof]

Grazie Flash per la pazienza e le spiegazioni .
Grazie ai vostri consigli ho quasi finito quel file del precedente post. Sta filando tutto liscio se non fosse per questo piccolo
inconveniente , ho questo codice:

Codice: Seleziona tutto

Private Sub TextBox16_Change()
On Error Resume Next
TextBox17.Value = Application.WorksheetFunction.VLookup(TextBox5.Value, Worksheets("t1").Range("Dipe"), 2, False) & TextBox3.Value & TextBox7.Value & TextBox16.Value
End Sub

dove si evince che quando cambia il TextBox16 il textbox17 si popola con riferimenti provenienti da textbox 3,5 e 7.
Ora siccome il file citato prevede delle possibili MODIFICAZIONI degli inserimenti già fatti mi capita di modificare il textbox 3 e in questo caso il textbox17 non si modifica pur essendo in un certo senso legato a quello che avviene nei textbox 3,5 e 7 come ovviare a tutto ciò?
In un medesimo file impostato non su userform le correzioni sono conseguenziali qui come si può fare?

[Anthony47]

Prova ad aggiungere una macro di Textbox3_Change del tipo

Codice: Seleziona tutto

Private Sub TextBox3_Change()
TextBox16.Text = TextBox16.Text & "_"
TextBox16.Text = Left(TextBox16.Text, Len(TextBox16.Text) - 1)
End Sub


In questo modo sfrutterai l' evento TextBox16_Change per ottenere l' effetto voluto

Se ok, replica con TextBox5/7_Change

Ciao