Notifications
Clear all

Adicionar dados via VBA no Excel

5 Posts
2 Usuários
0 Reactions
788 Visualizações
(@brunofelip)
Posts: 3
New Member
Topic starter
 

Boa tarde pessoal.

Tenho uma pequena dúvida referente a VBA no excel.

Tenho uma planilha e estou iniciando querendo colocar alguns "adicionais" nela, criei algo bem simples apenas para exemplificar o que preciso (em anexo)

Em resumo, preciso que através do "UserForm" criado eu consiga localizar através do "ComboBox" as "RAIAS" e os dados lançados no "TextBox" sejam apresentados sequenciais na frente do nome "RES1 / RES2 / ..."

Acho que é simples pra quem manja, como minha praia não é exclusivamente essa, peço o apoio p/ os experts do fórum.

Abraços

 
Postado : 19/08/2015 4:37 pm
Trindade
(@trindade)
Posts: 278
Reputable Member
 

Boa noite, brunofelip.

Acho que esse código vai te dar o norte.
Insira essas linhas de códigos no seu UserForm.

Private Sub UserForm_Initialize()

Dim UltimaLinha As Long, Area As New Collection
Dim Value As Variant, Temp() As Variant

On Error Resume Next
UltimaLinha = Sheets("Inscritos").Range("D" & Rows.Count).End(xlUp).Row

'A linha abaixo refere-se a coluna que contém os dados da lista
Temp = Sheets("Inscritos").Range("D2:D" & UltimaLinha).Value

    For Each Value In Temp
        If Len(Value) > 0 Then Area.Add Value, CStr(Value)
    Next Value

    For Each Value In Area
        ComboBox1.AddItem Value 'ComboBox
    Next Value

Set Area = Nothing

End Sub

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 19/08/2015 7:48 pm
(@brunofelip)
Posts: 3
New Member
Topic starter
 

Fiz isso, porém me é listado apenas o conteúdo do ComboBox, preciso que agora (por exemplo) ao selecionar a entrada "BBBB" e digitar 500 no TextBox o mesmo seja lançado na célula vazia a sua frente, no caso do exemplo seria a E3. Ao digitar o novo valor (da mesma entrada) iria para a E4 e assim vai ...

Obrigado desde já pelo apoio.

 
Postado : 19/08/2015 8:15 pm
Trindade
(@trindade)
Posts: 278
Reputable Member
 

Bom dia, brunofelip

Segue uma forma bem primitiva de montar o que precisa.
Sei que existe forma dinâmica e com bem menos linhas para montar o código, mas foge do meu entendimento sobre vba.

Arquivo:

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 20/08/2015 6:34 am
(@brunofelip)
Posts: 3
New Member
Topic starter
 

Sensacional Trindade era exatamente isso que precisava.

Adaptarei o código a minha necessidade.

Abraços

 
Postado : 20/08/2015 3:27 pm