Intervalo para a função "CASE"

bellisp86 · 30 de novembro de 2013

Boa noite pessoal,

Desejo tentar otimizar a macro abaixo, utilizando um intervalo de células em vez de discriminar célula por célula (o restante da macro está funcionando):

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address

Case "$B$2", "$B$3", "$B$4", "$B$5", "$B$6"

If UCase(Target.Value) <> "" Then Call Macro1

End Select

End Sub

Obrigado e aguardo resposta assim que possível.

zinhovba · 30 de novembro de 2013

Boa noite!!

Eu não entendi:confused:

bellisp86 · 30 de novembro de 2013

Desejo substituir a citação em negrito de todas as células de um dado intervalo, pelo seu intervalo, pois este engloba várias células:

Exemplo: Substituir a parte referente as células "b3", "b4', ..., "b30" por algo parecido a um intervalo como "b3:b30", porém não estou conseguindo.

Observação: O parâmetro "Macro1" refere-se a uma macro que está sendo chamada.

zinhovba · 1 de dezembro de 2013

Bom dia!!!

Tente assim...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Range("B2:B30"), Target) Is Nothing Then
            If Target.Value <> "" Then Call Macro1
        End If
    End If
End Sub

bellisp86 · 1 de dezembro de 2013

Bom dia!!!

Tente assim...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Range("B2:B30"), Target) Is Nothing Then
            If Target.Value <> "" Then Call Macro1
        End If
    End If
End Sub

O código acima funcionou. Só fiquei com duas dúvidas (provavelmente de iniciante) que gostaria de explicação se possível:

1) O comando da linha " If Not Intersect(Range("B2:B30"), Target) Is Nothing Then" tem a função de verificar se alguma das células do intervalo especificado está ativa?

2) Como funciona o comando "Target.Count" (omitindo a linha dele, também funcionou a macro)?

Obrigado!