Excel VBA - Eventos

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel vba evento beforesave salva se a1 nao branco Excel vba evento beforesave salva se a1 nao branco

    popular!
    Adicionado em: 27/01/2013
    Modificado em: 27/01/2013
    Tamanho: Vazio
    Downloads: 698

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

    Esse procedimento do Aplicativo Microsoft Excel VBA, salva se a Célula(A1) não estiver vazia,
    caso esteja vazia, o evento BeforeSave, será false e enviará uma mensagem que não poderá salvar a planilha,
    e vai inserir formatações e msg na coluna(D), caso contrario, isto é, caso contiver algo na célula(A1),
    Salvará a Planilha e também enviará uma mensagem formatando algumas células, observe que as cores do interior
    da célula e fonte também seguirão a formatação (A1) e (D4).
    '- - - - - - - - - - - - - - - - - - -'
    Private Sub Workbook_BeforeSave
    (ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim x As Long
    x = 19
      If [a1] = "" Then
         MsgBox ("Não Posso Salvar porque a célula [A1] está vazia!!"), a, s
         Cancel = True
         Range("D4:D" & x).Value = "NAO POSSO SALVAR A PLANILHA CELULA[A1] EM BRANCO"
         Range("D4:D" & x).Interior.ColorIndex = 3
         Range("D4:D" & x).Font.ColorIndex = 2
         [a1].Interior.ColorIndex = [d4].Interior.ColorIndex
         [a1].Font.ColorIndex = [d4].Font.ColorIndex
         sbx_ocultar_shapes_1
      Else
         MsgBox ("Dados na planilha foram Salvos com sucesso"), a, s
         Range("D4:D" & x).Value = "Planilha salva com sucesso!,celula A1 não vazia!"
         Range("D4:D" & x).Interior.ColorIndex = 4
         Range("D4:D" & x).Font.ColorIndex = 9
         [a1].Interior.ColorIndex = [d4].Interior.ColorIndex
         [a1].Font.ColorIndex = [d4].Font.ColorIndex
         sbx_ocultar_shapes_2
       End If
    End Sub

    '- - - - - - - - - - - - - - - - - - - - - - - -'
    EM UM MÓDULO COMUM INSIRA
    '- - - - - - - - - - - - - - - - - - - - - - - -'
    Global Const s = "Escola Saberexcel VBA Estudos®"
    Global Const a = vbInformation

    Sub sbx_ocultar_shapes_1()
    Plan1.Shapes("saber1").Visible = True
    Plan1.Shapes("Saber2").Visible = False
    End Sub
    '- - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sbx_ocultar_shapes_2()
    Plan1.Shapes("Saber1").Visible = False
    Plan1.Shapes("Saber2").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.

    Excel vba eventos insere horas Coluna digitar ColC Excel vba eventos insere horas Coluna digitar ColC

    popular!
    Adicionado em: 12/03/2013
    Modificado em: 12/03/2013
    Tamanho: Vazio
    Downloads: 659

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = True
    If Not Application.Intersect(Range("c3:C20000"), Range(Target.Address)) Is Nothing Then
       vLin = Target.Row
       Range("I" & CStr(vLin)).Value = Now()
    End If
    End Sub

     

    vba eventos duplo click insere ok determinado range vba eventos duplo click insere ok determinado range

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: Vazio
    Downloads: 1531

    Saberexcel - o Site das Macros
    Este procedimento do Aplicativo Microsoft Excel VBA ao executar um duplo click insere a palavra ["Ok"] em determinado range, neste caso o intervalo de células que será sensibilizado pelo Evento Duplo Click

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect([B2:B10], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "ok", "")
    Cancel = True
    End Sub


     

    Aprenda tudo sobre o aplicativo Microsoft Excel VBA com Saberexcel



    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA