Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

FORMULA

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

FORMULA

Postdi Lucio Peruggini » 24/07/16 23:25

Nella immagine vi è la spiegazione.
Grazie molte

https://www.dropbox.com/s/vck0a3jvm07c5 ... o.PNG?dl=0
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Sponsor
 

Re: FORMULA

Postdi Marius44 » 25/07/16 06:01

Ciao Lucio
con una immagine ci si può far poco. Costruire le tue due colonne è un lavoro faticoso. Ma perchè non inserisci il file e agevoli chi volesse aiutarti?

Comunque, fra le mie scartoffie ho trovato questa macro che confronta la colonna A con la colonna B e mette, nella colonna C, un asterisco quando trova due valori uguali.

Codice: Seleziona tutto
Sub Confrontare_A_B()
Dim rngA As Range
Dim rngB As Range
Dim rw As Long
    Set rngA = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
    Set rngB = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
    rw = 1
    For Each cell In rngB
        If Application.CountIf(rngA, cell.Value) = 0 Then
            Cells(rw, 3) = "*"
            rw = rw + 1
        End If
    Next
End Sub


Prova ad adattarla alle tue esigenze e vedi se è quello che volevi. Ciao,
Mario
Marius44
Utente Senior
 
Post: 143
Iscritto il: 07/09/15 22:00

Re: FORMULA

Postdi Lucio Peruggini » 25/07/16 09:41

Ciao Mario, hai ragione potevo inserire anche il file; eccolo!

https://www.dropbox.com/s/en16g5dyy1sa8 ... .xlsx?dl=0

Ora non ho tempo per valutare la macro ma penso che una formula sia più agevole.
Ti ringrazio e farò sapere se essa va bene.
Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Re: FORMULA

Postdi Lucio Peruggini » 25/07/16 10:00

Non ricordo più come allegare il link per farlo scaricare dal Dropbox; lo farò con calma oggi. Ciao a tutti e buona giornata.
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Re: FORMULA

Postdi Lucio Peruggini » 25/07/16 10:53

Eccolo! Ora si può scaricare il file.

https://dl.dropboxusercontent.com/u/182 ... crivi.xlsx

Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Re: FORMULA

Postdi Lucio Peruggini » 25/07/16 11:54

Ciao Mario, la macro mi da errore (vedi foto) - che non riesco a risolvere.
https://dl.dropboxusercontent.com/u/182 ... 0-%200.PNG

Ho risolto con formula fondendo le due colonne (=SE(A17=A18;"*";""); questo è quanto sono riuscito a fare.
https://dl.dropboxusercontent.com/u/182 ... 0-%201.PNG

Grazie
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Re: FORMULA

Postdi Lucio Peruggini » 25/07/16 17:40

Comunque, fra le mie scartoffie ho trovato questa macro che confronta la colonna A con la colonna B e mette, nella colonna C, un asterisco quando trova due valori uguali.


Ciao Mario, la macro funziona (mi mancava alla fine l'End Sub) però non fa quello che dicevo io e non saprei nemmeno dove metter mano. Se inserisci la tua macro nel foglio Excel che ho inviato te ne rendi subito conto.
In realtà dei cento ambi inseriti nelle colonne A e B, solo 17 sono doppioni.
Ciao
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Re: FORMULA

Postdi Marius44 » 25/07/16 20:59

Ciao Lucio
t'avevo detto che bisognava adattarla. L'ho trasformata un po' e faccio mettere l'asterisco all'altezza della riga della colonna B quando trova un "uguale".
Guarda che nel tuo conteggio c'è un errore (la macro non mente :lol: )

Codice: Seleziona tutto
Sub Confrontare_A_B()
Dim rngA
Dim rngB
    rngA = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
    rngB = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
    For i = 2 To UBound(rngA)
        For j = 2 To UBound(rngB)
            If rngA(i, 1) = rngB(j, 1) Then
                Cells(j + 1, 4) = "*"
            End If
        Next j
    Next i
   
End Sub


Ri...prova e fai sapere. Ciao,
Mario
Marius44
Utente Senior
 
Post: 143
Iscritto il: 07/09/15 22:00

Re: FORMULA

Postdi Lucio Peruggini » 25/07/16 23:17

Ciao Mario, nel mio Excel ne avevo saltato uno (il 20.81).
Ora va bene; svolge egregiamente il suo lavoro.

Molte grazie
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Re: FORMULA

Postdi Anthony47 » 26/07/16 01:17

La macro di Mario funziona regolarmente se applicata sui dati pubblicati.
Potrebbe pero' esserci un problema sulla prima riga, in quanto gli array inseriti nelle variant rngA e rngB gia' cominciano da Riga 2, quindi i loop non dovrebbero essere del tipo For i/j = 2 To UBound(rngA/B) ma del tipo
Codice: Seleziona tutto
For i/j = 1 To UBound(rngA/B)


Una possibile alternativa: in C2 la formula
Codice: Seleziona tutto
=CONTA.SE(A:A;B2)
da copiare poi verso il basso
Questa ti restituisce N/0, dove N e' quante volte l'accoppiata di col B e' presente in col A; se ti da' fastidio questa "visione" allora formatta l'area delle fomule: avvia Formato celle, tab Numero, scegli Personalizzato; come Tipo inserisci "*";#,0;#
Questa ti cambia solo la "visualizzazione", non il contenuto della cella; se vuoi proprio che la cella contenga "*" oppure "niente" allora modifica la formula data prima in
Codice: Seleziona tutto
=SE(CONTA.SE(A:A;B2)>0;"*";"")


Ciao a tutti.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: FORMULA

Postdi Lucio Peruggini » 26/07/16 08:58

Ciao Anthony

Le formule vanno benissimo (preferisco la seconda).
La correzione alla macro di Mario mi da errore (vedi immagine)

https://dl.dropboxusercontent.com/u/182 ... azione.PNG

Ciao e grazie molte
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23

Re: FORMULA

Postdi Anthony47 » 28/07/16 01:13

Volevo risparmiare e invece mi tocca raddoppiare...
L'immagine pubblicata da LP ha scritto:
Codice: Seleziona tutto
    For i = 2 To UBound(rngA)
        For i/j = 1 To UBound(rngA/B)

Eccicredo che si in***za....

Prova con
Codice: Seleziona tutto
    For i = 1 To UBound(rngA)
        For j = 1 To UBound(rngB)


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: FORMULA

Postdi Lucio Peruggini » 30/07/16 00:53

Ora e ok!
Grazie
Lucio P.
Versione Office - 2013
Lucio Peruggini
Utente Senior
 
Post: 890
Iscritto il: 24/01/11 16:23


Torna a Applicazioni Office Windows


Topic correlati a "FORMULA":


Chi c’è in linea

Visitano il forum: albval e 40 ospiti