Pergunte aqui
1

macro que soma na celula

perguntadas 2017-05-03 19:44:27 +0200

imagem do gravatar de Juan.rba

updated 2018-11-27 20:15:15 +0200

Preciso criar uma macro que soma + 10 numa celula que já tem valor, sempre que acionar ela, tem que somar + 10 no valor já existente....

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2017-05-04 17:22:51 +0200

imagem do gravatar de Grafeno

updated 2017-05-04 17:23:18 +0200

Bom dia,

Associe a macro abaixo ao evento Seleção Alterada dos "Eventos de Planilha" (Menu Planilha > Eventos de Planilha)

Será somado +10 ao conteúdo da célula A1 sempre que ela for selecionada.

REM  *****  BASIC  *****

Global gDentro As Boolean 

Sub SelecaoAlterada( oCelula )
    ' Testar se o objeto selecionado é uma célula individual'
    If oCelula.ImplementationName <> "ScCellObj" Then Exit Sub

    ' Endereço da Célula'
    oEnd = oCelula.CellAddress    

    ' Celula A1 => coluna 0, linha 0'
    If oEnd.Column = 0 And oEnd.Row = 0 Then
      If Not gDentro Then
        oCelula.Value = oCelula.Value + 10
        gDentro = True
      End If
    Else
      gDentro = False
    End If

End Sub

Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

1

muito obrigado @Grafeno.

imagem do gravatar de Juan.rbaJuan.rba ( 2017-05-05 16:53:31 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-05-03 19:44:27 +0200

Lidas: 701 vezes

Última atualização: May 04 '17