Você pode definir uma rotina para pintar a célula ativa na chamada Private Sub Worksheet_Activate da plan2, por exemplo.

Acesse o módulo avançado do VBA (ALT+F11). Clique duas vezes na Plan2, na aba Projeto VBA_Project e insira o código:

Private Sub Worksheet_Activate()

End Sub

Abç

se possivel, tenho tabela(plan1) com hyperlink q abre uma outra tabela(plan2), qndo eu clicar no hiperlink pinte a celula da tabela(plan2) selecionada. é possivel?

Para descobrir a última coluna da planilha, você pode usar:

Ex:
Plan1.Range(“A1″).SpecialCells(xlLastCell).Column

Quanto a pintar as linhas tendo células mescladas na 1a. coluna de critério, você terá de trabalhar com blocos de loop para percorrer as células das linhas da tabela para fazer comparações e então pintá-las caso atenda as necessidades. Escrevi um pequeno exemplo que pode te ajudar.

Sub PintarLinhasDaBusca()
Dim bCriterioEncontrado As Boolean
Dim bCelulaMesclada As Boolean
Dim sCriterio As String

‘Pinta as linhas
.Cells(i, 2).Interior.ColorIndex = 6
.Cells(i, 3).Interior.ColorIndex = 6
Else
If bCriterioEncontrado = True Then
If bCelulaMesclada = True Then
If .Cells(i, 1) = “” Then
‘Pinta as linhas
.Cells(i, 2).Interior.ColorIndex = 6
.Cells(i, 3).Interior.ColorIndex = 6
Else
bCriterioEncontrado = False
End If
End If
End If
bCelulaMesclada = .Cells(i, 1).MergeCells
End If
Next i
End With
End Sub

Abç

Diferentemente da dúvida do Éder Cunha, no meu caso, não conheço até onde pode ir a tabela (que, para ele, ia até a coluna D), pois, em cada planilha, temos tabelas distintas e a linha que preciso é escolhida a partir de uma busca por .find pelo nome no início da linha que pode estar mesclado à linha de baixo.
Por exemplo, como pintar de amarelo a seguinte tabela: http://lc4.in/6hZ5 quando eu digito “Mercado do Zé” na busca.
Muito Obrigado

Abç

muito obrigado

santos

Infelizmente neste código não tem jeito. Pela macro que é executada para mover-se pelas células e colorir os intervalos, o clipboard é esvaziado.

Seria necessário implementações, levando em consideração, necessidade de interação com os usuários.

Abrç

É uma excelante dica. Porém, quando eu a uso, se clico em uma célula na planilha e copio os dados para colar em outro local, esta função “zera” a área de transferência. Quer dizer, quando vou colar, não tem nada para colar. Isso tem jeito?

Substituir

Target.Interior.ColorIndex = INT_BG_CEL_SELECIONADA

Por:

Range(“A” & Target.Row & “:D” & Target.Row).Interior.ColorIndex = INT_BG_CEL_SELECIONADA

A linha mudou de cor da coluna A até a D, perfeito!!
Dai surgiu um problema, quando a linha ficava perdia a seleção, as colunas de B até C ficavam coloridas, dai eu substitui o comando…

Set LinhaSelecAnterior = Target

por

Set LinhaSelecAnterior = Range(“A” & Target.Row & “:D” & Target.Row)

e funcionou perfeitamente!!!

É isso que acontece quando a dica é bem especificada e simplificada!!

Valeu mesmo!!!
Obrigado!!

Eder Cunha

Target.Interior.ColorIndex = INT_BG_CEL_SELECIONADA

Por:

Range(“A” & Target.Row & “:D” & Target.Row).Interior.ColorIndex = INT_BG_CEL_SELECIONADA

Abraço