Validação com base em outra celula

2024 - Excel - O básico

Post Recente por marciobin 6 anos atrás

4 Posts

3 Usuários

0 Reactions

1,543 Visualizações

RSS

marciobin

(@marciobin)

Posts: 204

Estimable Member

Topic starter

Boa noite ,
olhando alguns modelos de planilhas , encontrei uma que tem uma função bacana .
A validação de dados de uma célula funciona com base em outra célula .

Porém , a mesma esta bloqueada e não tem como saber como foi feito .

Segue modelo do que preciso , e imagem da planilha que citei acima .
Vlew .Se alguém puder ajudar fico grato ...

Postado : 19/08/2018 4:32 pm

fcarlosc

(@fcarlosc)

Posts: 453

Honorable Member

Boa-noite marciobin

A senha para desbloqueio não seria !?

"*****"

Postado : 19/08/2018 7:02 pm

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Veja se é isso o que deseja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then
Exit Sub
End If
If Target.Column = 4 And Target.Row > 10 And Target.Value = "" Then
Target.Offset(0, 1).Validation.Delete
Target.Offset(0, 1).ClearContents
ElseIf Target.Column = 4 And Target.Row > 10 And Target.Value <> "" Then
With Target.Offset(0, 1).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="A,B"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "ATENÇÃO"
        .InputMessage = ""
        .ErrorMessage = "VÁLIDOS SOMENTE VALORES QUE ESTÁ NO FILTRO !"
        .ShowInput = True
        .ShowError = True
    End With
    End If
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 20/08/2018 7:47 am