Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Pulsante cerca con excel

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

Pulsante cerca con excel

Postdi giobic » 16/11/10 18:41

Ciao a tutti.
Io ho un foglio di excel con centinaia di formule; vorrei creare un pulsante "cerca" all'inizio del foglio in modo che mi trovi la formula senza che le debba scorrere tutte.
In pratica vorrei creare un pulsante (cerca) in una cella e in quella a fianco creare il campo di ricerca dove scrivere la formula da cercare. tutto questo in VBA quindi mi servirebbe un codice.
Grazie.
giobic
Newbie
 
Post: 6
Iscritto il: 16/11/10 18:35

Sponsor
 

Re: Pulsante cerca con excel

Postdi tutamimetica » 16/11/10 19:37

è possibile inserire il pulsante cerca nella barra degli strumenti:
Strumenti\personalizza\Comandi\Modifica nei comandi scegli Trova e lo trascini nella barra degli strumenti.
Ciao tuta
tutamimetica
Utente Senior
 
Post: 209
Iscritto il: 10/06/08 17:25

Re: Pulsante cerca con excel

Postdi giobic » 16/11/10 19:40

Si questo lo sapevo mi sono dimenticato di specificare che usandolo persone per niente ferrate con excel volevo semplificare al massimo la cosa e quindi aver la possibilità di aver la stessa funzione del "trova", che c'è già sulla barra degli strumenti, direttamente sul foglio di lavoro.
Grazie
giobic
Newbie
 
Post: 6
Iscritto il: 16/11/10 18:35

Re: Pulsante cerca con excel

Postdi Flash30005 » 16/11/10 21:45

Una macro potrebbe essere questa
Codice: Seleziona tutto
Sub Cerca()
Stt = Range("K1").Value
    Cells.Find(What:=Stt, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
End Sub


dove in K1 metterai parte o tutta la della formula escludendo il simbolo "="
e il pulsante chiamerà questa macro

fai sapere
ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Pulsante cerca con excel

Postdi giobic » 16/11/10 22:15

Funziona in parte nel senso che se metto una sola lettera o un solo numero me li trova se metto l'intera formula, che è la cosa che a me serve, non funziona (le formule hanno caratteri alfanumerici).
giobic
Newbie
 
Post: 6
Iscritto il: 16/11/10 18:35

Re: Pulsante cerca con excel

Postdi giobic » 16/11/10 22:16

un esempio di formula: SA001,03. Sono tutte come questa come forma cambiano solo numeri e lettere.
giobic
Newbie
 
Post: 6
Iscritto il: 16/11/10 18:35

Re: Pulsante cerca con excel

Postdi giobic » 16/11/10 23:08

Problema in parte risolto: ora trova la cella ricercata però non si ferma su di essa, torna a inizio pagina. Perchè?
giobic
Newbie
 
Post: 6
Iscritto il: 16/11/10 18:35

Re: Pulsante cerca con excel

Postdi Flash30005 » 17/11/10 02:03

Commenta o cancella l'ultima riga-codice della macro
Codice: Seleziona tutto
   
 'Cells.FindNext(After:=ActiveCell).Activate


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Pulsante cerca con excel

Postdi giobic » 17/11/10 16:09

ok. problema risolto ora funziona tutto.
grazie.
ciao
giobic
Newbie
 
Post: 6
Iscritto il: 16/11/10 18:35


Torna a Applicazioni Office Windows


Topic correlati a "Pulsante cerca con excel":


Chi c’è in linea

Visitano il forum: Anthony47 e 6 ospiti