Ricerca tramite data

Hai un problema con Excel?

Nuova discussione

Ricerca tramite data
di youngdade1991 data: 20/01/2014 11:01:50
Buongiorno a tutti,
premetto di essere un novellino nell'utilizzo di Excel ed è per questo che mi rivolgo a voi per un aiuto.
In pratica dovrei realizzare un file di Excel avente due schede.
Una si chiamerà "inserimento" e l'altra "visualizzazione" e come si intuisce dal nome...le due schede avranno le stesse colonne (gli stessi campi)... e serviranno una, a inserire dei nuovi ordini aventi come chiave la data...mentre nell'altra, la possibilità di visualizzare i dati inseriti con una ricerca per data.

Quindi in pratica deve funzionare come una semplice agenda...dove in una scheda ti permetta di inserire nuovi appuntamenti...e nell'altra visualizzare tutti gli appuntamenti per una data selezionata.

Io ho provato a implementarla utilizzando la ricerca verticale...ma con scarsi risultati dato che non riuscivo a gestire due righe con la stessa data...e aveva anche problemi di visualizzazione.

Non credo sia una cosa molto complicata ma aimé le mie conoscenze di excel sono proprio ridotte.
Grazie in anticipo a chiunque mi aiuti a capire come devo fare.
Saluti
di patel data: 20/01/2014 11:47:28
Come si fa ad aiutarti se non alleghi il file ?
di youngdade1991 data: 20/01/2014 11:56:44
Chiedo scusa...ero convinto di averlo caricato.

di Mister_x (utente non iscritto) data: 20/01/2014 15:51:14
ciao

con una sub() la cosa e' risolvibile all'istante

ti passo il tuo file con la sub() inserita per fare questo lavoro

ciao Mister_x

Option Explicit

Sub Ritiro()
Dim D_oggi As Date
Dim Nriga As Long, i As Long
D_oggi = Range("E7")
Nriga = 12
Range("B12:K21").ClearContents
For i = 2 To 3000
  If IsDate(Worksheets(2).Cells(i, 2)) Then
    If D_oggi = Worksheets(2).Cells(i, 2) Then
    Cells(Nriga, 2) = Worksheets(2).Cells(i, 3)
    Cells(Nriga, 3) = Worksheets(2).Cells(i, 4)
    Cells(Nriga, 4) = Worksheets(2).Cells(i, 5)
    Cells(Nriga, 5) = Worksheets(2).Cells(i, 6)
    Cells(Nriga, 6) = Worksheets(2).Cells(i, 7)
    Cells(Nriga, 7) = Worksheets(2).Cells(i, 8)
    Cells(Nriga, 8) = Worksheets(2).Cells(i, 9)
    Cells(Nriga, 9) = Worksheets(2).Cells(i, 10)
    Cells(Nriga, 10) = Worksheets(2).Cells(i, 11)
    Cells(Nriga, 11) = Worksheets(2).Cells(i, 12)
    Nriga = Nriga + 1
    End If
    Else
  Exit Sub
  End If
Next i
End Sub

GRAZIE!
di youngdade1991 (utente non iscritto) data: 20/01/2014 16:14:13
Grazie mille!! È perfetto e fa il suo dovere...se ti conoscessi ti offrirei un caffè sicuramente

Grazie ancora e ciao.

Vuoi Approfondire?