Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email     « Discussione Precedente | Lista | Discussione Successiva »
Autore

Macro cerca

Ultimo Aggiornamento: 05/11/2021 16:54
Coppu
Post: 5
Registrato il: 04/03/2020
Età: 46
Utente Junior
Office 365
OFFLINE
05/11/2021 11:23
00#1
Buongiorno a tutti,
vorrei chiedere un consiglio su macro o altra funzione riguardo alla funzione "cerca".
Cerco di spiegarmi meglio.
Ho un tabella nella quale ho una serie di informazioni ed in una determinata cella, dove ci sono le descrizioni degli articoli, vorrei cercare determinate parole e farmi restituire nella cella accanto la parola cercata.
Esempio: questo è il campo descrizione nella colonna B. nella colonna C vorrei che mi restituisse il colore, la tarature del potenziometro, etc.
Lampada spia ambra 28V
Lampada spia bianca 28V
Lampada spia led blu 120V
Lampada spia led rosso 120V
Lampada spia led bianco 120V
Lampada spia led arancio 120V
Lampada spia incand. rosso 120V
Lampada spia incand. verde 230V
Lampada spia incand. rosso 230V
Lampada spia incand. bianco 230V
Pulsanti interbloccati 7 colori NC+NO
Testa potenziometro 100k completo
Testa potenziometro 10k completo
Testa potenziometro 1k completo
Testa potenziometro 470k completo
Testa potenziometro 47k completo
Testa potenziometro 4,7k completo
E' possibile creare una macro o esiste una via molto più semplice da utilizzare (ho un file con circa 41000 righe)?
Grazie mille
Saluti
[Modificato da Coppu 05/11/2021 11:54]
dodo47
Post: 3.236
Registrato il: 06/04/2013
Utente Master
2010
OFFLINE
05/11/2021 12:44
00#2
ciao
spiega come arrivi al risultato di col. C......stando dall'immagine, a fronte di:

"Lampada spia led arancio 120V" che sta in col. B, vorresti in col. C "Testa Potenziometro 100k completo"

è così ??

e che connessione c'è tra i due ??

Saluti


Domenico
Win 10 - Excel 2016
Coppu
Post: 5
Registrato il: 04/03/2020
Età: 46
Utente Junior
Office 365
OFFLINE
05/11/2021 14:04
00#3
Macro cerca
In pratica dovrebbe venire così:

Colonna A || Colonna B
"Lampada spia led arancio 120V" || Arancio
"Testa Potenziometro 100k completo" || 100k
"Pulsanti interbloccati 7 colori NC+NO" || 7 Colori
etc,.

Saluti
[Modificato da Coppu 05/11/2021 14:05]
tanimon
Post: 1.460
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
05/11/2021 14:33
00#4
ciao a tutti,
mi spiace ma io non ho capito qual'è il risultato finale da ottenere.

Nel primo post hai allegato un file con giustamente poche righe, visto che ne hai più di 41.000.

Ma allegare un file con poche righe, nel quale:
- nel foglio 1 hai la situazione attuale
- nel foglio 2 inserisci a mano la situazione a cui vorresti arrivare

è così impensabile?!?!?!?!?

Ciao
Frank







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Coppu
Post: 6
Registrato il: 04/03/2020
Età: 46
Utente Junior
Office 365
OFFLINE
05/11/2021 14:54
00#5
In allegato ho inserito il file come richiesto.

Saluti
by sal
Post: 6.573
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
05/11/2021 15:27
00#6
Ciao Coppu, da quello che hai scritto non credo che tu possa ottenere quelle risposte.

anche se credo non ti sia spiegato molto bene.

per fare una ricerca ce bisogno di un elenco e di un testo da ricercare.

nella tua spiegazione come faccio a capire che vuoi estrarre i colori che ci sono in una stringa(codice) da una altra stringa un valore 47k, non ce discriminazione, quale ricerca devo fare prima.

al limite si potrebbe fare che ad esempio in una cella scrivi "Potenziometro" e in un altra colonna ti compaiono tutti i codici che contengono la parola "Potenziometro", in modo da vedere quale ti serve.

anche se poi in un unica colonna una volta trovato senza quantità o prezzo non so cosa te ne faresti.

penso che dovresti spiegare meglio cosa intendi fare sull'elenco che hai disponibile, in modo da poterti consigliare quale sia la via più giusta da seguire.

Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Coppu
Post: 7
Registrato il: 04/03/2020
Età: 46
Utente Junior
Office 365
OFFLINE
05/11/2021 15:32
00#7
Grazie a tutti per il vostro tempo perso...

Saluti
tanimon
Post: 1.462
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
05/11/2021 15:40
10#8
ciao a tutti,
ed un saluto a Domenico e Salvatore,

concordo con quanto da loro segnalato ma facendo riferimento al file allegato da Coppu al post #5,
ed assumendo i valori in colonna B del foglio 2, come valori da "estrapolare"
ho creato il foglio "elabora"

Prova a darci un'occhiata e fai sapere

ciao
Frank

vb
Private Sub CommandButton1_Click()
Dim rng As Range, rng1 As Range, cel1 As Range, cel2 As Range
Dim ur As Long, ur1 As Long
ur = Cells(Rows.Count, "a").End(xlUp).Row
ur1 = Cells(Rows.Count, "b").End(xlUp).Row

Set rng = Sheets("elabora").Range("a1:a" & ur)
Set rng1 = Sheets("elabora").Range("b1:b" & ur1)
        
        For Each cel1 In rng
            For Each cel2 In rng1
                If cel1.Value Like "*" & cel2.Value & "*" Then
                    cel1.Offset(, 2).Value = cel2.Value
                End If
            Next cel2
        Next cel1
        
Set rng = Nothing
Set rng1 = Nothing
End Sub



Private Sub CommandButton2_Click()
Sheets("elabora").Columns(3).ClearContents
End Sub







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Coppu
Post: 8
Registrato il: 04/03/2020
Età: 46
Utente Junior
Office 365
OFFLINE
05/11/2021 16:26
00#9
Ottimo. Funziona..
Comunque sia, devo inserire un elenco di parole da "assumere" per estrapolare ciò che mi serve. E' corretto?

Grazie mille
tanimon
Post: 1.463
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
05/11/2021 16:54
00#10
Re:
Coppu, 05/11/2021 16:26:

Comunque sia, devo inserire un elenco di parole da "assumere" per estrapolare ciò che mi serve. E' corretto?


Come ti hanno fatto intuire Domenico al post #2 e Salvatore al post #6:
ASSOLUTAMENTE SI!!!

Diversamente non avrai la discriminante per effettuare l'estrapolazione della sigla che cerchi.

ciao
Frank







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Vota: 15MediaObject5,00110 1
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Cerca
nei titoli, nei messaggi, con Google
Tag discussione
cerca macro
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 15:40. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com

  • Anteprima