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 - 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 - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), aumenta e diminui as medidas do Objeto CommandButton(Botão)
observe que a instrução IF, faz com que os eventos de clicar retorna a ação, fucionando como se fosse um botao de ativacao(Toggle)

Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub

Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub

'procedimento no módulo de edição do objeto Workbook, evento Auto_Open
Private Sub Workbook_Open()
With Saber1.CommandButton1
.Height = 20
.Width = 90
.Left = 150
.Top = 80
.Caption = "Sô tiancinha!!!"
End With
End Sub





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

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

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