none
Macro para substituir RRS feed

  • Pergunta

  • Bom dia... vou criar o seguinte cenário para minha duvida... 

    tenho uma TABELA 1... onde na coluna A eu tenho uns valores terminando com o código n1... por exemplo: 

    A1 = X264n1 
    A6 = X265n1 
    A11 = X266n1 
    adiante... (está pulando de 5 em 5) 

    tenho uma TABELA 2... onde eu tenho na coluna A uma lista de valores.. exemplo: 

    A1 = 123 
    A2 = 456 
    A3 = 789 
    adiante... (está em ordem... sem intervalos no meio) 

    agora a pergunta existe uma forma de eu criar uma macro que substitua todo meu "n1" ta TABELA 1 pelo valor da TABELA 2 mas que ele verifique se o numero já foi usado antes de substituir 

    pq não posso simplesmente usar uma fórmula e arrastar pois na Tabela 1 eu tenho um intervalo de 5 em 5 linhas entre um n1 e outro... 

    Só pra deixar mais claro... o A1 da TABELA 2 completa o A1 da TABELA 1... 
    o A2 da TABELA 2 completa o A6 da TABELA 1.. o resultado esperado seria: 

    TABELA 1 
    A1 = X264123 
    A6 = X265456 
    A11 = X266789 

    Grato pela atenção!!!
    _________________
    Lucas Oliveira
    sexta-feira, 9 de agosto de 2013 11:51

Respostas

Todas as Respostas

  • Lucas olá,

    Acredito ser possível fazer o que vc quer iniciando um Recordset para cada tabela e substituir valor de n1 pelo valor que vc quer da outra tabela dentro de um loop, as duas tabelas tem a mesma quantidade de registros?

    sexta-feira, 9 de agosto de 2013 12:07
  • sim...tem a mesma quantidade de registros... só que são 4.000 rs

    eu não conheço esse Recordset... estava pensando em um IF simples...

    exemplo... SE o número foi usado... ENTÃO use o próximo.. coisa do tipo...

    sexta-feira, 9 de agosto de 2013 13:00
  • Cole a fórmula abaixo na célula B1 da tabela em que os registros pulam de 5 em 5:

    =SUBSTITUIR(A1;"n1";DESLOC(Plan1!$A$1;(LIN()-1)/5;0;1;1))


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br


    segunda-feira, 12 de agosto de 2013 01:28
    Moderador
  • funcionou perfeitamente... e resolveu o problema.. a planilha foi feita e ja entreguei aos interessados... muitíssimo obrigado pela paciência e pela boa vontade em compartilhar o conhecimento...

    Abs,

    Lucas Oliveira

    segunda-feira, 12 de agosto de 2013 11:07