eu vou precisar saber pra adaptar a outra planilha. eu não posso salvar essa.
outra alteração é que vou alterar de coluna pra linha.
no codigo abaixo, o mesmo problema. ele sobrescreve a formatação que já havia, por isso não resolve. algumas celulas vão ter que permanecer com o estilo e cor de fundo que tinham antes.
tenho pensado se a solução estará em agir sobre a borda em vez da cor de fundo, mas o problema permanece. teria que voltar o que tava antes. eu já tinha visto a solução num br office e custa me acreditar que uma coisa possa ser feita no broffice e não possa no ms office
atualmente, estou usando isso:
Dim lTarget As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not lTarget Is Nothing Then
lTarget.EntireRow.Interior.ColorIndex = 0
End If
'Target.Interior.ColorIndex = 6
'ActiveSheet.Rows.Interior.ColorIndex = 0
Target.EntireRow.Interior.ColorIndex = 44
Set lTarget = Target
End Sub
Postado : 22/07/2021 10:03 am