Saberexcel - o site de quem precisa aprender macros ms excel VBA

Esse macro do aplicativo Microsoft Excel VBA, trabalham com Checkbox, formatando células, cor da fonte e interior, ao serem selecionados,
mudam os dados nas linhas especificas onde estão ancoradas, marcam a data e hora na coluna(b) e mensagem na coluna(C), ao serem habilitados.
Espero que o exemplo possam ajudá-los. Fiquem todos com Deus, Expedito Marcondes

Sub trabalhando_com_checkboxes()

Dim ckBOX As CheckBox
Dim vLinha As Integer
Dim LRange As String
Dim LBatataDoce As String 'Cristina uma variável pode conter qualquer nome desde que nao faça parte do scopo do vb, simbolos proibidos, e sem espaços.

vNome = Application.Caller
Set ckBOX = ActiveSheet.CheckBoxes(vNome)

'procura a linha onde esta a checkbox residencia dela
vLinha = ckBOX.TopLeftCell.Row
LRange = "B" & CStr(vLinha)
LBatataDoce = "C" & CStr(vLinha)

'insere a data na coluna(B) se a checkbox for habilitada
If ckBOX.Value > 0 Then
ActiveSheet.Range(LRange).Value = Now() 'Date
ActiveSheet.Range(LBatataDoce).Value = "Revisado,Entregue"
ActiveSheet.Range(LBatataDoce).Interior.ColorIndex = 35
ActiveSheet.Range(LBatataDoce).Font.ColorIndex = 1
ActiveSheet.Range(LBatataDoce).Font.Bold = False
ActiveSheet.Range(LRange).Interior.ColorIndex = 28

'limpar a data na coluna(B) se a checkbox for desabilitada

Else
ActiveSheet.Range(LRange).Value = Null
ActiveSheet.Range(LRange).Interior.ColorIndex = Null

ActiveSheet.Range(LBatataDoce).Value = "Aguardando Aprovação"
ActiveSheet.Range(LBatataDoce).Interior.ColorIndex = 3 'xlNone 'ou Null
ActiveSheet.Range(LBatataDoce).Font.ColorIndex = 2
ActiveSheet.Range(LBatataDoce).Font.Bold = True

End If

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 de quem precisa aprender macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando objeto userform e um CheckBox oculta todos os controles
Labels, TextBoxes e CommandButtons do objeto Userform.

Private Sub CheckBox1_Click()
Dim c As Control
For Each c In Me.Controls
If CheckBox1 = True Then
Select Case TypeName(c)
Case "TextBox"
c.Visible = False
Case "Label"
c.Visible = False
Case "CommandButton"
c.Visible = False
End Select
CheckBox1.Caption = "Objetos Ocultos"
CheckBox1.BackColor = &HFFFF00
CheckBox1.ForeColor = &HFF&
Else
Select Case TypeName(c)
Case "TextBox"
c.Visible = True
Case "Label"
c.Visible = True
Case "CommandButton"
c.Visible = True
End Select
TextBox1.SetFocus
CheckBox1.Caption = "Ocultar Objetos"
CheckBox1.BackColor = &H80C0FF
CheckBox1.ForeColor = &H8000&
End If
Next c
lblSBX.Visible = True 'mostrando label desejado.
End Sub

Private Sub fechar_Click()
End
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.

Escola Saberexcel VBA Estudos - o site de quem precisa aprender tudo sobre excel vba

Procedimentos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como inserir um moveicon em determinado objeto, neste caso vamos usar CommandButtons e Labels, pegamos uma figura do Super-Mário.
Junto inserí também um shapes(Autoforma) intermitente, isto é, uma autoforma que pisca 10 vezes na folha de planilha ao executar o macro.
Espero que o exemplo possa lhe ser útil. Baixe o exemplo de planilha no final da página com todas as explicações de como fazer.
Fique com Deus, Expedito Marcondes
' - - - - - - - - - - - - - - - - - - - - - - - - - -
PROCEDIMENTOS EXISTENTES NO MÓDULO DE CÓDIGO DO USERFORM.
'- - - - - - - - - - - - - - - - - - - - - - - - - -

Private Sub cmdICONE_Click()
On Error Resume Next
Saber1.Shapes("saber").Visible = True
[A13].Value = "......A-G-U-A-R-D-E---> 4 segundos......"
vTempo = Timer + 4 'definindo os quatro segundos para ocultar a imagem

Do While Timer < vTempo
DoEvents
Loop

Saber1.Shapes("saber").Visible = False
UserForm1.Show
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -
Private Sub lblINTERMITENTE_Click()
Dim resposta As String

resposta = MsgBox("Já que clicou, quer aprender a fazer imagem intermitente", vbYesNo, "Saberexcel - o site das macros")
If resposta = 6 Then

sb = 0
[A13].Value = "......UM MOMENTO...espere----> shapes piscar 10 vezes......"
Do While sb < 10
ActiveSheet.Shapes("sbx_didaticos").Visible = True
vTempo = Timer + 0.4
Do While Timer < vTempo
DoEvents
Loop

ActiveSheet.Shapes("sbx_didaticos").Visible = False
vTempo = Timer + 0.2
Do While Timer < vTempo
DoEvents
Loop
sb = sb + 1
Loop
End If
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub

'onde queremos que o userform abra na folha de planilha (Altura e Esquerda)
Private Sub UserForm_Activate()
With frmICONE
.Top = Application.Top + 15 '
.Left = Application.Left + 17 '
End With
End Sub

Private Sub Label3_Click()
sbx_visualizar_shapes
End Sub

Private Sub cmdFECHAR_Click()
Unload Me
End Sub

' - - - - - - - - - - - - - - - - - - - - - - - - - -
EM UM MÓDULO COMUM INSIRA ESSE MACRO.
'- - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_intermitente()
'http://www.microsoftexcel.com.br
Dim resposta As String
resposta = MsgBox("deseja visualizar autoforma intermitente?..", vbYesNo, "Escola Saberexcel VBA Estudos®")
If resposta = 6 Then
[A13].Value = "......UM MOMENTO...espere----> shapes piscar 10 vezes......"
n = 0
Do While n < 10
ActiveSheet.Shapes("sbx_didaticos").Visible = True
vTempo = Timer + 0.4
Do While Timer < vTempo
DoEvents
Loop
ActiveSheet.Shapes("sbx_didaticos").Visible = False
vTempo = Timer + 0.2
Do While Timer < vTempo
DoEvents
Loop
n = n + 1
Loop
End If
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub

Sub sbx_visualizar_shapes()
ActiveSheet.Shapes("sbx_didaticos").Visible = True
Saber1.Shapes("saber").Visible = True
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.

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

Esses procedimentos do aplicativo Microsoft Excel VBA(Visual Basic Application) carregam um objeto ListBox e um Objeto Combobox na inicialização de Userform(formulário).
Não deixe de ver nosso trabalho com Deslocamentos de dados (Células e Range) - assinantes.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub ComboBox1_Click()
Plan1.Range("L65000").End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Frame2.Caption = "Item Inserido: [ " & ComboBox1.Value & " ]"
End Sub

Private Sub CommandButton1_Click()
[b].ClearContents 'celulas nomeadas como [b] ' nao deixe de ver nosso trabalho 'RENOMEANDO CÉLULAS'
MsgBox ("area deletada com sucesso!"), vbInformation, "Escola Saberexcel VBA Estudos"
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()
Plan1.Range("n65000").End(xlUp).Offset(1, 0).Value = ListBox1.Value
Frame1.Caption = "Item Inserido: [ " & ListBox1.Value & " ]"
End Sub

'procedimento para posicionar o userform na folha de planilha
Private Sub UserForm_Activate()
With UserForm1
.Top = Application.Top + 322 '
.Left = Application.Left + 200
End With
End Sub

'veja que usei a propriedade Rowsource para carregar ambos objetos : combobox e listbox
Private Sub UserForm_Initialize()
Dim vLinha As String
vLinha = Range("a1").End(xlDown).Address
UserForm1.ListBox1.RowSource = "Usf_carrega_combobox_listbox!a1:" & vLinha & ""
UserForm1.ComboBox1.RowSource = "Usf_carrega_combobox_listbox!a1:" & vLinha & ""
ListBox1.ListIndex = 5
ComboBox1.ListIndex = 1
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.

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.