Convalida dati ....non va. perche?
Gentilissmo Dodo,
ho provato parecchie volte a far girare la tua routine ma senza successo.
ho sostituito i tuoi valori che facevi girare nel tuo file con i miei:
"$E$37:$E$39" e' l'intervallo delle tre celle "configurate" con il convalida dati e che devono accettare
l'input con la finestrella associata alla serie di dati.
"Foglio1(AC1,AC50) questo e' il range-intervallo a cui e' associato il convalida dati.
Voglio essere sincero. Nel mio foglio di lavoro prima di arrivare a e37-e39, nel foglio si attiva una userform, viene fatta una copia del foglio in un foglio con nome perosnalizzato, viene aggiornata una tabella, e dopo si
arriva alla zona e37-e39.
Spero di non averti fatto AMMATTIRE.
gRAZIE.
Saverio
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Domanda As String
If Target.Cells.Count > 1 Then Exit Sub
If Target.Address = "$E$37:$E$39" Then
If IsEmpty(Target) Then Exit Sub
If WorksheetFunction.CountIf(Range("Foglio1!AC1,Foglio1!AC50"), Target) = 0 Then
Domanda = MsgBox("Aggiungi " & Target & " alla lista", vbYesNo + vbQuestion)
If Domanda = vbYes Then
Range("Foglio1!AC1,Foglio1!AC50").Cells(Range("Foglio1!AC1,Foglio1!AC50").Rows.Count + 1, 1) = Target
Else
Range("E37:E39") = ""
Range("E37:E39").Select
End If
End If
End If
End Sub