Tem toda razão Osvaldo, o que o pessoal as vezes não entendem é que eles tem em mente tudo já formado o que pretendem e nós desconhecemos, então a partir do momento que temos de utilizar "Talvez", ou "supondo" significa que temos de adivinhar e trabalhar com suposições.
Como colocar o Range ("C12:C" & UltL) da coluna dentro do If Target.Address =
Preciso igual abaixo com range da coluna
If Target.Address = "$C$10" Or Target.Address = "$B$10" Then
Iniciamos na Linha 10 ou 12 ?
As colunas B e C terão as mesmas quantidades de linhas com dados, ou cada uma terá quantidade diferente ?
Teremos de considerar celulas em branco ? Fiz um assistencia em um outro tópico com poucos detalhes, e só depois veio a pergunta de como desconsiderar as vazias, foi até um tópico que você complementou. Então quanto mais informações tivermos, mais rápido e eficiente podemos ajudar.
SUPONDO que as colunas que ele citou têm quantidades diferentes de linhas, temos de primeiro capturar a Última Linha preenchida de cada coluna, a qual ele citou a Variável "UltL" a partir da linha 12 ?? ou 10 ??
SUPONDO que iniciamos na linha 12 e cada coluna tem quantidade diferente, eu construiria da seguinte forma :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim UltL_B As Long 'Col B
Dim UltL_C As Long 'Col C
UltL_B = Range("B12").End(xlDown).Row 'Última linha coluna B
UltL_C = Range("C12").End(xlDown).Row 'Última linha coluna C
If Not Intersect(Target, Range("C12:C" & UltL_C)) Is Nothing Or Not Intersect(Target, Range("B12:B" & UltL_B)) Is Nothing Then
MsgBox "Você selecionou a celula :- " & Target.Address(0, 0)
End If
End Sub
Como pode perceber vonzuben, só pelo que escreveu, temos de ficar em suposições, em muitos foruns, o tópico seria excluído, até mesmo neste se atentar as regras no itém de descrever com detalhes o que precisam.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 06/06/2016 8:22 pm