Este fórum está sendo desativado

[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!

[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

[caromacedo]

Deu certo!!

Muito obrigada pela ajuda!