Gentileza ver se o vba que fiz é correto para o desafio:
Sub sbAjustaVendedor()
For contador = 2 To Range("J1")
Range("H" & contador) = Left(Range("H" & contador), 5)
Next
End Sub
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Gentileza ver se o vba que fiz é correto para o desafio:
Sub sbAjustaVendedor()
For contador = 2 To Range("J1")
Range("H" & contador) = Left(Range("H" & contador), 5)
Next
End Sub
Olá, Ezequiel! Tudo bem?
Vamos dar uma olhada no seu código!
Vejo que o objetivo dele é ajustar o conteúdo das células na coluna "H", cortando o texto para os primeiros 5 caracteres. Aqui estão alguns pontos a considerar:
Uso do Left: A função Left está correta para pegar os primeiros 5 caracteres do texto na célula.
Loop For: O loop está configurado para começar na linha 2, o que é comum para ignorar cabeçalhos, então isso parece correto.
Range("J1"): Certifique-se de que a célula J1 contém o número de linhas que você deseja processar. Se J1 não for um número, o loop pode não funcionar conforme o esperado.
Um exemplo de como o seu código está funcionando:
Sub sbAjustaVendedor()
For contador = 2 To Range("J1").Value
Range("H" & contador).Value = Left(Range("H" & contador).Value, 5)
Next contador
End Sub
Certifique-se de que a célula "J1" tenha o número correto de linhas que você deseja processar.
Se houver alguma célula vazia na coluna "H", o código ainda funcionará, mas retornará uma string vazia para essas células.
Espero ter ajudado e fico à disposição se precisar.
Abraço e bons estudos!