| Descricao: |
 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
|