Ir ao conteúdo
  • Cadastre-se
jlrdasilva

Macro Excel

Recommended Posts

Bom dia.
Estou aprendendo sozinho sobre VBA Excel, tenho uma macro e gostaria de quebrar a linha que fica entre ("cad_1 e cad_19"), consegui quebrar antes do "(" mas não consigo quebrar no meio, preciso em 3 partes, se alguém poder me dar uma dica eu agradeço
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Set Planilha = ThisWorkbook.ActiveSheet
    For Each Célula In Planilha.UsedRange.Range _
    ("cad_1,cad_2,cad_3,cad_4,cad_5, cad_6, cad_7, cad_8, cad_9, cad_10, cad_11, cad_12, cad_13, cad_14, cad_15, cad_16, cad_18, cad_19")
    Célula.Value = UCase(Célula.Text)
    Next Célula
    For Each Célula In Planilha.UsedRange.Range("cad_17")
    Célula.Value = LCase(Célula.Text)
    Next Célula
    Application.ScreenUpdating = True
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Assim?

For Each Célula In Planilha.UsedRange.Range _
	("cad_1,cad_2,cad_3,cad_4,cad_5," & _
      "cad_6, cad_7, cad_8, cad_9, cad_10," & _
      "cad_11, cad_12, cad_13, cad_14, cad_15, cad_16, cad_18, cad_19")

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Obrigado olliver.soul, era isso mesmo que eu precisava, nunca eu ia pensar no "&".

 mais um detalhe aprendido.

Problema resolvido.

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

×