Formattazione condizionale

Buona sera a Voi del forum, Vi scrivo per porVi un quesito, la formattazione condizionale, quando e applicata ad una cella e fa riferimento ad un'altra.

Esempio

=conta.se($a$1:$A$5;B600)>=1

IL valori che sono compresi dalla celle A1 alla A5 gli dico controllali se ci sono nella casella B600 e utilizzo un colore della cella, il quesito e anziche colorare da dovrebbe cancellare il contenuto della cella B600, secondo Voi e possibile una cosa simile.

Saluti
Comtrex

Nessuno ha una idea di come si potrebbe fare usando una macro che simuli la condizione, i numeri presenti da una serie di celle a1 : a3 se sono presenti nelle celle b3 :b5 allora cancellale.

Saluti

Comtrex

ciao Dario,

credo che cè qualche cosa che non é chiaro (leggi errato) nella tua domanda.

Quando dici ..dovrebbe cancellare il contenuto della cella B600" non é x caso da cancellare la cella dove é inserita la formula
=conta.se($a$1:$A$5;B600)>=1 ? e che verrebbe colorata se registra una corrispondenza (e vi riporta il numero di quante rilevate) o posta a "cella vuota" nel caso non vengano registrate corrispondenze?

Se é così quale sarebbe la cella..

Diversamente, per quello che so, alla tua domnda rispondo: negativo.

In autorisposta al mio quesito, ho avuto una folgorazione sul codice VBA allego immagine per capire il problema, io pensavo di cancelare il corrispondente valore che avevo, utilizzando il colore come base, dicendo tutto quello che trovi utilizzando la formattazione come gia riportato nel 1° post.

In parte questa folgorazione e opera di +aurelio+, nel osservare
il foglio vedo io i n° corrispondenti sia a monte che a valle c'è li ho, lunica differenza e il colore, quindi lascio perdere il colore e prendo il valore, prendendo il valore la macro e questa:


http://img126.imageshack.us/my.php?image=immaginerd1.jpg


Private Sub cancella_TOTALISSIMO()
'Sheets("ANALITICI TABELLE").Select
For Each d In Range("l376:l465") ' IL RANGE SELEZIONATO HA IL VALORE DEL RANGE d.VALUE


If d.Value = Range("a467") Then 'trova il N° del range e lo cancella

d.ClearContents
End If
Next d
For Each c In Range("l376:l465") ' IL RANGE SELEZIONATO HA IL VALORE DEL RANGE d.VALUE


If c.Value = Range("a468") Then 'trova il N° del range e lo cancella

c.ClearContents
End If
Next c



End Sub

Sperando che continuare ad aggiungere i for non rechi qualche errore strano.
Voi potete dirmi come posso inserire un range a468:a470 senza che mandi un errore.

Saluti
Comtrex

[Modificato da COMTREX 13/09/2006 11.44]

ciao COMTREX,
con qulache difficoltà io ho inteso così e se sbaglio butta tutto:
- range dati con lementi eventualmente da cancellare -> I376:I 465
- range dati di confronto-> A467:A470

- in altre parole si devono canellare tutte le corrsispondenze poste in A.. da I...

Mi pare di poter dire alla tua prima preoccupazione che non sussitono problemi ad aggiungere For Each... Next...
Mi pare che la tua seconda richiesta invece é un notevole ampliamento ai primi intenti in cui volevi cancellare una sola corrispondenza adesso invece sono ben quattro. Ma va bene così il tema si fa + interessante.

Prova così sempre che abbia inteso giusto o ev. adatta tenendo conto che per la prova ho impostato il FL1 in questo modo:
- range dati da eventualemnte cancellare in C3:C9
- range con dati di riferimento in A3:A5

NON DEVI + RIPETRE I CICLI FOR EACH ! e viene così anche + elegante. Che é sempre un bene come ci insegnano i Maestri del forum.

Quindi provala e poi adattala al tuo caso modificando i codici.
-----------
Sub CercaCancellaDu()

Dim val(1, 5) As Double

val(1, 3) = Range("a3")
val(1, 4) = Range("a4")
val(1, 5) = Range("a5")

For i = 3 To 5
For Each valCan In Range("c3:c9")

If valCan.Value = val(1, i) Then

valCan.ClearContents

End If
Next
Next i

End Sub
------------------

ciao
aurelio

Ciao comtrex,

io ho sviluppato questa macro con due cicli For Next nella speranza che sia ciò che volevi.
Eventualmente prova a modificarla

----------------------------------------------
Private Sub cancella_TOTALISSIMO()

Ainiz = Cells(1, 1).End(xlDown).Row
Biniz = Cells(1, 12).End(xlDown).Row
Afine = Cells(65536, 1).End(xlUp).Row 'sostituire l'1 col numero di colonna che interessa
Bfine = Cells(65536, 12).End(xlUp).Row 'sostituire il 12 col numero di colonna che interessa

For i = Ainiz To Afine
For ii = Biniz To Bfine

If Cells(i, 1) = Cells(ii, 12) Then 'sostituire l'1 e il 12 col numero di colonne che interessano
Cells(ii, 12).ClearContents 'sostituire il 12 col numero di colonna che interessa

End If
Next ii
Next i

End Sub----------------------------------------------

NB.: non ha importanza da quale riga iniziano i dati della colonna da cancellare ne di quella di confronto, il due range se li trova da sé; come pure non ci sono limiti alla quantità dei numeri, sia dell’una che dell’altra colonna.

T3T

Sono due macro utilissime li adopererò nel lavoro che sto imbastendo, avete colto nel segno.

Ringrazio sentitamente

Comtrex

ciao,
x chi volesse utilizzare le soluzioni sopra presentate


La soluzione di Mario (T3T) é da preferirire

xché, tra l'altro anche + dinamica.

ciao
aurelio