Moderatori: Anthony47, Flash30005
="*" & STRINGA.ESTRAI(A2; TROVA(" "; A2; 1)+1; TROVA(" "; A2; TROVA(" "; A2; 1)+1) - TROVA(" "; A2; 1) -1) & "*"
=STRINGA.ESTRAI(A2; TROVA(" "; A2; 1)+1; TROVA(" "; A2; TROVA(" "; A2; 1)+1) - TROVA(" "; A2; 1) -1)
hotel adler srl
hotel firenze adler
wittelsbach ha scritto:Ricky hai capito perfettamente cosa intendessi. In ogni caso qui sotto provo ad evidenziare meglio cosa vorrei fare:
colonna A (elenco ragioni sociali)
hotel adler firenze
hotel pippo
hotel XXX
hotel YYY
colonna B (secondo elenco ragioni sociali + codice)
adler firenze srl 12578456
san gallo firenze 15874569
hotel ming 47851256
Quello che voglio fare è confrontare ogni cella della colonna A all'interno della colonna B e, se la prima parola dopo il primo spazio della cella in colonna A trova una corrispondenza esatta con almeno una parola all'interno della colonna B, a quel punto la formula dovrebbe trovare il codice a fianco della ragione sociale della colonna B. In sintesi, accanto a "hotel adler firenze" in colonna A la formula dovrebbe restituire il valore 12578456.
Function wComm2(ByVal primo As String, ByRef myRan As Range) As String
'vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=99482
'Uso:
' =WCOMM2(PrimaFrase;IntervalloCelle)
' Restituisce il contenuto della cella alla destra di quella, interna a IntervalloCelle,
' che contiene la "seconda parola" in PRIMO.
' Oppure una stringa vuota, se la parola non viene trovata nell' intervallo
' per parola si intende una stringa separata nella frase almeno da uno spazio e lunga piu' di 2 crt
'
Dim my1Split, my2Split, I As Long, J As Long
Dim myPrimo As String
my1Split = Split(primo, " ")
If UBound(my1Split) > LBound(my1Split) Then
myPrimo = my1Split(LBound(my1Split) + 1)
For Each secondo In myRan
my2Split = Split(secondo, " ")
For J = 0 To UBound(my2Split)
If Len(my1Split(I)) > 2 And Len(my2Split(J)) > 2 Then
If UCase(myPrimo) = UCase(my2Split(J)) Then
wComm2 = secondo.Offset(0, 1).Value: Exit Function
End If
End If
Next J
Next secondo
End If
End Function
Torna a Applicazioni Office Windows
scrivere una parola in ComboBox e caricarla filtrando i dati Autore: ricky53 |
Forum: Applicazioni Office Windows Risposte: 3 |
colora parte di frase/ Parola in stessa cella Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
Formula per estrarre Stringa di testo da cella Autore: Omocaig |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: raimea e 8 ospiti