Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Retornar célula ati...
 
Notifications
Clear all

Retornar célula ativa se estiver dentro de range

 
2024 - VBA & Macros
Post Recente por jrodrig7 9 anos atrás
3 Posts
2 Usuários
0 Reactions
1,063 Visualizações
RSS
 jrodrig7
(@jrodrig7)
Posts: 50
Trusted Member
Topic starter
 

Pessoal, boa tarde! Tudo bem?

Vou utilizar uma célula para fazer formatação condicional no resto da planilha, mas só quando a célula ativa estiver dentro do range H1:H100.
Aprofundando, tenho dentro desse range alguns títulos e quando a célula estiver sobre eles, a condicional se aplicará para destacar onde mais ele aparece na planilha.

Até então o que consegui foi isso, mas, obviamente, ele não delimita o range, então a célula ativa é retornada independente de onde esteja.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("M19").Value = ActiveCell.Value
End Sub

Alguém pode me ajudar, por favor?

Obrigado.

 
Postado : 11/11/2015 12:29 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

jrodrig7,

Boa tarde!

Assim:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
         If Target.Column = 8 And Target.Row >=1 And Target.Row <=100 Then
                Range("M19").Value = ActiveCell.Value
         End If
    End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 11/11/2015 12:38 pm
 jrodrig7
(@jrodrig7)
Posts: 50
Trusted Member
Topic starter
 

Muito obrigado, Wagner. Me salvou mais uma vez.

Adicionei uma linha para que fora desse range o valor fique nulo. (e o range na verdade era H18:H100)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
         If Target.Column = 8 And Target.Row >= 18 And Target.Row <= 100 Then
                Range("M19").Value = ActiveCell.Value
            Else
            Range("M19").Value = ""
         End If
    End Sub
 
Postado : 11/11/2015 12:45 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico