Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere dados em uma combobox.
Há um passo-a-passo no exemplo de planilha da macro abaixo, explicando onde voce deverá aplicar o macro para que não ocorra um erro de compilação quando usamos a instrução Me. Você poderá observar a importancia de aprendermos sobre Membros de Objetos e suas hierarquia no Visual Basic. Baixe o exemplo de planilha no final da página com o passo a passo.



Sub Como_preencher_combobox_na_planilha()
Dim vContarLinhas

Me.ComboBox1.Clear
For vContarLinhas = 11 To 19
Me.ComboBox1.AddItem Plan2.Range("K" & vContarLinhas)
Next
[C4].Value = "Dados inseridos na Combobox"
End Sub

Sub limpar_combo_teste()
Me.ComboBox1.Clear
[C4].Value = "Dados Deletados da Combobox"
End Sub

Private Sub ComboBox1_Click()
[C2].Value = "Voce Selecionou o ítem: [ " & Me.ComboBox1.Value & " ]"
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel

Publicidade:
Compre com segurança, garantia e preços baixos nas lojas SubMarino

Saberexcel o site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox com os ítens contidos na coluna, e expande a lista na comobox,a medida em que os os dados forem sendo digitados na coluna (A).
Prezado Sr. Marcondes
Preciso de um procedimento que carregue uma combobox com os ítens que for sendo digitado na coluna(A), mas tem que ser incrementado toda a vez que for digitado. é possível a sua ajuda.
Obrigado , Jânio - Contabilista - SPaulo
'-----------------------------------------------------'
Prezado Jânio,
fiz esse exemplo rapidnho para você ver como funciona um a auto-incrementação,
observe que usei o Evento Initialize do Userform(quando for executado), poderia ser feito atraves de um range dinâmico também,
para carregar os ítens na propriedade Rowsource, fica bom também .
Aacho que é isso que voce precisa. Espero tê-lo ajudo ,
Obrigado pela Aquisição da Coleção de 15.000 Macros.
Fique com Deus, E_Marcondes


Private Sub UserForm_Initialize()
Usuario = Application.UserName
For i = 1 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem (Range("A" & i))
' If Range("B" & i).Value = Usuario Then u = i
Next i
' ComboBox1.ListIndex = u - 1
End Sub

Private Sub ComboBox1_Change()
Range("D12").Value = ComboBox1.Value
End Sub


Aprenda tudo sobre Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel.

Saberexcel - site das macros

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application) contém um exemplo de objeto Combobox(Caixa de Combinação), que que retorna dados para folha de planilha e também para o captions dos objetos dependendo do ítem selecionado no objeto combobox.
Retona valores selecionados para o captions Frame, UserForm, Labels, CommandButton, ComboBox e células.
♦ Observe que se o ítem na Combobox for igual a 'SABEREXCEL', muda os captions dos objetos senão, insere dados diferentes(objetos)

Private Sub ComboBox1_Change()
If ComboBox1.Value = "SABEREXCEL" Then
[B1].Value = ""
[B18].Value = "Quando você selecionar Saberexcel - veja os captions dos objetos"
TextBox1.Value = ComboBox1.Value
Label1.Caption = "Selecionou [ " & ComboBox1.Value & " ]"
CommandButton1.Caption = "Fechar"
UserForm1.Caption = "Saberexcel - site das macros"
Frame1.Caption = ComboBox1.Value
Else
[B1].Value = ComboBox1.Value
[B18].Value = "MUDANDO OS CAPTIONS E RETORNANDO NA CÉLULA B1"
TextBox1.Value = "Lançado na célula B1"
Label1.Caption = "Lançado [" & ComboBox1.Value & " ] Celula B1"
CommandButton1.Caption = "Lançado [" & ComboBox1.Value & " ] Celula B1"
UserForm1.Caption = "Lançado [" & ComboBox1.Value & " ] Celula B1"
Frame1.Caption = "Item selecionado..: [ " & ComboBox1.Value & " ]"
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "SABEREXCEL"
ComboBox1.AddItem "Aprenda VBA"
ComboBox1.AddItem "Determinação"
End Sub


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

Saberexcel - o site das macros

Esses procedimentos do Objeto CheckBox do Aplicativo Microsoft Excel VBA(Visual Basic Application) oculta a aba de planihas e protege a folha de planiha, muda a cor do checkbox e fonte quando a condição do checkbox for muda, retornando uma mensagem no caption do CheckBox, observe que fiz uma linha de código também para retornar
um valor para célula B1.

Veja bem, você poderia retornar qualquer valor de qualquer lugar, de qualquer objeto, uma soma, ou um texto, qualquer coisa,
para desenvolver o racicinio lógico e aprender a programar temos que buscar opções com um exemplo, isto é um exemplo simples, mas com
um pouquinho de criatividade dá pra se fazer um exemplo bacana. não é mesmo?. Suponhamos que fala, Ah! que pena, eu queria que essa planilha fosse protegida com senhas. Eu lhe digo é muito fácil, voce mesmo vai fazer.

Abra uma planiha comum, acione o gravador de macros, insira uma senha de proteção em uma planilha, desligue o gravador de macros,
vá até o ambiente do VBA(ALT+F11), pegue o código que foi gravado e substitua a linha de código que protege pela sua.
simples. Expero que o exemplo seja útil. Fiquem com Deus, Expedito Marcondes

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = True
CheckBox1.Caption = "Planilha Desprotegida e abas visíveis"
CheckBox1.BackColor = &H8000&
CheckBox1.ForeColor = &HFFFFFF
CheckBox1.Alignment = fmAlignmentLeft
Saber1.Shapes("sb").Visible = False
Saber1.[B1].Value = "Cuidado planilha desprotegida!!"
Else
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = False
Range("C2").Select
Saber1.[B1].Value = "Planilha PROTEGIDA!!"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
CheckBox1.Caption = "Planilha protegida, e Abas invisíveis!"
CheckBox1.BackColor = &HFF&
CheckBox1.ForeColor = &HFFFFFF
CheckBox1.Alignment = fmAlignmentRight
Saber1.Shapes("sb").Visible = True
End If

End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),
praticando sozinho, com baixo custo, estudando com os produtos didáticos Saberexcel

Esse exemplo de Macros, Procedimentos, Função e Declaração do Aplicativo Microsoft Excel VBA, ativa e ou desativa o botão NumsLock, com auxílio de um Botão Toogle (Botão de Ativação), que retorna (True / False ) (Verdadeiro ou Falso)

Function NumsLock() As Boolean
NumsLock = GetKeyState(VK_NUMLOCK) And 1 = 1
End Function

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub ToggleButton1_Click()
'declaração
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = IIf(kbArray.kbByte(VK_NUMLOCK) = 1, 0, 1)
SetKeyboardState kbArray

ToggleButton1.Caption = IIf(NumsLock() = 0, "Desativado", "Ativado")
Label1.Caption = IIf(NumsLock() = 0, "Desativado", "Ativado")
Frame1.Caption = IIf(NumsLock() = 0, "Tecla NumLook [Desativada]", "Tecla NumsLock [Ativada]")

If Label1.Caption = "Desativado" Then
Label1.BackColor = &H80C0FF
Frame1.ForeColor = &HFF&
Else
Label1.BackColor = &H80FF80
Frame1.ForeColor = &H4000&
End If
End Sub

Private Sub UserForm_Initialize()
'ToggleButton1.Value = True
ToggleButton1.Caption = IIf(NumsLock() = 0, "[Desativada]", "[Ativada]")
Label1.Caption = IIf(NumsLock() = 0, "Desativado", "Ativado")
End Sub

Aprenda Aplicativo Microsoft Excel VBA - SaberExcel