Date e terxtbox

Hai un problema con Excel?

Nuova discussione

Date e terxtbox
di Enzo (utente non iscritto) data: 24/11/2010
Caio a tutti avrei un problema di questo tipo
ho due textbox in una userform dove inserisco delle date "dal" "al" ora nella colonna a ho dei dati e di fianco nella colonna b una data
che istruzione posta in un command button posso utilizzare per far si che nella colonna c mi compaiono i dati se sono inseriti nel periodo che indico nelle trext box
ossia
se in una text ho 01.05.2010 e nell'altra 20.08.2010 dovrebbe prendere i dati nella colonna ha che hanno come data compresa tra queste due e scrivermi i dati nella colonna c
spero di essere stato chiaro

di Albatros54 (utente non iscritto) data: 28/11/2010
Per quello che ho potuto capire.
ti posto il codice che potrebbe essere la base di partenza per le tue esigenze.
nella colonna a1:a28 inserisci delle date.
nella colonna b1:b28 dei dati.
in un modulo di vba inserisci il codice postato, ti trovera i dati inseriti nella colonna b che sono comprese tra le due date che tu hai inserito nelle due inputbox. naturalmente si deve implementare per gestire gli errori.
ciao
albatros54

Public Sub data()
Dim mydate1 As Date
Dim mydate As Date
 mydate = Application.InputBox("introduci la data di inizio nel formato gg/mm/yyyy", Type:=2)
 mydate1 = Application.InputBox("introduci la data di fine nel formato gg/mm/yyyy", Type:=2)
Set Rng = Range("A1:A28")
Set foundcell = Rng.Find(what:=mydate)
Set foundcell1 = Rng.Find(what:=mydate1)

For Each cl In Rng
If cl <= foundcell Or foundcell1 >= cl Then
MsgBox " Alla data " & cl.Value & " il dato è " & cl.Offset(0, 1) '.Address
End If
Next

End Sub

di Albatros54 (utente non iscritto) data: 28/11/2010
Sostituisci la riga
if cl <= foundcell or foundcell1 >= cl then
con
if foundcell <= cl and foundcell1 >= cl then
piccolo errore per la fretta
ciao
albatros54
di Enzo (utente non iscritto) data: 29/11/2010
Ciao albatros e scusa se rispondo in ritardo ma purtroppo al lavoro abbiamo dei blicchi sui forum
grazie per la risposta
ho provato la tua soluzione ma mi si blocca sull'istruzione

'if foundcell <= cl and foundcell1 >= cl then
mi restituisce l'errore
errore blocco with non impostato o qualcosa del genere ora non ricordo in quanto sto rispondendo da casa
non so cosa sbaglio
di Albatros54 (utente non iscritto) data: 30/11/2010
Versione excel 2007.
le date debbono essere nelle celle del foglio nel formato gg/mm/yyyy.
tutto funziona.
non capisco l'errore , se nel codice non e' presente il with.
ho riprovato e tutto funziona.
ciao
albatros54

Vuoi Approfondire?