Creare pulsante di ricerca

Hai un problema con Excel?

Nuova discussione

Creare pulsante di ricerca
di Ciccio79 data: 03/11/2009
Ciao a tutti, anche io sono nuovo del forum, ma ho dato un'occhiata qua e la e ho visto che siete dei maghi di excel. a tal io ho un piccolo problema: ho creato un file contenente tre schede (store a, storeb, store c)che mi funge da magazzino. il problema e' che ci sono una miriade di articoli per ogni magazzino e spesso lo stesso articolo si trova in magazzini differenti. quindi mi servirebbe creare una maschera o un pulsante con una stringa dove scrivere il testo, e visualizzare quanta mnerce ricercata e' disponibile in ogni store. spero di essere stato chiaro e ovviamente sono a disposizione per qualsiasi chiarimento. rimango fiducioso nel vostro ingegno e resto in attesa di qualche risposta. ciao
di Rp71 (utente non iscritto) data: 04/11/2009
A questo punto crea un ulteriore foglio "di riepilogo".
in una cella scrivi il nome o codice articolo e in quella adiacente usa la funzione somma.se x tutti e 3 i fogli
r

di Enzo (utente non iscritto) data: 04/11/2009
Ciao, premesso che bisognerebbe vedere il foglio excel, partendo dal presupposto che l'articolo sia posizionato in ogni foglio nella colonna a
prova ad utilizzare l'istruzione qui sotto che inserisci in una macro e richiami con un pulsante
fai sapere se puo' andar bene

ARTICOLO = InputBox("NUMERO ARTICOLO")
TROVA = Application.WorksheetFunction.CountIf(Foglio1.Range("A2:A65000"), ARTICOLO)
If TROVA = 1 Then
MESSAGGIO = Foglio1.Name
End If
TROVA2 = Application.WorksheetFunction.CountIf(Foglio2.Range("A2:A65000"), ARTICOLO)
If TROVA2 >= 1 Then
MESSAGGIO2 = Foglio2.Name
End If
TROVA3 = Application.WorksheetFunction.CountIf(Foglio3.Range("A2:A65000"), ARTICOLO)
If TROVA3 >= 1 Then
MESSAGGIO3 = Foglio3.Name
End If
MESSAGGIO4 = MESSAGGIO & " " & MESSAGGIO2 & " " & MESSAGGIO3
If MESSAGGIO = "" And MESSAGGIO2 = "" And MESSAGGIO3 = "" Then
MsgBox " NESSUN ARTICOLO TROVATO"
Exit Sub
Else
MsgBox "ARTICOLO TROVATO NEI FOGLI " & MESSAGGIO4
End If

di Enzo (utente non iscritto) data: 04/11/2009
L'istruzione si puo' anche articolare diversamente senza troppi ...if then etc..
ho voluto crearla cosi' affinche' tu possa capire cosa fa
devi sempre adattarla alle tue esigenza ossia variare i riferimenti relativi alla colonna dove cerchi il numero di articolo
di Enzo (utente non iscritto) data: 04/11/2009
Mi sono accorto adesso di aver letto male la tua richiesta in quanto volevi la quantita' di ogni articolo ....cavolo
di Franco_44 (utente non iscritto) data: 04/11/2009
Ciao ciccio
vedi un po' l'allegato se ti va bene; è un file che a suo tempo avevo anche io scaricato da un forum (non ricordo quale) e l'ho un po' riadattato per le tue esigenze
fai sapere se va bene o se hai bisogno di chiarimento o altro
saluti

Vuoi Approfondire?