Bom dia !
Erro no Value RANGE C2, pois seria concatenar ?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
If Range("C1").Value = "ON" Then
Worksheets("Plan2").Range("C2").Value = "=RTD("empresa.rtd";;B2;$C$1)"
End If
If Range("C1").Value = "OFF" Then
Worksheets("Plan2").Range("C2").Value = ""
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Obrigado desde já !
Postado : 04/09/2016 6:03 am