Condividi:        

Ricerca con riferimento

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Ricerca con riferimento

Postdi rotella » 14/06/10 10:45

Ciao chiedo se c'è qualcuno che mi corregga il listato vba ho inserito una ricerca per isola e data ma non mi funziona es. se inserisco isola 12 e data 06/06/2010 mi da tutti i valori di isola 12 è in più mi inserisce qualke valore di isola non richiesta solo xkè ha la data richiesta.
spero di essere stato abbastanza chiaro qui c'è il listato
Codice: Seleziona tutto
Private Sub CmdAnnulla_Click()
    Unload Me
    Sheets(1).Select
    Menu.Show
    Exit Sub
    End Sub
Private Sub UserForm_Activate()
    TxtIsola.Text = ""
    TxtIsola.SetFocus
End Sub



Private Sub Cmdcerca_Click()
   
    Range("B2").Select
   
    NR = 0
    Do While Range("B" & NR + 1).Text <> ""
    NR = NR + 1
    Loop
    risposta = 7
    indi = 2
    'Ricerca per Isola e Data
    StringaCercata = TxtIsola.Text
    StringaCercata = TxtData.Text
   
    Do While (risposta = 7) And (indi <= NR)
      CellaValutata = Range("B" & indi).Text
      CellaValutata = Range("L" & indi).Text
      MyPos = InStr(1, CellaValutata, StringaCercata)
     
      If MyPos <> 0 Then
        numriga = indi
       
        'Ricerca per Isola
        Reparto = Range("A" & numriga)
        Isola = Range("B" & numriga).Text
        Operatore = Range("C" & numriga).Text
        Codice = Range("D" & numriga).Text
        Descrizione = Range("E" & numriga).Text
        Quantità = Range("F" & numriga).Text
        Tipo = Range("G" & numriga).Text
        Scarto = Range("H" & numriga).Text
        Media = Range("I" & numriga).Text
        Cliente = Range("J" & numriga).Text
        Note = Range("K" & numriga).Text
        Data = Range("L" & numriga).Text
        Criticità = Range("M" & numriga).Text
        Frmstampa.Hide
   
        'Copia dati di ricerca su foglio 3
        Worksheets("Storico").Range("A" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("A" & numriga)
        Worksheets("Storico").Range("B" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("B" & numriga)
        Worksheets("Storico").Range("C" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("C" & numriga)
        Worksheets("Storico").Range("D" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("D" & numriga)
        Worksheets("Storico").Range("E" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("E" & numriga)
        Worksheets("Storico").Range("F" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("F" & numriga)
        Worksheets("Storico").Range("G" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("G" & numriga)
        Worksheets("Storico").Range("H" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("H" & numriga)
        Worksheets("Storico").Range("I" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("I" & numriga)
        Worksheets("Storico").Range("J" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("J" & numriga)
        Worksheets("Storico").Range("K" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("K" & numriga)
        Worksheets("Storico").Range("L" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("L" & numriga)
        Worksheets("Storico").Range("M" & numriga).Copy Destination:=Worksheets("Dati Temporanei").Range("M" & numriga)
       
       'Sub EliminaRigaVuota()
        Worksheets("Dati Temporanei").Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

       
       
       
          End If
          'Visualiza il cursore
           TxtIsola.SetFocus
               
                   
       If risposta = 2 Then
        Frmstampa.Hide
       
        Exit Sub
      End If
      indi = indi + 1
    Loop
    'Apertura Foglio 3
     Sheets(3).Select
   
    Exit Sub
    End Sub


Modificato titolo topic e inserito codice nel tag CODE - Moderatore Flash30005
rotella
Utente Junior
 
Post: 17
Iscritto il: 29/05/10 09:10

Sponsor
 

Re: Ricerca con riferimento

Postdi socrat3 » 14/06/10 19:05

Posta un file di esempio e dai piu' indicazioni!

ciao
socrat3
Utente Junior
 
Post: 16
Iscritto il: 06/06/10 10:05

Re: Ricerca con riferimento

Postdi Flash30005 » 14/06/10 23:10

Secondo me ci sono delle variabili uguali e quindi laseconda sovrascrive la prima, più precisamente la data sovrascrive l'isola in queste righe di codice
Codice: Seleziona tutto
 StringaCercata = TxtIsola.Text       '<<<< variabile identica a...
    StringaCercata = TxtData.Text            '<<<< ...questa
   
    Do While (risposta = 7) And (indi <= NR)
      CellaValutata = Range("B" & indi).Text         '<<<< variabile identica a.
      CellaValutata = Range("L" & indi).Text         '<<<< ...questa

inoltre qui (modifica insignificante rispetto all'errore, è solo per più chiarezza)
Codice: Seleziona tutto
   NR = 0
    Do While Range("B" & NR + 1).Text <> ""


puoi fare così
Codice: Seleziona tutto
   NR = 1
    Do While Range("B" & NR).Text <> ""


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Ricerca con riferimento

Postdi rotella » 15/06/10 17:00

Ciao flash grazie della ripsosta, ma mi puoi aiutare modificare il listato in modo ke mi ricerchi sia per isola che per data io ho già un form con due caselle di text per inserimento una il numero di isola e l'altra la data. ciao e grazie ancora
rotella
Utente Junior
 
Post: 17
Iscritto il: 29/05/10 09:10

Re: Ricerca con riferimento

Postdi Flash30005 » 15/06/10 21:34

Ti aiuterei volentieri ma come dici tu
rotella ha scritto: io ho già un form con due caselle di text per inserimento una il numero di isola e l'altra la data

Tu hai il form etc etc non io
e ho solo un po' di esperienza e come tale è pratica non teoria...

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Ricerca con riferimento

Postdi Anthony47 » 15/06/10 23:50

Anche io mi dichiaro incapace di correggere una macro che non si sa che cosa dovrebbe fare ma che comunque non lo fa bene, lavorando su una struttura dati ignota, con delle userform ignote...

Assodato, quindi, che non siamo veggenti le prime cose che dovresti dirci e' la struttura dati su cui lavori , che cosa vorresti fare, come hai provato a farlo, che cosa ti succede, che cosa ti aspettavi che sarebbe successo.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Ricerca con riferimento":


Chi c’è in linea

Visitano il forum: systemcrack e 75 ospiti