Este fórum está sendo desativado

[Suenne]

Caros, bom dia!
Estou criando um diário de obras e preciso usar várias listas dependentes.
Pelo que pesquisei p/ utilizar essas listas dependentes e a função autocompletar, eu vou precisar utilizar combo box.
Então pensei em fazer um formulário onde o usuário preenche diariamente e esses dados são enviados para um banco de dados (planilha base geral), onde eu consiga fazer uma planilha dinâmica com esses dados e mostrar de forma simples e objetiva aos meus gerentes.
Alguém pode me ajudar?
Obrigada,

[gfranco]

Bom dia.
Seria a seleção dinâmica das "SUBETAPAS " conforme é informada a "ETAPA" na planilha "Lançamento de dados"?
Veja se o que fiz te ajuda.
At
gfranco.

[Suenne]

Oi Gfranco!

era isso mesmo!

Acabei iniciando o desenvolvimento com o userform e cheguei em outro impasse. Fazer essa dependência em VBA.

A lista já está buscando os dados corretos, agora preciso apenas colocar o combobox subetapa para retornar dados com base no combobox etapa.

Pode me ajudar?

Obrigada.

[gfranco]

Boa tarde.
Seria +- assim..
At
gfranco

[Suenne]

É isso mesmo Gfranco!

Uma última dúvida! Não sei se você percebeu, mas aquelas abas Config_ serão alimentadas com frequência, de acordo com a necessidade do usuário.

Quando eu configuro o combobox eu falo o range que ele vai buscar os dados, se a pessoa adicionar uma nova linha nas planilhas de config o combo não vai retornar. Tem como automatizar isso?

Desde já, muito obrigada!

[gfranco]

Bom dia.
Continue utilizando o Gerenciador de nomes para apontar para as colunas das tabelas como vc mesma fez, por exemplo com o "BOXEMPRESA"
que vc apontou sua rowsource para o nome criado no gerenciador de nomes "EMPRESA_BOX" e este,por sua vez tem sua origem dos dados em =Tabela34[Nome Empresa]

[Suenne]

Gfranco!

deu certo, agora só preciso de ajuda pra entender o código que você fez, pois fiz umas alterações na planilha config_subetapa e ele deixou de listar as opções e copiar na planilha depois que insere os dados:

Código: Selecionar todos

Private Sub BoxEtapa_Change()
Dim t As Long, w As Worksheet, vsub As String
vsub = UCase(Trim(Me.BoxEtapa.Value))

If Len(vsub) = 0 Then
Me.Boxsubetapa.Clear

Exit Sub
End If
Me.Boxsubetapa.Clear
Set w = Plan6
t = w.Cells(Cells.Rows.Count, 1).End(xlUp).Row

For i = 4 To t

If UCase(w.Cells(i, 1)) = vsub Then

Me.Boxsubetapa.AddItem w.Cells(i, 4)

End If

Next

End Sub

Pode me explicar?

[gfranco]

Boa tarde.
Segue.
At
gfranco

[Suenne]

GFranco, eu não sei o que eu aprontei aqui.

Ele não ta retornando de jeito nenhum.

[Suenne]

Gfranco!

Achei o erro! Muito obrigada pela ajuda e paciência!

Abraços!