confronta 2 colonne in base a valori pari

Ciao a tutti

Volevo chiedervi se sarebbe possibile tramite formula da inserire
in colonna “J” o VBA ottenere ciò

se nella colonna “ B” sono contenuti dei valori, nella colonna “J”
dovrebbe come priorità prendere il valore contenuto nella cella “P2”
se invece nella colonna “E” sono presenti dei valori però che siano dei valori pari e non dispari
e che i valori siano uguali o superiori al valore presente nella cella “A1”
la colonna “J” dovrebbe prendere il valore presente nella cella “N2”

allego file con spiegazione

un grazie a tutti

Elvis

Ciao

qialcosa tipo:

in J5 da trascinare
=SE(B5<>"";$P$2;SE(E(RESTO(E5;2)=0;E5>=$A$1);$N$2;""))

saluti

ciao

in J4 la seguente formula

=SE(E4>0;SE(RESTO(E4;2)=0;SE(E4>=$A$1;$N$2;"");"");SE(CONTA.SE($E$4:$E$23;B4)>0;$P$2;""))

e trascini in giu'

Grazie Dodo e Locate per le valide soluzioni proposte forse è una mia impressione ma dopo avere inserito le formule mi sembra che la ventola del computer si avvia molto frequentemente se qualcuno avrebbe eventualmente anche una soluzione in VBA mi piacerebbe provarla

saluti Mille Grazie
Elvis

ciao

da inserire nel modulo del foglio

Option Explicit
Sub NuvoleSole()
Dim Uriga As Long, i As Long
Uriga = UsedRange.Row + UsedRange.Rows.Count
''
Range("J4:J" & Uriga).ClearContents
For i = 4 To Uriga
If Cells(i, "E") > 0 Then
If Cells(i, "E") Mod 2 = 0 Then
If Cells(i, "E") >= Cells(1, "A") Then
Cells(i, "J") = Cells(2, "N")
End If
End If
Else
If Application.CountIf(Range("E4:E" & Uriga), Cells(i, "B")) > 0 Then
Cells(i, "J") = Cells(2, "P")
End If
End If
Next i
End Sub

grazie mille Locate per la variante in VBA

ho provato ma mi va in debug dicendo variabile non definita su "UsedRange".
Ho aggiunto UsedRange come Dim ma non riesco a farla funzionare
Sapresti dirmi come posso risolvere?

Saluti
Elvis

ciao

non riesco a capire , dato che stai usando la versione 2016
UsedRange non e' una variabile ma una Propieta di Range() comunqe prova a modificare qesta riga
da cosi
Uriga = UsedRange.Row + UsedRange.Rows.Count

a cosi
Uriga = Cells(Rows.Count, "E").End(xlUp).Row ''UsedRange.Row + UsedRange.Rows.Count

Grazie Locate, tutto chiaro
Sì in effetti normalmente uso Excel 2016 ma lavorando da casa sto usando Excel 2011

saluti
Elvis