Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

macro confronta celle

Ultimo Aggiornamento: 18/04/2018 15:32
Post: 49
Registrato il: 30/06/2016
Città: MILANO
Età: 48
Utente Junior
2013
OFFLINE
13/04/2018 19:18

Ciao

potete aiutarmi a fare una macro (o a creare una formula) che confronti i campi della riga 2 con i campi della riga 3.

Mi interessa capire quali sono i campi che squadrano della riga 3.

Fare in modo che i campi della riga 3 che sono diversi dalla riga 2 o vengano evidenziati o vengano riportati al temine dei campi della riga 3

allego esempio

grazie

Claudio

Post: 550
Registrato il: 24/06/2015
Città: CATANIA
Età: 80
Utente Senior
Excel2019
OFFLINE
13/04/2018 22:36

Ciao
Ti interessano le discordanze SOLO per le colonne H e Q?
Noto che nell'esempio allegato vi sono delle discordanze anche nella colonna C.

Altra precisazione: le righe da confrontare hanno sempre la stessa disposizione? Cioè vuoi confrontare Riga 2 con 3, Riga 4 con 5, ecc. oppure hanno una cadenza diversa?

Suggerimento: se le righe da confrontare sono tante sarebbe meglio ricorrere al VBA per non appesantire il file.
Se non fossero tantissime si potrebbe tentare anche con la Formattazione Condizionale.

Fai sapere. Ciao,
Mario
Post: 1.572
Registrato il: 10/10/2013
Città: VICENZA
Età: 69
Utente Veteran
365
OFFLINE
15/04/2018 17:02

ciao

con formule

in T3

=SE(H3<>H2;H3;"")


in U3

=SE(T3<>"";Q3;"")

seleziona le 4 celle T2:U3
( le due righe per capirci)

e tira in giù.

per la formattazione
seleziona la colonna H
per le righe che ti interessano

in formattazione metti questa formula
=$H2=$T2




Post: 49
Registrato il: 30/06/2016
Città: MILANO
Età: 48
Utente Junior
2013
OFFLINE
17/04/2018 09:16

ciao e grazie per le risposte.

ho provato e farlo e ci sono riuscito con mia grande soddisfazione :-)

i campi da confrontare sono tutti. lo scopo è trovare le differenze tra celle.

l'ho fatto in questo modo :

Sub prova()

ActiveSheet.Range("E2:S3").ClearFormats
For Each cella In Range("E2:S2")
With ActiveSheet.Range("E3:S3")
Set Rng = .Find(What:=cella, _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext)
If Rng Is Nothing Then
cella.Interior.ColorIndex = 6
End If
End With
Next cella

End Sub
Post: 2.823
Registrato il: 03/04/2013
Utente Veteran
Excel 2000 - 2013
OFFLINE
17/04/2018 17:43

Molto bene, Claudio, leggo solo ora la tua Risposta #4; solo un paio di domande:
-    non credi sarebbe stato più "carino" rispondere alle domande di @Marius44?
-    forse sarebbe bastato dire che il controllo andava fatto solo sulle Celle nel Range E2:S3, o no?
altrimenti:
-    il controllo sulle Celle sottostanti come pensavi di gestirle?


Grazie per il tempo che potrai dedicarmi per una eventuale risposta.



Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 50
Registrato il: 30/06/2016
Città: MILANO
Età: 48
Utente Junior
2013
OFFLINE
18/04/2018 13:17

Scusatemi. hai solo ragione, pensavo di aver risposto ( anche se in modo veloce ) a tutti nel mio testo.

Marius44 devo solo ringraziarlo, mi ha più volte aiutato ed è grazie a lui se sto imparando.


scusatemi ancora, non ricapiterà

Claudio
Post: 2.824
Registrato il: 03/04/2013
Utente Veteran
Excel 2000 - 2013
OFFLINE
18/04/2018 15:32

A questo punto mi sembra di capire che il controllo va fatto solo sulle Celle nel Range E2:S3; in questo caso non serve VBA, basta una semplice "Formattazione condizionale".

Windows XP - Excel 2000
Windows 10 - Excel 2013
Vota: 15MediaObject5,0027 2
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
macro colora riga (14 messaggi, agg.: 14/05/2017 09:59)
sproteggere celle con macro (10 messaggi, agg.: 02/04/2017 08:15)
Macro Celle vuote (21 messaggi, agg.: 28/06/2017 13:35)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 21:45. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com