Macro que soma na celula

[Juan.rba]

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…

[Grafeno]

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,

[Juan.rba]

muito obrigado @Grafeno.