excel macro se cella contiene

[rerasta]

Salve,

nelle celle della colonna A ho questi valori come esempio

ACAAC12105
AFXA55102
ARTART181

vorrei ottenere questo risultato

colonna A colonna B
ACAAC12105 ACCADEMIA
AFXA55102 ARIAFIX
ARTART181 ARTE

Utilizzo con successo questa funzione
=SE(VAL.NUMERO(TROVA("ACA";A1));"ACCADEMIA";SE(VAL.NUMERO(TROVA("AFX";A1));"ARIAFIX";SE(VAL.NUMERO(TROVA("ART";A1));"ARTE")))

Ho bisogno del vostro aiuto per convertire questa formula in macro
Grazie per l'attenzione
Stefano

[scossa]

....
Utilizzo con successo questa funzione
=SE(VAL.NUMERO(TROVA("ACA";A1));"ACCADEMIA";SE(VAL.NUMERO(TROVA("AFX";A1));"ARIAFIX";SE(VAL.NUMERO(TROVA("ART";A1));"ARTE")))

Posso suggerire questa semplificazione:

Codice: Seleziona tutto

=INDICE({"ACCADEMIA";"ARIAFIX";"ARTE"};CONFRONTA(SINISTRA(A1;4);{"ACAA";"AFXA";"ARTA"};0))

Ho bisogno del vostro aiuto per convertire questa formula in macro

Non mi è chiaro se vuoi una UDF o cosa, puoi spiegare meglio a cosa ti serve il codice?

[rerasta]

Mi spiego meglio

Nella colonna A ho i codici prodotti a cui vorrei automaticamente associare nella colonna B i relativi produttori

Praticamente se nella cella A1 trovo un codice prodotto che contiene ACA nella cella B1 devo ottenere ACCADEMIA oppure se nella cella A1 c'è un codice prodotto che contiene AFXA devo ottenere nella cella B1 la scritta ARIAFIX e via dicendo...
Tieni conto che i possibili produttori sono + di 100

[Anthony47]

Ma se hai 100 produttori, come fai a usare con successo una formula che ne prevede solamente tre?

Sei in grado di creare una tabella con le sigle in una colonna e il produttore nell' altra? Le sigle hanno una lunghezza fissa o sono casuali?

Ciao

[rerasta]

la mia formula era solo un esempio

le sigle hanno una lunghezza variabile

posso creare le 2 tabelle

[Flash30005]

Non due tabelle ma la tabella formata da due colonne e n righe
sulla colonna A (o altra lettera) inserirai il codice (prefisso), nella colonna B (o altra lettera ma a destra della prima) inserirai i produttori.

Ciao

[Gigi_]

Ciao,
ho impostato questa situazione:
un foglio "articoli" con la colonna A contenente 50 codici articolo.
un foglio "produttori" con la colonna A per i codici produttore e la colonna B per i nomi dei produttori

Codice: Seleziona tutto

Option Base 1
Public produttori(1000, 2) As Variant
Sub abbina()
Worksheets("produttori").Select
'ASSEGNO AGLI ELEMENTI DELLA MATRICE produttori IL CODICE ED IL NOME DI OGNI PRODUTTORE
    For mnf = 1 To 100 ' NUMERO PRODUTTORI
        produttori(mnf, 1) = Cells(mnf, 1).Value 'CODICE PRODUTTORE
        produttori(mnf, 2) = Cells(mnf, 2).Value 'PRODUTTORE
    Next mnf
Worksheets("articoli").Select

    For Item = 1 To 50 'ELENCO DEI CODICI ARTICOLO
        codicearticolo = Mid(Cells(Item, 1), 1, 3) 'ESTRAGGO LE PRIME TRE LETTERE
            For paragone = 1 To 100
                If codicearticolo = produttori(paragone, 1) Then 'LE PARAGONO CON I CODICI PRODUTTORE
                Cells(Item, 2).Value = produttori(paragone, 2) 'ASSEGNO IL CORRISPONDENTE NOME PRODUTTORE ALL'ARTICOLO
                End If
            Next paragone
    Next Item
End Sub


Questo è il file di esempio===>http://uploading.com/mcfdbf51/abbina_produttori-xls

[Flash30005]

Puoi anche usare una formula in K1 (o altra colonna)

Codice: Seleziona tutto

=INDIRETTO("produttori!B"&CONFRONTA(SINISTRA(A1;3);produttori!A$1:A$100;0);1)

e trascini verso il basso

Funziona se i codici sono univoci con solo 3 lettere

ciao

[rerasta]

perfetto!!!
Ho risolto grazie al vostro aiuto