Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Aiuto!!! [Ricerca menu a tendina]

Ultimo Aggiornamento: 19/04/2019 09:36
17/04/2019 18:56

Buonasera a tutti, ho bisogno di aiuto...
nell'esempio che allego qui sotto, vorrei creare prima di tutto due convalide dati nel foglio ordine (questo sono capace) ma vorrei anche che richiamando un codice articolo mi associ il suo articolo (fatto con CERCA.VERT), ma anche viceversa, cioè tramite articolo mi deve associare il relativo codice.
Facendo un'altro CERCA.VERT mi segnala errore.
Come posso risolvere?
Il file di esempio che allego è libero da funzioni varie

Ringrazio tutti quelli che mi rispondono anticipatamente
Post: 287
Registrato il: 11/07/2015
Età: 33
Utente Junior
office 2013-2016
OFFLINE
17/04/2019 21:49



Buona Sera

Se nel foglio Ordine

Digiti in b2 un articolo lasciando vuoto il codice articolo in a2

comparirà in e2 il corrispondente codice articolo

Stessa cosa se digiti in a2 un codice articolo lasciando vuoto

in b2 comparira in E2 il corrispondente articolo

L'etichetta in E1 si adatta in automatico

Allego file

Saluti
17/04/2019 22:52

Re:
Ulisse1990, 17/04/2019 21.49:



Buona Sera

Se nel foglio Ordine

Digiti in b2 un articolo lasciando vuoto il codice articolo in a2

comparirà in e2 il corrispondente codice articolo

Stessa cosa se digiti in a2 un codice articolo lasciando vuoto

in b2 comparira in E2 il corrispondente articolo

L'etichetta in E1 si adatta in automatico

Allego file

Saluti



Grazie per l'aiuto, ma ho 2 problemi:

1- il menù a tendina (convalida dati) non esiste più
2- Avrei bisogno che i due risultati compaiano nelle rispettive celle A2 e B2

come posso risolvere?

Post: 301
Registrato il: 15/01/2016
Città: ROMA
Età: 51
Utente Senior
2016
OFFLINE
18/04/2019 08:07

Buongiorno
quello che chiedi con le formule non si può fare con due convalide in quanto in una cella o metti una formula o metti una convalida dati quindi se metti la convalida dati in A1 puoi estrarre correttamente il dato da mettere in B1 oppure metti la convalida in B1 e estrai il dato in A1 ma non puoi fare due convalide ed estrarre comunque il dato
18/04/2019 14:51

Re:
DANILOFIORINI, 18/04/2019 08.07:

Buongiorno
quello che chiedi con le formule non si può fare con due convalide in quanto in una cella o metti una formula o metti una convalida dati quindi se metti la convalida dati in A1 puoi estrarre correttamente il dato da mettere in B1 oppure metti la convalida in B1 e estrai il dato in A1 ma non puoi fare due convalide ed estrarre comunque il dato



Grazie, immaginavo...ma per caso esiste una macro che possa risolvermi il "problema"?

Post: 3.733
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
19/04/2019 02:09

A parte che in "Articoli" colonna A sono formattati come CAP e non funzionerebbe. Se ci metterai delle stringhe A0001BCD o dei numeri validi (15 oppure 100012). Il codice è da mettere nel foglio Ordine
Questo funziona in modo alternato, se scrivi in A2 o in B2 trova il corrispondente, casomai risponde "Non esiste"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Object, R As Long
Application.EnableEvents = False
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Set Rg = Sheets("Articoli").Columns(1).Find(Cells(2, 1).Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Rg Is Nothing Then
            MsgBox "Non esiste"
            Range("A2:B2") = ""
        Else
            R = Rg.Row
            Range("B2") = Sheets("Articoli").Range("B" & R)
        End If
    End If
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Set Rg = Sheets("Articoli").Columns(2).Find(Cells(2, 2).Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Rg Is Nothing Then
            MsgBox "Non esiste"
            Range("A2:B2") = ""
        Else
            R = Rg.Row
            Range("A2") = Sheets("Articoli").Range("A" & R)
        End If
    End If
Set Rg = Nothing
Application.EnableEvents = True
End Sub
[Modificato da raffaele1953 19/04/2019 04:29]
Excel 2013
19/04/2019 09:36

raffaele1953, 19/04/2019 02.09:

A parte che in "Articoli" colonna A sono formattati come CAP e non funzionerebbe. Se ci metterai delle stringhe A0001BCD o dei numeri validi (15 oppure 100012). Il codice è da mettere nel foglio Ordine
Questo funziona in modo alternato, se scrivi in A2 o in B2 trova il corrispondente, casomai risponde "Non esiste"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Object, R As Long
Application.EnableEvents = False
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Set Rg = Sheets("Articoli").Columns(1).Find(Cells(2, 1).Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Rg Is Nothing Then
            MsgBox "Non esiste"
            Range("A2:B2") = ""
        Else
            R = Rg.Row
            Range("B2") = Sheets("Articoli").Range("B" & R)
        End If
    End If
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Set Rg = Sheets("Articoli").Columns(2).Find(Cells(2, 2).Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Rg Is Nothing Then
            MsgBox "Non esiste"
            Range("A2:B2") = ""
        Else
            R = Rg.Row
            Range("A2") = Sheets("Articoli").Range("A" & R)
        End If
    End If
Set Rg = Nothing
Application.EnableEvents = True
End Sub

Grazie, nel pomeriggio farò le dovute prove
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
aiuto ricerca (5 messaggi, agg.: 30/08/2021 13:08)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 02:01. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com