Bom dia , Tudo bem?
Estou desenvolvendo um código com validação de dados dentro do VBA. Eu preciso que quando o campo da validação de dados for vazio ele limpe a célula mas o meu segundo looping não esta dando certo. Ele nao entende que se o campo cell.validation for igual a null ele precisa apagar aquele campo. Poderia me ajudar?
Set Rng = Planilha1.Range("K4:" & lastColLetter & "4")
For Each cell In Rng
' Aplica a validação de dados
With cell.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=teste1"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next cell
For Each cell In Rng
If cell.Validation Is Nothing Then
cell.Validation.Delete
End If
Next cell
Obrigada!