Notifications
Clear all

[Resolvido] Parar ao encontrar letra  

  RSS
matteus0203
(@matteus0203)
Active Member Registered

Gostaria um código para inserir na minha rotina em que o loop parasse de se deslocar para baixo quando encontrasse alguma célula com letras, pulando para baixo enquanto encontrasse números.

ResponderCitar (Quote)
Postado : 29/10/2020 1:24 pm
EdsonBR
(@edsonbr)
Honorable Member Moderator

@matteus0203, não entendi exatamente o que vc deseja. Vc quer que a macro pare quando encontrar letra ou quer que ela só execute em células que sejam número puro?

Como sempre dizemos aqui, anexe um modelo com aquilo que vc espera que seja feito, demonstrando no próprio aquivo o resultado esperado.

ResponderCitar (Quote)
Postado : 29/10/2020 8:28 pm
matteus0203
(@matteus0203)
Active Member Registered

@edsonbr, Obrigado por responder!

Edson, o que eu desejo é algo exatamente como segue:

Do while activecell (Não houver uma letra na célular)
Activecell.offset(1,0).select
loop

 

Resumindo, quero deslocar a célula ativa para baixo enquanto não houver uma letra na célula, e quando houver, que o Loop pare.

ResponderCitar (Quote)
Postado : 17/11/2020 10:10 am
EdsonBR
(@edsonbr)
Honorable Member Moderator
 Do Until (UCase(ActiveCell.Value) Like "*[A-ZÁÀÂÃÉÊÍÓÔÕÚÇ]*")
   ActiveCell.Offset(1, 0).Select
 Loop
 

ResponderCitar (Quote)
Postado : 17/11/2020 11:24 am