|
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 | |
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 | |
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 |
|
|