Una brutta abitudine: chiedere come mai la cosa non funziona senza descrivere quale e' la cosa...
Comunque:
-quando scrivi
"LEN(CELLS(I,2))<>10", tutto questo e' una unica stringa mentre tu avresti voluto usare I come variabile, cosa che potevi ottenere con
"LEN(CELLS(" & I & ",2))<>10"-nel tuo loop nelle celle di colonna B dove la colonna A e' vuota rimane sempre la formattazione condizionale, se era mai stata impostata; cioe' una volta impostata non viene piu' eliminata
-ma non c' e' bisogno di fare nessun ciclo: selezioni tutto l' intervallo e applichi la formattazione condizionale con la formula
=SE(A1>0;LUNGHEZZA(B1)<>10;0)-potrebbe essere utile impostare in B1:B100 una convalida con la condizione Consenti=Lunghezza testo, Dati=uguale a, Lunghezza=10
-per impostare la formattazione condizionale da vba:
- Codice: Seleziona tutto
Range("B1").Select
With Range("B1:B100")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE(A1>0;LUNGHEZZA(B1)<>10;0)"
.FormatConditions(1).Interior.ColorIndex = 3
End With
E se non trovi gli spunti giusti allora parti dalla domanda che ha fatto Ricky e descrivi che cosa vorresti realizzare.
Ciao.