DUVIDA MACRO PERCORRER COLUNA

2024 - VBA & Macros

Post Recente por gfranco 7 anos atrás

7 Posts

5 Usuários

0 Reactions

1,394 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)

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