Jump to content

Clicar numa célula e pintar outra


Recommended Posts

Olá desde já obrigada pela ajuda que todos deste fórum me tem dado noutros problemas que tenho tido.

Não sei se isto é possível fazer ou não em vba mas aqui vai tenho uma base de dados muito extensa que é só números em todas as linhas e colunas o que gostaria de fazer era o seguinte ex: clicava com o rato na célula G20 e a célula b20 ficava pintada de uma cor qualquer depois quando clicasse por ex. na G50 a cor da B20 dessaparecia e ia pintar a B50.

Se me pudessem ajudar agradecia imenso.Obrigado

Link to comment
Share on other sites

Se você ainda não arranjou outra forma teste esta:

Dim Sel As Range ' ultima célula selecionada

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not (Sel Is Nothing) Then Sel.Interior.ColorIndex = 0 'tranparente
    
    If Target.Column = 7 Then
        Set Sel = Range("B" & Target.Row)
        Sel.Interior.ColorIndex = 22 ' ver tabela de cores
    Else
        
    End If
End Sub

A tabela das cores do Excel

O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Link to comment
Share on other sites

Olá FreiNando desculpa estar a chatear-te mas como é que ficava o código se quisesse tambem pintar a coluna M.

Set sel = Range("B" & Target.Row)

ou seja ex: clicar na célula G20 e pintar a B20 e M20.

e se eu quissese que a coluna 7 fosse limitada. ex:entre G10 e G30

 If Target.Column = 7 Then

Obrigada.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.