Ricerca

di
Anna04
il
6 risposte
A
Anna04
Pochi posts
Iscritto da
ago, 2018
Messaggi:
13

Ricerca

Buonasera,

In un foglio di magazzino ho creato una lista di articoli, dalla colonna A alla Z, distribuiti su tantissime righe.
Vorrei, con la macro, poter ricercare dei codici articoli in determinate colonne (es.soltanto colonna c, oppure colonna a, etc....), scelta da me, vorrei che la ricerca venisse effettuata soltanto nella colonna da me scelta, ma continua e non mi permette di uscire sino a quando non visualizza tutti i codici, uguali, presenti nell'intervallo da A:Z. Vorrei anche poter decidere quando fermarmi.


https://drive.google.com/open?id=1RRBYKk-rR2ACBW03mDKASiIl1bl1uEbv

Grazie
Saluti
Anna

6 Risposte

  • M
    Marius44
    Utente Attivo
    Iscritto da
    set, 2015
    Messaggi:
    169

    Re: Ricerca

    Ciao
    Prova ad "aggiustare" la tua macro così 
    
Sub Pulsante2_Click()
inpt = InputBox("valore da cercare")
col = InputBox("in quale colonna cercare")
Range(col & 1).Select
With Columns(col)
  Set c = .Find(inpt, After:=ActiveCell, LookIn:=xlValues, SearchOrder:=xlColumns, SearchDirection:=xlNext)
  x = 1
  If Not c Is Nothing Then
    firstAddress = c.Address
    Do
      c.Select
      Dim irisposta As Integer
      irisposta = MsgBox("trovato " & x & " Vuoi fermati?", vbYesNo)
      If irisposta = vbYes Then 'se rispondo Si allora
      	exit sub
      End If  'esco dal ciclo
      Set c = .FindNext(c)
      x = x + 1
      Loop While Not c Is Nothing And c.Address <> firstAddress
  End If
End With
End Sub
    Nota cosa ho cambiato rispetto al tuo codice.
    Fai sapere. Ciao,
    Mario
  • A
    Anna04
    Pochi posts
    Iscritto da
    ago, 2018
    Messaggi:
    13

    Re: Ricerca

    Buongiorno
    Grazie mille Mario
    Adesso è perfetta
    Buonissima giornata
  • A
    Anna04
    Pochi posts
    Iscritto da
    ago, 2018
    Messaggi:
    13

    Re: Ricerca

    Buonasera,
    Vorrei che la ricerca non cercasse il valore nelle formule.
    E' possibile?
    Grazie
    Saluti a tutti

    https://drive.google.com/open?id=1sP4wyFiPYJbVpVk4Q4hobmMmml66Cy4N
  • M
    Marius44
    Utente Attivo
    Iscritto da
    set, 2015
    Messaggi:
    169

    Re: Ricerca

    Ciao
    Non capisco.
    Nel file che hai allegato non ci sono formule ma solo nomi.
    Puoi spiegare meglio? Grazie. Ciao,
    Mario
  • A
    Anna04
    Pochi posts
    Iscritto da
    ago, 2018
    Messaggi:
    13

    Re: Ricerca

    Buon pomeriggio
    In A6 c'è '=A5' ed in A7 c'è '=A4'
    io vorrei che in quelle celle non venga effettuata la ricerca.
    Grazie
    Anna
  • M
    Marius44
    Utente Attivo
    Iscritto da
    set, 2015
    Messaggi:
    169

    Re: Ricerca

    Ciao
    Prova a cambiare questa riga di codice
    Set c = .Find(inpt, After:=ActiveCell, LookIn:=xlValues, SearchOrder:=xlColumns, SearchDirection:=xlNext)
    con questa 
    Set c = .Find(inpt, After:=ActiveCell, LookIn:=xlFormulas, SearchOrder:=xlColumns, SearchDirection:=xlNext)
    Ciao
    Mario
Devi accedere o registrarti per scrivere nel forum
6 risposte