[Resolvido]Subscrito fora do intervalo

Caros amigos, boa Noite,

Estou tentando converter uma tabela de um formato horizontal para vertical e está dando erro em tempo de execução. Esse código tem muitos anos funcionando perfeitamente e agora aparece isso.

Muito grato

Abraço

Em um certo momento, a quantidade de elementos na matriz DivCampo é diferente da quantidade na matriz DivCampoX.

Código:

j = (Int(UBound(DivCampo)))

Quando você utiliza o FOR baseado na quantidade de elementos da matriz DivCampo (maior número de elementos) e no corpo do FOR referencia elementos da matriz DivCampoX (menor número de elementos) o erro ocorre. Se uma tem 29 elementos, ao buscar o elemento 29 na outra, ele não existirá.

Como o código deve proceder se a quantidade for diferente?

Caro Amigo, bom dia.

Na realidade a quantidade que tem em um campo deveria ser a mesma do outro campo. Isso é uma tabela do TSE para próxima eleição. Em um campo tem as seções de uma zona eleitoral na horizontal e o mesmo acontece no outro campo que tem as mesmas seções e a quantidade de eleitores para aquela zona. Deveria ser igual. Concorda? A não ser que tenha seção com 0 (zero) eleitores e não aparece na tabela. Que é possível no momento por não ter fechado totalmente essa tabela.
Você pergunta o que fazer com o código quando for menor. Poderia aparecer uma mensagem dizendo a linha para ir consertando a tabela a ser lida? Qual a função que me diz a quantidade de "," (vírgula para o caso) em um campo. Assim posso ver onde está desigual antes de executar o código?

Muito grato

Abraços

Boa Noite,

Muito grato Damasceno. Resolvido conforme citei acima.

Abraços