Expandir informação para outras células.
Enviado: 08 Set 2016 às 11:18
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
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