Este fórum está sendo desativado

[maaoliveiras4]

Boa tarde pessoal!

Gostaria de saber se existe alguma forma de deixar uma lista suspensa em uma célula somente se em outra célula for um valor x, caso contrário, que não traga a lista suspensa e a pessoa possa digitar na mesma.

Não sei se fui clara na pergunta, então vou exemplificar:

Tenho duas listas suspensas: uma de atividades e outra com nomes de empresas.

Na célula A1, tenho uma lista suspensa com as atividades "A", "B" e "C".

Célula B1: Caso na célula A1 esteja selecionada a atividade "A", quero que a célula B1 fique disponível para digitação. Caso na célula A1 esteja selecionada a atividade "B" ou "C", quero que na célula B1 apareça a lista suspensa com nomes de empresas.

Não sei também se é possível fazer isso, mas se alguém souber e puder me ajudar, agradeço muito!

[Deciog]

maaoliveiras4

Se não for isso poste um modelo com exemplos


Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Se você Visitante Também gostou e foi útil pode clique em obrigado

Decio

[maaoliveiras4]

Olá Décio,

Estou enviando uma planilha com exemplo.

Desde já, agradeço

[gfranco]

Boa tarde.
Veja se o anexo se aproxima de seu objetivo

[gfranco]

Nota: trata-se de uma planilha com macro então deve-se habilitar o conteúdo para que funcione.

[maaoliveiras4]

É isso mesmo que preciso gfranco! rsrs

Seria pedir muito pra você me explicar melhor essa macro? Fiz essa planilha como exemplo, mas preciso aplicar em uma outra, com informações da empresa que trabalho

Não tem muita diferença dessa do exemplo, mas a lista de empresas está em outra aba.

[gfranco]

Que bom que ajudou.
Sugiro postar sua planilha (com dados fictícios MAS MESMA ESTRUTURA!) que eu ajusto a macro pra vc.

[maaoliveiras4]

gfranco alterei a macro que vc fez (onde ao invés de "A" usei "Abertura"), mas ainda está habilitando a lista de empresas.

A macro ficou assim:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then

If UCase(Target.Value) <> "Abertura" Then
With Plan4.Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$G$1:$G$22"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With




ElseIf UCase(Target.Value) = "Abertura" Then
With Plan4.Range("B1").Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With








End If



End If

End Sub




Você consegue me informar onde estou errando?

OBS: Hoje não consigo mudar os dados da planilha para outros fictícios, mas amanhã altero e envio caso ainda seja preciso

Muito obrigada!

[gfranco]

Boa noite.
Para uma construção mais acertada sugiro que poste mesmo sua planilha.
É importante eu ressaltar que deve ser com a mesma estrutura da original (coloque dados fictícios e de preferencia me aponte onde os dados podem aumentar em número). Tenha sempre em mente que eu não entendo nada sobre a finalidade e uso da sua planilha então.... quanto mais detalhes vc fornecer melhor poderá ser a minha contribuição (ou de outros colegas do fórum).
At
Gfranco.

[gfranco]

Bom dia.
Faça assim:
escreva a palavra Abertura (DENTRO DO CÓDIGO) toda em maiúscula:
ABERTURA