Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox, com base na range nomeada, ao clicar em um ítem na caixa de combinação(Combobox) os valores retornarão para um Label(Rótulo) e também para determinadas células na folha de planiha, a inserção de dados acontecerá a medida que for selecionando os ítens da ComboBox. Espero que o exemplo seja útil.
Fiquem com Deus, E_Marcondes.

'Esse procedimento esta em uma planilha que faz parte do Modulos Como Fazer - Programação Microsoft Excel VBA
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then Worksheets("Plan1").Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Value = ComboBox1.Value
   ActiveCell.Offset(0, 0).Value = "u" ' faz a formatação Wingdings (seta direita)
   ActiveCell.Offset(0, 1).Value = ComboBox1.Value  'vai inserir código do lado da célula ativa também
   ActiveCell.Offset(1, 0).Select ' e selecionar a próxima linha
   Label1.Caption = "Item..: [ " & ComboBox1.Value & " ] inserido com sucesso"
End Sub

Aprenda tudo sobre o Apliicativo Microsoft Excel VBA - Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos SaberExcel



 Baixe o exemplo de Planilha contendo os procedimentos e objetos acima.
Excel planilha vba usf combobox insere dados na coluna e cel ativa (16.56 KB)