Valor da célula em negrito da cópia da linha para outra célula na mesma linha

Question

Eu tenho algumas linhas com valores diferentes nas células.

O que eu quero fazer é, quando um valor ficar em negrito, apenas copiar esse valor em outra célula.

Se isso não for possível, talvez, marque de alguma forma, eu quero evitar ctrl + c / ctrl + v

Vocês tem alguma ideia?

    

Answer 1

Eu criei um botão ActiveX ( link ) com o seguinte código:

Dim value As Double
Dim column As Integer
column = 3 - ActiveCell.column
value = ActiveCell.value
ActiveCell(1, column).value = value

Além disso, você pode tornar o botão "Congelar painéis" na guia "Visualizar"

P.S. Tenho certeza de que existem maneiras mais fáceis e pragmáticas de fazer isso.