Ir ao conteúdo
  • Cadastre-se
bellisp86

Intervalo para a função "CASE"

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×