Bom dia a todos.
Preciso de ajuda com a seguinte macro:
Sub extrair_texto()
'linha de inicio da execução da macro
lin = 1
'Fazer até que a coluna 1 esteja vazia
Do Until Cells(lin, 1) = ""
'Preencher a coluna 2 com o texto extraído.
Cells(lin, 2).Value = Mid(Planilha10.Cells(lin, 1), 1, 50).Value
lin = lin + 1
Loop
Range("a1").Select
Obs: Não sei como definir objeto para esta macro, como está exigindo o excel.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Erro em tempo de execução 424
-
- Colaborador
- Mensagens: 10
- Registrado em: Sex Abr 01, 2022 11:56 am
-
- Colaborador
- Mensagens: 10
- Registrado em: Sex Abr 01, 2022 11:56 am