Esses procedimentos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), oculta e ou mostra determinada folha de planilha,
como também determinadas Colunas. Observe que muda o caption e a cor do commandbutton no usf(userform), conforme a o procedimento,
o procedimento verifica o caption do botão e status da planilha se está ou não oculta, para não perder o caption do commandbutton,
também a propriedade AllowFiltering:=True, veja abaixo a explicação, essa propriedade é para que o autofiltro funcione com a planilha protegida.
Veja abaixo explicação Microsoft.



Private Sub CommandButton12_Click()

Dim vPlanilha As Worksheet
For Each vPlanilha In ThisWorkbook.Worksheets
If vPlanilha.Name <> "" Then vPlanilha.Unprotect ""
Next

With Sheets("1").Range("D1:J1").EntireColumn
.Hidden = Not .Hidden
If .Hidden Then CommandButton12.Caption = "Visível" Else CommandButton12.Caption = "Invisível "
End With

If Sheets("2").Visible = True Then
Sheets("2").Visible = False
Saber3.Shapes("sb").Visible = False
Else
Sheets("2").Visible = True 'planilha referenciada pelo nome da folha de planilha
Saber3.Shapes("sb").Visible = True 'planilha referenciada pelo nome da folha de código da folha de planilha
End If

For Each vPlanilha In ThisWorkbook.Worksheets
If vPlanilha.Name <> "" Then vPlanilha.Protect "", _
DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
Next
Unload frmMENU
End Sub

Private Sub UserForm_Initialize()
'ao inicializar verifica se as células D1:J1, estão ocultas para o correto caption do botão
If Sheets("1").Range("D1:J1").EntireColumn.Hidden Then
CommandButton12.Caption = "Visível"
CommandButton12.BackColor = vbGreen
CommandButton12.ForeColor = &H80000012
Else
CommandButton12.Caption = "Invisível"
CommandButton12.BackColor = vbRed
CommandButton12.ForeColor = &HFFFFFF
End If
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), usando UserForm e ComboBox, mostram determinados dados relacionados em outra caixa de combinação (ComboBox), alterando simultaneamente a Propriedade RowSource de ambas.

Private Sub Cb1_Click()
'A maneira de se fazer é Alterar a propriedade RowSouce pelo código

'Esse If testa qual o Depto foi escolhido
If Cb1.ListIndex = 0 Then 'ListIndex 0 representa o primeiro dpto da lista
Cb2.RowSource = "Adm" 'Adm é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo

ElseIf Cb1.ListIndex = 1 Then 'ListIndex 1 representa o segundo dpto da lista e assim por diante
Cb2.RowSource = "Prod" 'Prod é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
End If

End Sub

'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
'não esqueça que a numeração da lista inicia em 0
Private Sub UserForm_Activate()
Cb1.RowSource = "Dept"
Cb1.Text = Cb1.List(0) '0 é o primeiro item da lista
End Sub

'Abaixo o evento change de uma combobox somente para voce ver como montar uma mensagem concatenando dados
Private Sub Cb2_Change()
[J3].Value = Cb2.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub

Private Sub Cb1_Change()
[J2].Value = Cb1.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub


Aprenda Aplicativo Microsoft Excel VBA(Visual Basic Application) - com Saberexcel

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

Esse procedimento do Aplicativo Microsot Excel VBA(Visual Basic Application), mostra um objeto TextBox e acompanha
o Cursor de acordo com a célula selecionada, aproveitei também para incrementar o exemplo adicionando um objeto Image
do VBA.
Questão proposta: e Respondida

Objeto textbox e imagem(Saberexcel) acompanha o cursor:
Prezado Marcondes
Preciso de um macro que ao usuario clicar em determinada célula,
um objeto TextBox acompanhe o cursor na folha de planilha, por
exemplo uma coluna a direita do cursor(Celula) Ativa.
Se puder ajudar, sou-lhe muito grato.
(***) gostei muito do Curso Completo MS Excel VBA.
João B. S. F. - Jundiai - SP

RESp: Prezado Amigo João Batista, Obrigado,
Fiz um macro para simulando sua necessidade, Na célula(D1), inseri uma condição,
se Celula(D1) for igual 1 mostra a Textbox e acompanha durante a digitação.
Isso você poderá inserir a condição desejada, intervalo de linhas, resultado de uma totalização de dados, ou data especifica, ou diferença datas,
ao selecionar determinada area servindo como um alerta,
Espero que seja isso que esteja precisando,
Fique com Deus,
Expedito Marcondes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set vRegiao = Range("c8:g17")

If Not Intersect(Target, vRegiao) Is Nothing Then
If Range("d5").Value = 1 Then
Shapes("TextBox1").Visible = True
Shapes("Image1").Visible = True
Shapes("TextBox1").Left = Target.Offset(0, 1).Left
Shapes("TextBox1").Top = Target.Offset(1, 0).Top
Shapes("Image1").Left = Target.Offset(0, 5).Left
Shapes("Image1").Top = Target.Offset(1, 0).Top
Else
Shapes("TextBox1").Visible = False
Shapes("Image1").Visible = False
End If
Else
Shapes("TextBox1").Visible = False
Shapes("Image1").Visible = False
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.





Baixe o exemplo de planiha contendo os macros acima: <<< Registre-se em nosso Site >>>

Esses macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando o Evento Worksheet_Change, afeta a folha de planilha ativa ao digitar algo, neste caso escolhemos duas células (B5 e D5), ao digitar nestas células determinadas palavras o aplicativo abrirá um
userform com algumas textbox vai inserir dados em determinadas colunas na folha de planilha.
Espero que o exemplo lhe seja útil. Fique com Deus, Expedito Marcondes.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
INSIRA O CÓDIGO ABAIXO NA FOLHA DE CÓDIGO DA FOLHA DE PLANILHA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" And Target.Count = 1 Then

If Target.Value = "Motor" Then
frmDADOS1.Show
End If

ElseIf Targett.Address = "$D$5" And Target.Count = 1 Then

If Target.Value = "Ponte" Then
frmDADOS2.Show
End If

End If

End Sub

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
NO MODULO DE EDIÇÃO DO FORMULÁRIO frmDADOS1 INSIRA OS CÓDIGOS:
Private Sub cmdLANCAR_Click()
[O6:P1000].ClearContents 'limpar a area de inserção de novos dados.

Plan1.[O65000].End(xlUp).Offset(1, 0) = "Largura"
Plan1.[O65000].End(xlUp).Offset(0, 1) = CDbl(txtLARGURA)

Plan1.[O65000].End(xlUp).Offset(1, 0) = "Comprimento.:"
Plan1.[O65000].End(xlUp).Offset(0, 1) = CDbl(txtCOMPRIMENTO)

MsgBox ("Dados inseridos com sucesso"), vbInformation, "Saberexcel - o site das macros"
End Sub

Private Sub cmdFECHAR_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
txtLARGURA.SetFocus
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

NO MODULO DE EDIÇÃO DO FORMULÁRIO frmDADOS2 INSIRA OS CÓDIGOS:

Private Sub cmdLANCAR_Click()
[J6:K1000].ClearContents
Plan1.[J65000].End(xlUp).Offset(1, 0) = "Potencia"
Plan1.[J65000].End(xlUp).Offset(0, 1) = CDbl(txtPOTENCIA)

Plan1.[J65000].End(xlUp).Offset(1, 0) = "Tensão"
Plan1.[J65000].End(xlUp).Offset(0, 1) = CDbl(txtTENSAO)

Plan1.[J65000].End(xlUp).Offset(1, 0) = "Rotação"
Plan1.[J65000].End(xlUp).Offset(0, 1) = CDbl(txtROTACAO)

MsgBox ("Dados inseridos com sucesso"), vbInformation, "Saberexcel - o site das macros"
End Sub

Private Sub UserForm_Initialize()
txtPOTENCIA.SetFocus
End Sub

Private Sub cmdFECHAR_Click()
Unload Me
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.

Procedimentos do Aplicativo MS Excel VBA, usando objetos textbox, no final da digitação dia, mes e ano, formata automaticamente o texto em uma outra textbox e também retorna o valor data para folha de planilha, no formato data(dd/mmm/aaaa).
1 - Userform
4 - Textbox
1 - CommandButton


Dim Dia As Integer
Dim Mês As Integer
Dim Ano As Integer

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
If Len(TextBox1) = 2 Then
Dia = TextBox1
TextBox2.SetFocus
End If
End Sub

Private Sub TextBox2_Change()
On Error Resume Next
If Len(TextBox2) = 2 Then
Mês = TextBox2
TextBox3.SetFocus
End If
End Sub

Private Sub TextBox3_Change()
On Error Resume Next
If Len(TextBox3) = 4 Then
Ano = TextBox3
Call Validando_data
End If
End Sub

Private Sub Validando_data()
If Dia < 1 Or Dia > 31 Then
MsgBox "Dia Inválido"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox1.SetFocus
Exit Sub
End If

If Mês < 1 Or Mês > 12 Then
MsgBox "Mês Inválido"
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox2.SetFocus
Exit Sub
End If

If Ano < 1990 Or Ano > 2011 Then
MsgBox "Mês Inválido"
TextBox3 = ""
TextBox4 = ""
TextBox3.SetFocus
Exit Sub
End If

TextBox4 = Format(Dia, "00") & "/" & Format(Mês, "00") _
& "/" & Format(Ano, "0000")
Sheets(1).Range("b5") = TextBox4

If IsError(Sheets(1).Range("B8")) Then
MsgBox "Data Inválida"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""

Sheets(1).Range("B5").Value = Format(Now, "DD/MM/YYYY")
TextBox1.SetFocus
End If
'Frame1.Caption = "Data: " & TextBox1.Value & "/" & TextBox2.Value & "/" & TextBox3.Value 'ou
Frame1.Caption = "Data Digitada: " & Format(Dia, "00") & "/" & Format(Mês, "00") _
& "/" & Format(Ano, "0000")
End Sub


Aprenda tudo sobre o Aplicativo MS Excel VBA com SaberExcel

Publicidade:
Compre com Segurança, garantia e ótimos preços nas lojas submarino