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.
@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.
@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.
Do Until (UCase(ActiveCell.Value) Like "*[A-ZÁÀÂÃÉÊÍÓÔÕÚÇ]*") ActiveCell.Offset(1, 0).Select Loop