CIAO,
Come posso trovare una cella che contiene un menù a tendina?
il seguente listato produce un errore.
For I4 = 3 To 7
If Cells(I4, 9).Validation = True Then ...
Next I4
Grazie
Moderatori: Anthony47, Flash30005
VAdr = ActiveCell.SpecialCells(xlCellTypeAllValidation).Address
For I4 = 1 To 20
If Cells(I4, 1).Validation.Type = xlValidateList Then Cells(I4, 1).Interior.ColorIndex = 45
Next I4
VADR = [I3:I7].SpecialCells(xlCellTypeAllValidation).Address
For Each MYCELL In Range(VADR)
If MYCELL.Validation.Type = xlValidateList Then Range(VADR).Interior.ColorIndex = 45
If MYCELL.Validation.Type = xlValidateList Then Range(VADR) = Trim(Left(MYCELL, 2))
Next
For Each myCell in Range(VAdr)
If myCell.Validation.Type = xlValidateList Then
myCell.Range(VADR).Interior.ColorIndex = 45
myCell.Value = Trim(Left(myCell.Value, 2))
End If
Next myCell
Torna a Applicazioni Office Windows
Menu a tendina che non mi seleziona una provincia Autore: danibi60 |
Forum: Applicazioni Office Windows Risposte: 6 |
colora parte di frase/ Parola in stessa cella Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Incolla prendendo riferimento da cella esterna Autore: scanacc |
Forum: Applicazioni Office Windows Risposte: 4 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 44 ospiti