Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

SBL Excel VBA cadastro simples evento duplo click

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

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.




 u - Procedimentos de Aquisição dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
icon SBL Excel VBA cadastro simples evento duplo click (87.38 kB)