Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esses procedimentos (macros) do aplicativo Microsoft Excel VBA(Visual Basic Application), limpa todos objetos Textboxes de um determinado objeto Userform, observe que poderá também usar o código, fazer um macro para também limpar os objetos textboxes quando chamados.
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.

Private Sub CommandButton1_Click()
Dim T As Control
TextBox1.SetFocus
For Each T In UserForm1.Controls
If TypeName(T) = "TextBox" Then
T.Value = ""
End If
Next Z
End Sub

Private Sub CommandButton2_Click()
limpar_todos_textoboxes
MsgBox ("textbox foram limpados com macros"), vbInformation, "Saberexcel"
TextBox1.SetFocus
End Sub

Private Sub Label1_Click()
Unload Me
UserForm2.Show
End Sub

Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -
veja o macro que voce poderá fazer para chamar a partir de um módulo comum
para diversos userforms.

Sub limpar_todos_textoboxes()
Dim T As Control
UserForm1.TextBox1.SetFocus
For Each T In UserForm1.Controls
If TypeName(T) = "TextBox" Then
T.Value = ""
End If
Next T

End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

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), 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

Saberexcel - o site das macros
Exemplo de procedimentos do Aplicativo Microsoft Excel VBA, contendo oito(8) exemplos de Listbox, muito bom para usarmos em nossos projetos e trabalhos do dia-a-dia. Espero que isso possam ajudá-los. Fiquem com Deus, E_Marcondes






Imagem do exemplo da listbox 1


Option Explicit

Private Sub cmbOK_Click()

If ListBox1.ListIndex = -1 Then
MsgBox "Nenhuma lista valor selecionado!", vbCritical
Exit Sub
End If

Cells(2, 1).Value = ListBox1.Value

Unload Me
End Sub

Private Sub cmFechar_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim vaManad As Variant

vaManad = Array("Janeiro", "Fevereiro", "Março", "Abril", _
"Maio", "Junho", "Julho", "Agosto", _
"Setembro", "Outubro", "Novembro", _
"Dezembro")

With ListBox1
.Clear
.List = vaManad
.ListIndex = -1
.TextAlign = fmTextAlignCenter
End With

End Sub

'...............................'

Abaixo Imagem e procedimentos do exemplo da Listbox2

Option Explicit

Private Sub cmbOK_Click()
If ListBox2.ListIndex = -1 Then
MsgBox "Nennhum valor da lista foi selecionado!", vbCritical, "Saberexcel - o site das macros"
Exit Sub
End If

Cells(2, 3).Value = ListBox2.Value

Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim vGrupos, iValores As Variant
Dim stLista() As String
Dim i As Integer

vGrupos = VBA.Array("AA", "BB", "CC")
iValores = VBA.Array("10", "20", "30")

ReDim stLista(0 To UBound(vGrupos), 0 To 1)

For i = 0 To UBound(vGrupos)
stLista(i, 0) = vGrupos(i)
stLista(i, 1) = iValores(i)
Next i

With ListBox2
.Clear
.BoundColumn = 2
.ColumnCount = 2
.List = stLista
.ListIndex = -1
End With
End Sub

Private Sub mdFechar_Click()
Unload Me
End Sub



'...............................'

Abaixo Imagem e procedimentos do exemplo da Listbox3

Option Explicit

Private Sub cmbOK_Click()
Dim i As Integer
Dim rnCell As Range

Set rnCell = Sheets("ListBox3").Range("A1")

If ListBox3.ListIndex = -1 Then
MsgBox "Nenhum valor da lista foi selecionado!", vbCritical, "Saberexcel - o site das macros"
Exit Sub
End If

For i = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(i) Then _
rnCell.Offset(i, 0).Value = ListBox3.List(i)
Next i

Unload Me
End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim vLista, iValores As Variant
Dim stLista() As String
Dim i As Integer

vLista = VBA.Array("AA", "BB", "CC")
iValores = VBA.Array("10", "20", "30")

ReDim stLista(0 To UBound(vLista), 0 To 1)

For i = 0 To UBound(vLista)
stLista(i, 0) = vLista(i)
stLista(i, 1) = vaAndra(i)
Next i

With ListBox3
.Clear
.BoundColumn = 2
.ColumnCount = 2
.List = stLista
.ListIndex = -1
.MultiSelect = fmMultiSelectMulti
.TextAlign = fmTextAlignCenter
End With

End Sub





'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox4

Option Explicit

Private Sub cmbOK_Click()
Dim i As Integer
Dim rnCell As Range

Set rnCell = Sheets("ListBox4").Range("A1")

If ListBox2.ListIndex = -1 Then
MsgBox "Insira o valor na lista!", vbCritical
Exit Sub
End If

rnCell.Value = ListBox2.Value

Unload Me
End Sub

Private Sub ListBox1_Click()
Dim vaJan, vaFev, VaMar, vaAbril As Variant

vaJan = VBA.Array("1", "2", "3")
vaFev = VBA.Array("10", "20", "30")
VaMar = VBA.Array("100", "200", "300")
vaAbril = VBA.Array("1000", "2000", "3000")

Select Case ListBox1.Value
Case "Janueiro"
ListBox2.List = vaJan
Case "Fevereiro"
ListBox2.List = vaFev
Case "Março"
ListBox2.List = VaMar
Case "Abril"
ListBox2.List = vaAbril
End Select

End Sub

Private Sub UserForm_Initialize()
Dim vaLista1 As Variant

vaLista1 = VBA.Array("Janeiro", "Fevereiro", "Março", "Abril")

With ListBox1
.Clear
.List = vaLista1
End With
End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox5

Option Explicit

Private Sub cmbOK_Click()
Dim i, j As Integer
Dim rnCell As Range

Set rnCell = Sheets("ListBox5").Range("A1")

If ListBox5.ListIndex = -1 Then
MsgBox "Nenhum valor foi seleciona nesta lista!", vbCritical, "Saberexcel - o site das macros"
Exit Sub
End If

j = 0
For i = 0 To ListBox5.ListCount - 1
If ListBox5.Selected(i) Then
j = j + 1
rnCell.Offset(j, 0).Value = ListBox5.List(i, 0)
rnCell.Offset(j, 1).Value = ListBox5.List(i, 1)
End If
Next i

Unload Me
End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim iValores, vaAndra As Variant
Dim stLista() As String
Dim i As Integer

iValores = VBA.Array("AA", "BB", "CC")
vaAndra = VBA.Array("10", "20", "30")

ReDim stLista(0 To UBound(iValores), 0 To 1)

For i = 0 To UBound(iValores)
stLista(i, 0) = iValores(i)
stLista(i, 1) = vaAndra(i)
Next i

With ListBox5
.Clear
.BoundColumn = 2
.ColumnCount = 2
.List = stLista
.ListIndex = -1
.MultiSelect = fmMultiSelectMulti
End With

End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox6

Option Explicit

Private Sub UserForm_Initialize()
Dim vCelula, vIntervalo As Range

Set vIntervalo = Worksheets("Listbox6").Range("B2:G2")

For Each vCelula In vIntervalo
ListBox6.AddItem vCelula.Value
Next vCelula

End Sub

Private Sub cmbOK_Click()
Unload Me
End Sub



'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox7

Private Sub UserForm_Initialize()
Dim rnLista, rnCell As Range
Dim wkData As Worksheet

Set wkData = ThisWorkbook.Sheets("ListBox7")

Set rnLista = Union(wkData.Range("A2:A4"), wkData.Range("E2:E4"))

For Each rnCell In rnLista
ListBox7.AddItem rnCell.Value
Next rnCell

End Sub

Private Sub cmbOK_Click()
Unload Me
End Sub

'...............................'
Abaixo Imagem e procedimentos do exemplo da Listbox8

Option Explicit

Private Sub cmbOK_Click()
Dim iDados, vLista As Integer
Dim i, j As Integer
Dim vTemp As String

iDados = 0
vLista = ListBox8.ListCount - 1

For i = iDados To vLista - 1
For j = i + 1 To vLista
If ListBox8.List(i) > ListBox8.List(j) Then
vTemp = ListBox8.List(j)
ListBox8.List(j) = ListBox8.List(i)
ListBox8.List(i) = vTemp
End If
Next j
Next i

End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim vMeses As Variant
vMeses = Array("Jan", "Fev", "Mar", "Abr", _
"Mai", "Jun", "Jul", "Ago", _
"Set", "Out", "Nov", _
"Dez")

With ListBox8
.Clear
.List = vMeses
.ListIndex = -1
End With

End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com 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