numeri pari e dispari

[Cerponio]

Cortesemente chiedo come si fa a quantificare i numeri pari e dispari
per esempio:
10 11 12 15 16 19 20 23 26 29 34 39

vi sono 6 numeri pari e 6i numeri dispari, vorrei una formula in excel che
indicasse in una colonna 6 che corrisponde ai pari, in latro colonna 6 che corrisponde ai dispari.
Si ringrazia, Cerponio

[isex]

Nella colonna A metti i numeri da 1 a 100
Se in una colonna B crei una formula del genere

=RESTO(A1;2) e così via

Otterrai 1 per un dispari e 0 per un numero pari.

B101 = Somma questi valori ed avrai il numero dei numeri dispari
su A101 metti =CONTA.NUMERI(A1:A100)

C101 = A101-B101 rimarra il numero dei pari.

[Cerponio]

Ti ringrazio per la risposta, i numeri sono disposti dalla colonna C4 alla colonna V4 nella colonna X4 dovrebbe andare il numero di quanti sono i dispari nella colonna Y4 dovrebbe andare il numero di quanti sono i numeri pari.
Grazie Cerponio

[isex]

questo calcolo lo puoi fare per esempio su AA4 e poi nascondere quelle colonne in futuro.

[donatella]

Ciao Cerponio
Premetto che quello che ti metto non è farina del mio sacco, ma di un carissimo amico che sono riuscita a coinvolgere
spero di averti dato un'altra alternativa oltre a quella che ti ha dato isex.
Sono 2 codici da scrivere nel foglio di vba e da richiamare con il relativo pulsante da associare alla macro dal foglio excel.
Il pulsante lo trovi nel modulo della barra degli strumenti.
Di più non saprei, donatella

Sub Pari()
Dim Pari As Object
Set Area = Range("C1:V4")
For Each Pari In Area
If Pari.Value = "" Then GoTo via
If Pari.Value Mod 2 = 0 Then
Range("X1").Select
Pari.Copy
Range("X1").Select
ActiveCell.FormulaLocal = "=Conta.valori(X3:X1000)"
Range("X2") = "-"
Range("X1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste Destination:=ActiveCell
ActiveCell.Offset(0, 1).Select
Application.CutCopyMode = False
TotalePari = [X1].Value
Range("X1") = "Ho trovato " & TotalePari & " " & vbLf & "numeri pari"
End If
via:
Next
End Sub
----------------------------------------------
Sub Dispari()
Dim Dispari As Object
Set Area = Range("C1:V4")
For Each Dispari In Area
If Dispari.Value = "" Then GoTo via
If Dispari.Value Mod 2 <> 0 Then
Range("Y1").Select
Dispari.Copy
Range("Y1").Select
ActiveCell.FormulaLocal = "=Conta.valori(Y3:Y1000)"
Range("Y2") = "-"
Range("Y1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste Destination:=ActiveCell
ActiveCell.Offset(0, 1).Select
Application.CutCopyMode = False
TotaleDispari = [Y1].Value
Range("Y1") = "Ho trovato " & TotaleDispari & " " & vbLf & "numeri dispari"
End If
via:
Next
End Sub

[Cerponio]

Ringrazio tutti per le risposte, ho risolto con matr.somma.prodotto
Grazie di nuovo, Cerponio

[donatella]

Ciao Cerponio
Sono contenta che comunque hai risolto, ma quel che più gratifica è ricevere il grazie.
E' estremamente carino da parte tua, dico davvero

[Cerponio]

Ho recuperato un vecchio file,poi, gli iscritti al forum si ringraziano sempre,anche se la risposta è negativa, la conoscenza telelmatica ha le sue norme.
Ciao Cerponio

[isex]

Grazie...


P.S.
Netiquette si chiama il bon ton nel gergo tecnico-telematico...