Este fórum está sendo desativado

[Dunguinha]

Bom dia colegas.
Tenho a seguinte condição abaixo que se aplica apenas para a célula C39 e gostaria de expandir até a célula C50.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sCondicao

If Target.Address = "$C$39" Then

sCondicao = Target.Value

Select Case sCondicao

Case "APURADO"
[D39].Value = [D39].Value
[E39].Value = [E39].Value
[F39].Value = [F39].Value
[G39].Value = [G39].Value


Case "APURANDO"
[D39].FormulaLocal = "=C32+E32"
[E39].FormulaLocal = "=D32+F32"
[F39].FormulaLocal = "=G32"
[G39].FormulaLocal = "=H32"


End Select

End If

End Sub

[DJunqueira]

Substitui

Código: Selecionar todos

If Target.Address = "$C$39" Then

por

Código: Selecionar todos

If Intersect(ActiveCell, Range("C39:C50")) Is Nothing Then