Evitare doppioni tramite validità dati

[achille]

Buonasera a tutti, ho la seguente necessità, inserire dei valori numerici in una colonna evitando doppioni.
Ho pensato di utilizzare la validità dati in modo da visualizzare un messaggio di errore durante la digitazione dell'eventuale doppione.
Se ad esempio inserisco la seguente formula su validità dati della cella A1

Codice: Seleziona tutto

=CONTA.SE(A1:A10;A1)>1 

dovrebbe spuntarmi il messaggio di errore, che ho inserito nell'apposita finestra, in caso di valore ripetuto considerando il range A1:A10 ma questo non avviene, il messaggio viene visualizzato anche con valori non ripetuti.

Grazie
PS: Con macro saprei risolvere ma ho l'esigenza di usare la validità dati
Achille

[patel]

puoi allegare un file di esempio ?

[achille]

Ecco un file di esempio, con validità compilata su range A1:A10, basta inserire un numero e figura il messaggio di errore, invece dovrebbe spuntare solo se già presente.

Grazie

[gioh66]

Non credo sia fattibile con la convalida dati. Sicuramente lo è con la formattazione condizionale, facendo colorare, ad esempio, lo sfondo delle celle duplicate.
Oppure con una formula, da inserire nella colonna a fianco tipo
=SE(CONTA.SE($A$1:$A$10;A1)>1;"valore duplicato";"")
in modo da far apparire l'avviso di inserimento di un valore ripetuto.

[charlie]

Ciao @achille e benvenuto sul forum.
Se ti vuoi presentare puoi farlo qui: viewforum.php?f=16
Per una panoramica delle regole del forum puoi consultare il Manuale di sopravvivenza: http://forum.openoffice.org/it/forum/vi ... hp?f=1&t=2
Buon proseguimento.

[Eramad]

Mi viene in mente anche di usare una macro eventualmente da mettere che si attivi al cambiamento dei contenuti del foglio.

Tipo:

Codice: Seleziona tutto

Sub Controllo

Colonna = ThisComponent.getCurrentSelection().CellAddress.Column 'Rileviamo la colonna in cui stiamo scrivendo
Riga = ThisComponent.getCurrentSelection().CellAddress.Row 'Rileviamo la riga in cui stiamo scrivendo

If ThisComponent.getCurrentSelection().string = "" then 'Evitiamo che la macro parta quando cancelliamo una cella
	goto Fine
End If

For x=0 to Riga-1 'Eseguiamo il controllo fino alla riga precedente alla attuale

If ThisComponent.Sheets(0).getCellByPosition(Colonna,x).string = ThisComponent.getCurrentSelection().string then

	MsgBox ("Questo Valore è già presente alla riga " & x+1)
	ThisComponent.getCurrentSelection().clearContents(7)

End If

Next x
Fine:

End Sub

Allego il file per vedere se possa funzionare bene.

[gioh66]

Buondì Eramad, forse ti è sfuggito...

PS: Con macro saprei risolvere ma ho l'esigenza di usare la validità dati
Achille

[Eramad]

Ops...mi sa che devo staccare un attimo dal lavoro.

Scusate...