Faltou a planilha que recebe os dados.

E nao entendi que tipo de carregamento de dados na combo vc quer fazer ja que todos os dados da lista estão na combo.

Boa tarde, MPrudencio!

A planilha que recebe os dados não é tão importante porque isso eu já sei fazer. O problema maior é organizar as contas para que elas possam aparecer de forma organizada na(s) caixa(s) de combinação.

Veja o seguinte exemplo:
Imagine que você quer se casar, viajar, comprar um carro, um biscoito e um botijão de gás.

Organizamos e estruturamos tudo isso da seguinte forma:

1. Orçamento Financeiro ----> A conta mãe.
1.1. Curto Prazo ----> Subconta da conta mãe.
1.1.1. Comprar Biscoito
1.1.2. Comprar Botijão de gás
1.2. Longo Prazo
1.2.1. Viajar
1.2.1.1. Passagens
1.2.1.2. Alimentação
1.2.1.3. Presentes
1.2.1.4. Outros
1.2.2. Comprar Carro
1.3. Casar
1.3.1. Cerimônia
1.3.1.1. Ornamentação
1.3.1.1.1. Flores
1.3.1.1.1.Tapete

etc.etc.etc

As contas servem para organizar o planejamento e eu estou querendo colocar isso no form. de forma que se eu for incluir algum valor na conta "Flores", eu tenha que passar pelas contas "Ornamentação";"Cerimônia";"Casar" do "Orçamento Financeiro" antes. Seja colocando várias caixas de combinação, ou um listbox para ir selecionando as contas, etc!

Bom... é isso. Veja se deu pra entender!

leandroxtr,

Boa tarde!

Não sei se entendi corretamente mas... veja se é assim.

Wag, você é 10!!

É exatamente isso que eu estava querendo. Imaginei que essa era a forma mais adequada mesmo.

Muito Obrigado!

Vou fazer minhas adaptações aqui e qualquer coisa te comunico.

Um abraço!

Reabri apenas para tirar dúvida.

Tem algumas partes deste código que não entendi muito bem, poderia me explicar como ele funciona? Principalmente essa parte; Sheets("Plan1").Cells(Cells.Rows.Count, 2).End(xlUp).Row

Private Sub Cmb_Prim_Nível_Change()
    Dim i As Long
    Dim UltimaLinhaColunaB As Long
    Dim UltimaLinhaColunaJ As Long
    
    If Cmb_Prim_Nível.Value = "Circulante" Then
        Cmb_Seg_Nível.Clear
        UltimaLinhaColunaB = Sheets("Plan1").Cells(Cells.Rows.Count, 2).End(xlUp).Row
        For i = 2 To UltimaLinhaColunaB
            Cmb_Seg_Nível.AddItem Sheets("Plan1").range("B" & i).Value
        Next
    Else
        Cmb_Seg_Nível.Clear
        UltimaLinhaColunaJ = Sheets("Plan1").Cells(Cells.Rows.Count, 10).End(xlUp).Row
        For i = 2 To UltimaLinhaColunaJ
            Cmb_Seg_Nível.AddItem Sheets("Plan1").range("J" & i).Value
        Next
    End If
End Sub

Aproveitando, Como faço para inserir dados de uma Tabela dinâmica no ComboBox?

Vlw

Boa tarde!

Estava fazendo minhas adaptações aqui e percebi que a função "IF" é fixada nas contas já existentes, o que complica um pouco quando precisar criar uma nova conta ou subconta, pois terei que mexer no código.

Será que eu não conseguiria fazer isso de forma dinâmica? Como por exemplo alimentar tabelas, de forma que o código já entenda todas os itens que estão dentro dela.

OBS [ERRO]: Quando selecionamos as contas "Não Circulante" e as demais subs, quando chega no quarto nível, aparece contas do "Circulante".

leandroxtr,

Boa tarde!

Até tentei aqui dá uma melhorada para poder te ajudar mas... estou sem tempo e para tornar variável a leitura das contas dentro da instrução IF é um pouco mais complexo e demanda mais tempo.

Quanto a linha abaixo, ela pega na planilha, coluna B a última linha com dados dessa coluna.

Sheets("Plan1").Cells(Cells.Rows.Count, 2).End(xlUp).Row

Tudo bem, camarada!

Já deu para ajudar demais!
Estou fazendo minhas adaptações aqui.
Quando puder me ensinar sobre a dinamicidade da fórmula IF , estarei a disposição!

VLww. Abraços

Boa noite leandroxtr

Quando puder me ensinar sobre a dinamicidade da fórmula IF , estarei a disposição!

Acesse o link abaixo:
http://www.tomasvasquez.com.br/blog/mic ... -then-else

Se foi útil, clique na mãozinha que fica do lado da ferramenta Citar.

[]s