Como exibir os valores das células apenas se eles estiverem destacados?

Question

Basicamente, o que quero fazer é exibir valores em uma coluna específica somente se a linha (B5) estiver destacada (daqui em diante, coluna E). E se estiver destacado, multiplique a coluna C por D.

Alguém poderia me ajudar? Obrigado

    

Answer 1

Você não disse se pode ou não usar macros. Se você puder, é isso que eu usaria:

Option Explicit

Dim TCol As Integer

Dim TRow As Integer

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  If TCol = 5 Then Range("E" & TRow).Value = ""

  TCol = Target.Column
  TRow = Target.Row

  If TCol = 5 Then Range("E" & TRow).Value = Range("C" & TRow).Value * Range("D" & TRow).Value

End Sub

As variáveis TCol e TRow devem permanecer fora do SheetSelectionChange (em Option Explicit) para que permaneçam ativas e não sejam redeclaradas para 0 sempre que uma nova célula for clicada .