Excel VBA - Celulas

  • - Acesso Livre (há alguns arquivos nesta categoria com restrição de acesso - faça o login ou Registre-se)
    Acesso Livre - Registrados (REGISTRE-SE!)
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba celulas intermitente piscando Excel planilha vba celulas intermitente piscando

    popular!
    Adicionado em: 18/11/2010
    Modificado em: 10/06/2011
    Tamanho: 37.45 KB
    Downloads: 1588

    Saberexcel - o site das macros
    Estas macros do Aplicativo Microsoft Excel VBA, insere intermitência(piscando) na célula A1 e A8, ao encerrar a execução da macro, retira a formatação inserida, observe as macros abaixo, os loops foram programados para piscar 5(cinco) vezes, voce poderá alterá-los.


    Dim NextTime As Date 'referente a ultima macro parar...

    Sub Intermitente_Celula()
    Range("A1").Select

    For compteur = 1 To 5
    With Selection.Font
    .Name = "Arial"
    .Size = 14
    .ColorIndex = 2
    End With
    Application.Wait Now + TimeValue("00:00:01")

    Application.Wait Now + (TimeValue("00:00:01")) / 2

    With Selection.Font
    .Name = "Arial"
    .Size = 14
    .ColorIndex = 0
    End With
    Application.Wait Now + TimeValue("00:00:01")
    Next
    Range("A1").ClearFormats
    End Sub


    Sub cor_letra_interminte() ' essa macro inserirá intermitência na celula A8
    Dim nCarac, corAnt, corNovab, corNovac, corNovad
    nCarac = Range("A8").Characters.Count
    corAnt = Range("A8").Characters.Font.ColorIndex
    corNovab = 55
    corNovac = 6
    corNovad = 12
    For a = 0 To 15
    For b = 1 To nCarac
    Range("A8").Characters(Start:=b, Length:=1).Font.ColorIndex = corNovab
    Next b
    For c = 1 To nCarac
    Range("A8").Characters(Start:=c, Length:=1).Font.ColorIndex = corNovac
    Next c
    For d = 1 To nCarac
    Range("A8").Characters(Start:=d, Length:=1).Font.ColorIndex = corNovad
    Next d
    For e = 1 To nCarac
    Range("A8").Characters(Start:=e, Length:=1).Font.ColorIndex = corAnt
    Next e
    Next a
    End Sub


    Macros abaixo trabalhando junsta, Parar chama a normal
    Esta macro com condição if(se) -- se a cor for preta fica vermelha intermitente
    Sub Normal()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveWorkbook.Styles("Normal").Font
    If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
    End With
    Application.OnTime NextTime, "Normal"
    End Sub

    Sub Parar()
    On Error Resume Next
    Application.OnTime NextTime, "Normal", schedule:=False
    'Application.OnTime chamar, "Normal", , False
    ActiveWorkbook.Styles("Normal").Font.ColorIndex = xlAutomatic
    End Sub

    Sub ver_código()
    SendKeys ("%{F11}")
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel



     

    Excel planilha vba deletar dados planilhas celulas nomeadas Excel planilha vba deletar dados planilhas celulas nomeadas

    popular!
    Adicionado em: 20/10/2011
    Modificado em: 20/10/2011
    Tamanho: 102.66 KB
    Downloads: 783

    Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

    E
    sses macros do Aplicativo Microsoft Excel VBA, deletam determinados intervalos de células renomeadas na folha de planilha, aqui neste exemplo usaremos as folhas de planilhas como meses "Janeiro", "Fevereiro", "Março", "Abril", os macros deletarão todos dados de todas as folhas de planilhas
    e também copiará os dados das folhas de planilhas para os Range Nomeados Correspondentes.


    Sub sbx_deletar_todos_dados()
    Dim Resposta As String
    Resposta = MsgBox("Deseja apagar todas as folhas de planilhas", vbYesNo + vbQuestion, "Saberexcel - site das macros")
    If Resposta = 6 Then

    sbJan.[sbx_jan].Clear 'observem que estou trabalhando somente com intervalo de células renomeados.
    sbFev.[sbx_fev].Clear
    sbMar.[sbx_mar].Clear
    sbMar.[sbx_abr].Clear

    MsgBox ("Todas as folhas de planilhas foram apagadas"), vbInformation, "Saberexcel - o site das macros"
    Else
    MsgBox ("você cancelou a operação"), vbInformation, "Saberexcel - o site das macros"
    End If
    sbJan.Select
    End Sub

    Sub sbx_copiar_para_teste()
    Dim Resposta As String
    Resposta = MsgBox("Deseja copiar todos os dados para todas as folhas de planilhas", vbYesNo + vbQuestion, "Saberexcel - site das macros")
    If Resposta = 6 Then
    [Jan].Copy [j] 'observe que estamos trabalhando com intervalo de células renomeados.
    [Fev].Copy [f]
    [Mar].Copy [m]
    [Abr].Copy [a]
    Else
    MsgBox ("você cancelou a operação"), vbInformation, "Saberexcel - o site das macros"
    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.




     


    Excel planilha vba proteger celulas e abrir usf plan desejada Excel planilha vba proteger celulas e abrir usf plan desejada

    Adicionado em: 29/07/2011
    Modificado em: 29/07/2011
    Tamanho: Vazio
    Downloads: 0

    Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

    Esse procedimento do Aplicativo Microsoft Excel VBA, usando o evento ..Open() do módulo de Edição de Códigos do Livro(Workbook), abirá o userform na planiha desejada, observe no código vba que selecionamos a planilha primeiramente e depois mandamos abrir o userform.
    Esse Evento Workbook_Open ocorre na abertura (Inicialização) do Livro.



    Private Sub Workbook_Open()
    Sheets("Plan3").Select
    UserForm1.Show
    End Sub
    '----'


    Imagem de como proteger células manualmente, se quiser poderá gravar a macro com os passos de proteção de células.
    para o treinamento.

     

    O Aluno(Leandro) solicitou que fizessemos um passo a passo de como proteger células na determinada Folha de Planilha para evitar a
    a digitação nas células e ou seleção nestas células protegidas. Fizemos uma imagem (abaixo) desse procedimento) manualmente e também,
    via macro, como é um assunto para iniciantes usamos o GM(Gravador de Macros) já logo na explicação, usando o Gravador de Macros e resultou
    nesta macro abaixo, que primeiramente desprotege todas as células da planilha, em seguida selecionamos nossas células ou uma área de células,
    e marcamos nossas células como bloqueadas, isso significa que somente a nossas células ficaram bloqueadas, neste ponto voce poderá ir
    em proteger planilha e selecionar os ítem selecionar células desbloqueadas, isso quer dizer que as células bloqueadas não poderão ser acessadas.
    Veja a imagem abaixo. ( observem que o GM(Gravador de Macros) que é o assunto de nosso Curso Completo Microsoft Excel VBA, Saberexcel - Planilhas onteúdo Curso Completo Microsoft Excel Vba (791.91 KB)como Aprender a lidar com o Gravador de Macros(Gravar, depurar um código etc..), que é extremamente importante para aprendizes e ou já quem domina também a linguagem de programação ms excel vba. Expero que o exemplo possa ajudá-los, Fiquem com Deus. Expedito Marcondes

    Código gerado pelo GM(Gravador de Macros) - automatizando dados ou formatação em uma folha de planilha
    o esforço é fazer os passos no aplicativo corretamente para nao gravar códigos desnecessários.

    Sub Macro1()
    ' Saberexcel_Treinamento VBA - Gravador de Macros
    ' Saberexcel - o site das macros
    On Error Resume Next
    '
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Range("E5,F6,G7,H8,I9,J10,K11,L12,M13,N14,O15,P16,Q17").Select
    Range("Q17").Activate

    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 65535
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With

    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("F10").Select

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
    Range("D7").Select
    Plan2.Select
    Range("D18").Select
    End Sub

     

    Sub limpar_cell()
    ActiveSheet.Unprotect
    Cells.Clear
    Cells.Locked = True
    [G1].Select
    End Sub

    Sub abrir()
    UserForm1.Show
    End Sub






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





    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Excel planilha vba selecionar deslocando celulas linhas colunas Excel planilha vba selecionar deslocando celulas linhas colunas

    popular!
    Adicionado em: 15/11/2011
    Modificado em: 15/11/2011
    Tamanho: 355.62 KB
    Downloads: 750

    Escola Saberexcel VBA Estudos - o site de quem precisa aprender macros microsoft excel VBA

    Esse macro do Aplicativo Microsoft Excel VBA, seleciona determinada célula, seleciona e desloca uma coluna. Esse tipo de código para deslocar, selecionar, celulas, colunas e linhas,
    é o menos conhecido portanto pouco usado, mas é de grande performance e precisão. Espero que gostem do exemplo. Abaixo fiz um exemplo de folha de planilha para ajudá-los.
    Não deixe de ver o meu trabalho sobre (Como deslocar e ou selecionar, linhas, colunas e células em qualquer direção e também qualquer folha de planilha), matéria de extrema necessidade de conhecimento para quem deseja aprender programar.
    Espero que gostem do Exemplo. Fiquem com Deus, Expedito Marcondes.

    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'maneira pouco usada.
    'na mesma linha selecionando a célula A500
    Sub sbx1_seleciona_celula_a500()
    sba_mostrar_macro_1
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(1)(1).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro desloca uma coluna a esquerda
    'deslocando uma linha abaixo e selecionando a célula A501
    Sub sbx2_seleciona_celula_A501()
    sba_mostrar_macro_2
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(1)(2).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro desloca uma coluna a esquerda
    'deslocando duas linha abaixo e selecionando a célula A502
    Sub sbx3_seleciona_celula_A502()
    sba_mostrar_macro_3
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(1)(3).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro desloca uma coluna a esquerda
    'deslocando duas linha abaixo e selecionando a célula A503
    Sub sbx4_seleciona_celula_A503()
    sba_mostrar_macro_4
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(1)(4).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro desloca para última coluna na linha 500
    Sub sbx5_seleciona_ultima_coluna_linha_500()
    sba_mostrar_macro_5
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(2)(1).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro desloca para última coluna
    'e também desloca uma linha abaixo na linha 501
    Sub sbx6_seleciona_ultima_coluna_linha_501()
    sba_mostrar_macro_6
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(2)(2).Select

    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro desloca para última coluna
    'e também desloca duas linha abaixo na linha 502
    Sub sbx7_seleciona_ultima_coluna_linha502()
    sba_mostrar_macro_7
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(2)(3).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro desloca para última coluna
    'e também desloca duas linha abaixo na linha 503
    Sub sbx8_seleciona_ultima_coluna_linha503()
    sba_mostrar_macro_8
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(2)(4).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro seleciona a ultima célula na coluna(B)
    Sub sbx9_seleciona_ultima_celula_usada_colB()
    sba_mostrar_macro_9
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(3)(1).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro seleciona a proxima célula em branco coluna(B) --depois da última celula usada
    Sub sbx10_seleciona_ultima_proxima_vazia_colB()
    sba_mostrar_macro_10
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(3)(2).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro seleciona a segunda célula em branco coluna(B) -depois da última celula usada
    Sub sbx11_seleciona_segunda_em_branco()
    sba_mostrar_macro_11
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(3)(3).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro seleciona a terceira célula em branco coluna(B) -depois da última celula usada
    Sub sbx12_seleciona_terceira_em_branco()
    sba_mostrar_macro_12
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(3)(4).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro seleciona a quarta célula em branco coluna(B) -depois da última celula usada
    Sub sbx13_seleciona_quarta_em_branco()
    sba_mostrar_macro_13
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(3)(5).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro seleciona a quinta célula em branco coluna(B) -depois da última celula usada
    Sub sbx14_seleciona_quinta_em_branco()
    sba_mostrar_macro_14
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(3)(6).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Esse macro seleciona a última celula coluna(B)
    Sub sbx15_seleciona_ultima_celula_colB()
    sba_mostrar_macro_15
    MsgBox ("mostrando a imagem da mensagem e macro correspondente"), vbInformation, "Saberexcel VBA Estudos®"
    [B500].End(4)(1).Select
    MsgBox "Selecionando a célula: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel VBA Estudos®"
    [c1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    VEJA BEM, caso voce interesse pelo modo com que mostrei as imagens das mensagem e macros (shapes) na folha de planilha, abaixo os macros que usei,
    uso bastante esse macro em minhas lições para mostrar os passos desejeados e outras aplicações interessantes.
    Espero que gostem do exemplo
    ' - - - - - - - - - - - - - - - - - - - - - - - - -
    'Ocultará todos os shapes que inicia-se com o nome txt, ex: txt1,txt,2,.......
    Sub Oculta_Shapes()
    For i = 1 To 60
    On Error Resume Next
    With ActiveSheet
    .Shapes("texto" & i).Visible = False
    .Shapes("saber" & i).Visible = False
    End With
    Next
    [A1].Select
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_1()
    Oculta_Shapes
    Saber1.Shapes("saber1").Visible = True
    Saber1.Shapes("texto1").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_2()
    Oculta_Shapes
    Saber1.Shapes("saber2").Visible = True
    Saber1.Shapes("texto2").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_3()
    Oculta_Shapes
    Saber1.Shapes("saber3").Visible = True
    Saber1.Shapes("texto3").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_4()
    Oculta_Shapes
    Saber1.Shapes("saber4").Visible = True
    Saber1.Shapes("texto4").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_5()
    Oculta_Shapes
    Saber1.Shapes("saber5").Visible = True
    Saber1.Shapes("texto5").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_6()
    Oculta_Shapes
    Saber1.Shapes("saber6").Visible = True
    Saber1.Shapes("texto6").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_7()
    Oculta_Shapes
    Saber1.Shapes("saber7").Visible = True
    Saber1.Shapes("texto7").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_8()
    Oculta_Shapes
    Saber1.Shapes("saber8").Visible = True
    Saber1.Shapes("texto8").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_9()
    Oculta_Shapes
    Saber1.Shapes("saber9").Visible = True
    Saber1.Shapes("texto9").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_10()
    Oculta_Shapes
    Saber1.Shapes("saber10").Visible = True
    Saber1.Shapes("texto10").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_11()
    Oculta_Shapes
    Saber1.Shapes("saber11").Visible = True
    Saber1.Shapes("texto11").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_12()
    Oculta_Shapes
    Saber1.Shapes("saber12").Visible = True
    Saber1.Shapes("texto12").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_13()
    Oculta_Shapes
    Saber1.Shapes("saber13").Visible = True
    Saber1.Shapes("texto13").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_14()
    Oculta_Shapes
    Saber1.Shapes("saber14").Visible = True
    Saber1.Shapes("texto14").Visible = True
    End Sub
    ' - - - - - - - - - - - - - - - - - - - - - - - - -'
    Sub sba_mostrar_macro_15()
    Oculta_Shapes
    Saber1.Shapes("saber15").Visible = True
    Saber1.Shapes("texto15").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.




    .

    vba celula ao digitar chama determinada macro vba celula ao digitar chama determinada macro

    popular!
    Adicionado em: 18/11/2010
    Modificado em: 18/11/2010
    Tamanho: 18.33 KB
    Downloads: 754

    Saberexcel - o Site das Macros

    Esse procedimento do Aplicativo Microsoft Excel VBA, retorna uma mensagem ao digitar alguma coisa na célula($K$2"), observe que a segunda condição, foi criada, para que não dispare a mensagem no caso do usuário ativar a célula e não diigtar nada. Você poderá no lugar da mensagem chamar qualquer macro que desejar. Espero tê-los ajudado - Fiquem com Deus, obrigado pela visita - E_Marcondes.


    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address = "$K$2" Then
    If Target.Value <> "" Then MsgBox "Aprender VBA - com Saberexcel ", , "Excel VBA Estudos®"
    End If
    End Sub

     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel





     

    Página 1 de 3

    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