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