| Descricao: |
 Saberexcel - site das Macros
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox somente com dados das folhas de planilhas que o nome começasm com as Letras 'SAB', neste caso específico carregará os dados somente das Folhas de Planilhas "SABEREXCEL" e "SABERPLAN", porque começam com as três letras 'SAB' . Espero que o exemplo seja útil. Fique com Deus. E_Marcondes
'dando saida de um dado para folha de planilha, fiz isso com intuíto didático, para que voce observe como é simples o princípio de um cadastro.
'esse aprendizado sobre a propriedade offset(Desloc), é muito importante no aprendizado MS Excel VBA(Visual Basic Application).
'não deixe de ver nosso Módulo COMO FAZER - Programação MS Excel VBA - (PROPRIEDADE DESLOC(OFFSET))
Private Sub ComboBox2_Change()
Frame1.Caption = ComboBox2.Value
[A65000].End(xlUp).Offset(1, 0).Value = ComboBox2 'localiza a proxima Célula em branco na coluna(A) e insere ítem selecionado combobox
End Sub
Private Sub UserForm_Initialize()
Dim sbx As Long
Set sbDicionario = CreateObject("Scripting.Dictionary")
Dim Wst As Worksheet, vColuna As Integer, vLinha As Long
' Definir a coluna para procura
vColuna = Me.ComboBox2.ListIndex + 1
' determinar para cada palanilha que comece com o nome SAB
For Each Wst In ThisWorkbook.Worksheets
' Se as tres primeiras letras for correspondente ao nome da folha de planiha
If Left(Wst.Name, 3) = "SAB" Then
' para todas as linhas
For sbx = 2 To 4
For vLinha = 2 To 10
'Adicionando o valor da coluna selecionada ao objeto combobox
iValor = Wst.Cells(vLinha, sbx + vColuna)
If iValor <> "" Then sbDicionario.Item(iValor) = iValor
Next vLinha
Next sbx
End If
Next Wst
Me.ComboBox2.List = sbDicionario.items
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos Saberexcel
|