Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
DUVIDA MACRO PERCOR...
 
Notifications
Clear all

DUVIDA MACRO PERCORRER COLUNA

 
2024 - VBA & Macros
Post Recente por gfranco 7 anos atrás
7 Posts
5 Usuários
0 Reactions
1,388 Visualizações
RSS
 gustavomm
(@gustavomm)
Posts: 9
Active Member
Topic starter
 

Olá, bom dia !
Tenho uma duvida, estou com o seguinte codigo que limita a quantidade de caracteres de uma celula determinada:

Sub LimitarCaractere()
If Len(ActiveCell) > 9 Then
ActiveCell = Left(ActiveCell, 10)
End If
End Sub

Alguem poderia me indicar como faço para que essa função, por exemplo, percorra toda minha coluna Z ?

 
Postado : 09/03/2018 8:39 am
 gfsouza86
(@gfsouza86)
Posts: 0
Trusted Member
 

O código esta limitado apenas a celula ativa
Cria um range para toda coluna Z

exemplo Range("Z:Z")

G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.

 
Postado : 09/03/2018 8:52 am
 gustavomm
(@gustavomm)
Posts: 9
Active Member
Topic starter
 

GFSouza, muito obrigado pela resposta !
Mas eu não consegui fazer a edição que sugeriu, estou com esse problema para varias colunas em minha planilha, e todas possuem uma quantidade de caracteres maiores que a permitida, com a ferramenta de validação de dados não estou conseguindo atribuir o que desejo

 
Postado : 09/03/2018 8:57 am
 gfsouza86
(@gfsouza86)
Posts: 0
Trusted Member
 

Posta a planilha com o exemplo que deseja
Uma pergunta: qual a ação para as colunas com mais de 9 caracteres?

G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.

 
Postado : 09/03/2018 9:34 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Tente isso:

Sub LimitarCaractere()
Dim lin As Long
ul = ActiveSheet.Range("Z" & Rows.Count).End(xlUp).Row
For i = 1 To ul
If Len(ActiveSheet.Range("Z" & i).Value) > 9 Then
ActiveSheet.Range("Z" & i).Value = Left(ActiveSheet.Range("Z" & i).Value, 10)
End If
Next i
End Sub

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 09/03/2018 10:33 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Se eu entendi basta colocar a macro no evento change da planilha

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 09/03/2018 4:41 pm
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Boa noite.
Mais uma contribuição.

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 09/03/2018 7:23 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico