Condividi:        

Confrontare colonne in tempo reale

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Confrontare colonne in tempo reale

Postdi Belvel » 06/12/20 18:27

Salve
sto provando a scrivere una macro, ma senza successo, che mi permetta in tempo reale di confrontare la colonna A del foglio2 con quello che scrivo in tempo reale in colonna A nel foglio1.

In pratica ogni cella della colonna A del foglio 2 contiene dei codici propdotto (sono lettere e numeri tipo: ASD22KL) e vorrei che in colonna A del foglio1 se scrivo un qualcosa che non coincida con l'intero codice prodotto presente in una delle celle della colonna A del foglio2 mi esca un avviso che dica "prodotto non esistente".

in pratica se io scrivo "ASD22KL" in una qualunque cella della colonna A del foglio 1, la macro deve cercare se "ASD22KL" sia presente in una qualunque cella della colonna A del Foglio2. Se è presente allora nulla, altrimenti mi deve dare il messaggio "Prodotto non presente".

Il tutto deve avvenire in tempo reale, cioè subito dopo aver scritto "ASD22KL" e premuto invio. Inoltre la macro non si deve fermare una volta trovata la parola inesistente, ma deve continuare perchè, essendo un inserimento prodotti, potrebbero essere digitati altri prodotti non presenti rispetto a quelli in colonna A foglio2.

Ovviamente i codici prodotto presente in colonna A del foglio2 non sono mai uguali, hanno la stessa lunghezza ma chiaramente la sequenza lettere numeri è diversa per ogni prodotto.

Ho provato a scrivere così la macro che ho copiato nel codice del foglio1 ma mi fa uscire il messaggio "prodotto non presente" sia che il codice prodotto sia presente in foglio2 sia che non lo sia.

Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim uriga, uriga1 As Long
Dim i, e As Integer


uriga = Sheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
uriga1 = Sheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row


inizio:
For i = 1 To uriga
   
        If uriga & i <> uriga1 & i Then
        MsgBox "Prodotto non presente", vbInformation, "NOTIFICA"
        Else
       
        Exit Sub
        End If
    Next
End Sub


Grazie per un aiuto.
Belvel
Belvel
Utente Junior
 
Post: 53
Iscritto il: 08/02/18 18:47

Sponsor
 

Re: Confrontare colonne in tempo reale

Postdi Belvel » 06/12/20 20:05

chiedo scusa, ho sbagliato sezione. Volevo scrivere nella sezione "Applicazioni Office Windows" e non so come ho postato qui. Vi prego di cancellare il post.
Belvel
Utente Junior
 
Post: 53
Iscritto il: 08/02/18 18:47


Torna a Applicazioni Office Windows


Topic correlati a "Confrontare colonne in tempo reale":


Chi c’è in linea

Visitano il forum: Nessuno e 77 ospiti