Ciao a tutti, vorrei proporre anche io qualcosa, la funzione Contix(), per la verità la funzione Contix non esiste, lo creata io perchè avevo un problema e con le matriciali poco ci sono affezionato, mi creano problemi.
la funzione e questa
- Codice: Seleziona tutto
Contix(fgl, col, val1, val2)
Di cui fgl è il foglio, col è la colonna, val1 è il primo valore, val2 il secondo valore, Controlla val2 appena vicino alla colonna di partenza e parte dalla riga 1, ma vedendo il codice la si puo adattare anche ad altre rige oppure aumentare la ricerca dei valori con valn...
nel caso di bmari se il foglio è il foglio1 la formula va scritta in questo modo:
- Codice: Seleziona tutto
=Contix(1;"I";"TO";"A")
E' restituisce quante volte si presentano i due valori cercati.
Questo è il codice della funzione che và inserito in un modulo, ci sono i vari passaggi per qualche modifica:
- Codice: Seleziona tutto
Public Function Contix(fgl, col, val1, val2)
Dim cont, coln
Sheets(fgl).Select
cont = 0 'contatore della somma
coln = 0 'colonna in numero
col = UCase(col)
For i = 1 To 256 'cambia la colonna in numero
If Sheets(fgl).Columns(i).Address = "$" & col & ":$" & col Then
coln = i
i = 256
End If
Next i
rig = Cells(1, coln).End(xlDown).Row 'vede elenco
For i = 1 To rig 'controlla i dati e li somma
If val1 = Cells(i, coln) Then
If Cells(i, coln + 1) = val2 Then cont = cont + 1
End If
Next i
Contix = cont 'restituisce la somma
End Function
Se ci sono problemi ditemelo Ciao By Sal
