Esses procedimentos do aplicativo microsoft Excel VBA(Visual Basic Application), contém options que preenche os dados da propriedade rowsource do objeto ComboBox, com critério de seleção options.


Private Sub ComboBox1_Click()
'Range("A65536").Offset(1, 0).End(xlUp).Value = ComboBox1.Value
Range("A407").End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Frame2.Caption = "Item inserido..: " & ComboBox1.Value
frm_viagem.Caption = Left(ComboBox1.Value, 5)
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub OptionButton1_Click()
Alimenta_Combo 1
End Sub

Private Sub OptionButton2_Click()
Alimenta_Combo 2
End Sub

Private Sub OptionButton3_Click()
Alimenta_Combo 3
End Sub

Private Sub OptionButton4_Click()
Alimenta_Combo 4
End Sub

Sub Alimenta_Combo(vColuna As Integer)
Dim I As Long

Me.ComboBox1.Clear
With Sheets("Banco_Dados")
For I = 2 To .Cells(65536, vColuna).End(xlUp).Row
Me.ComboBox1 = .Cells(I, vColuna)
If Me.ComboBox1.ListIndex = -1 Then
Me.ComboBox1.AddItem .Cells(I, vColuna)
End If
Next I
End With
Me.ComboBox1.ListIndex = -1
End Sub



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

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Aplication) contém vários options que ajudam na localização de dados,
isto é, ocultam linhas desejadas e mostram as linhas que contém determinados dados.
Observem que quando selecionar o option1 as instrução Case, mostrará as linhas referente ao range nomeado "Saber1", e asim acontece com os 5 options. Espero que o exemplos seja útil, Fiquem com Deus, E_Marcondes


Sub OptionButton_Click()
Rows("15:65").EntireRow.Hidden = True

Select Case Application.Caller
Case "opt1"
Range("Saber1").EntireRow.Hidden = False
Case "opt2"
Range("Saber2").EntireRow.Hidden = False
Case "opt3"
Range("Saber3").EntireRow.Hidden = False
Case "opt4"
Range("Saber4").EntireRow.Hidden = False
Case "opt5"
Range("Saber5").EntireRow.Hidden = False
End Select
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel

Saberexcel - o site das macros - aqui voce encontra o que procura.

Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que trabalha com Checkboxes, quando ativar determinada checkbox, que estão dispostos na folha de planiha na coluna(B), inserirá uma data e hora (Agora()) na coluna(C). São sete objetos checkboxes do vba que interagem com as macros.

Sub Processa_checkbox(sbObjeto)

Dim vLinha As Integer
Dim vRange As String

'Variaveis procura por todos os checkboxes inseridos plan
vLinha = sbObjeto.TopLeftCell.Row
vRange = "C" & CStr(vLinha)

'Insere na coluna(C) a data atual se o checkbox for ativado
If sbObjeto.Value = True Then
ActiveSheet.Range(vRange).Value = Now() 'nao esqueça de inserir a formatação personalizada na folha de planilha (Agora())

'Limpa a coluna C se a checkbox for destivada
Else
ActiveSheet.Range(vRange).Value = Null
End If

End Sub



Aprenda Aplicativo Microsoft Excel VBA com Saberexcel - o site das macros

Saberexcel - o site das macros

Este exemplo de Planilha do Aplicativo Microsoft Excel VBA, contém macro no Evento_Auto_Open que ao abrir o Workbook o Aplicativo fica invisível, mostrando um Userform, para visualizar o código voce poderá teclar [Alt + F11] para visualizar os códigos VBA e também o Userform usado.

Sub Aplicativo_invisivel()
Application.Visible = False
UserForm1.Show
End Sub


Aplicativo Microsoft Excel VBA, SaberExcel VBA
Aprenda sozinho, em casa, com baixo custo, excelente material didatico.

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