Excel VBA Cadastro Planilha Simples Evento Duplo Click

Planilha Excel VBA Shapes imagens em comentarios path ativo 26

Excel VBA Cadastro Planilha Simples Evento Duplo Click

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), exemplo de usf abrirá com evento duplo click em determinada folha de planilha e determinada celula. isto é, o procedimento com evento duplo click no objeto workbook afeta todas as folhas de planilhas, porém ha uma condição if que determina a folha de planilha que será sensibilizada
com o duplo click, e abrir um formulário com pequeno cadastro na folha de planilha.
Observe que fiz uma imagem (“*. jpg”) no excel e inseri na propriedade Picture.
é um exemplo simples mas muito bom para iniciantes.
Na area de assinantes há mais de 800 planilhas cadastro. com codigos abertos.

‘Evento duplo click inserido na folha de código do Objeto WorkBook (Pasta de Trabalho).
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name <> “Saberexcel” Then Exit Sub
If Not Application.Intersect(Target, Range(“e5”)) Is Nothing Then
Cancel = True
sbx_abrir_form
End If
End Sub

 ‘//===============’ fazendo o lançamento da digitação nas textbox no objeto Userform

Private Sub CommandButton1_Click()
Set t1 = TextBox1
Set t2 = TextBox2

If t1.Value = “” Or t2.Value = “” Then
MsgBox (“digite algo na textbox vazia”), vbCritical, “Escola Saberexcel VBA Estudo®”
  t1.SetFocus
End If

x = Cells(Rows.Count, “a”).End(xlUp).Row + 1

With Cells(x, “a”)
.Value = TextBox1.Value
.Offset(, 1).Value = TextBox2.Value
End With
Label4.Caption = Cells(Rows.Count, “a”).End(xlUp).Row + 1
t1.Value = “”
t2.Value = “”
t1.SetFocus
End Sub

 ‘//===============’
Private Sub CommandButton2_Click()
Unload Me
End Sub

 ‘//===============’
Private Sub UserForm_Initialize()
x = Cells(Rows.Count, “a”).End(xlUp).Row
Label4.Caption = x + 1  ‘um contador para mostrar o número do proximo lançamento
End Sub
‘//===============’
Private Sub CommandButton2_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.

Compre pelo PagSeguro		Compre pelo PayPal

Relação dos didáticos Curso Excel VBA Expert

Faça o Download do exemplo de planilha contendo os macros acima:
Planilha Excel VBA cadastro simples evento duplo click
<< No seu Email:  verifique sua caixa de entrada, caso não estiver, verifique caixa itens excluídos >>

Planilha Excel VBA cadastro simples evento duplo click