Página 1 de 1

Contagem +1

Enviado: 22 Abr 2020 às 09:31
por caromacedo
Bom dia,

Existe algum forma de, toda vez que uma célula específica de texto for editada para outro nome, outra célula aumentar uma unidade na contagem?

Caso isso não possa ser realizado, poderia ser, toda vez que o arquivo do excel for aberto, esta célula aumenta uma unidade.

Obrigada! :)

Re: Contagem +1

Enviado: 22 Abr 2020 às 09:45
por babdallas
Veja se ajuda.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Me.Range("C4")) Is Nothing Then
        Application.EnableEvents = False
        Me.Range("D4").Value2 = Me.Range("D4").Value2 + 1
        Application.EnableEvents = True
    End If
End Sub

Contagem +1

Enviado: 23 Abr 2020 às 08:42
por caromacedo
Deu certo!!

Muito obrigada pela ajuda! :D