Ir ao conteúdo
  • Cadastre-se

Rafaela G. Rauber

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. Bom Dia! Eu montei uma macro e ela não deu certo, a intenção era realizar o seguinte: Preciso que ela compare uma célula da coluna 3 (iniciando pela célula 2 e vai aumentando) sempre com a célula 1 da coluna 18 e se ela for igual copiar os valores da coluna 6 para a coluna 18 (na mesma linha), se for diferente ela deve tentar comparar com a próxima coluna 18+1 e realizar a mesma função de copiar a coluna 6 para esta. Não esta rodando e eu não estou conseguindo achar o erro, alguém pode me ajudar? A planilha está em anexo pra tentar entender melhor, preciso copiar o LS para a coluna com o nome da espécie, porém a informação precisa continuar na mesma linha. A macro roda e faz apenas poucas espécies. Sub Macro1() ' ' Macro1 Macro ' Dim Gabriel Dim Coluna Do While Gabriel < 24505 Do While Coluna < 56 If Cells((2 + Gabriel), 3) = Cells(1, (18 + Coluna)) Then Cells((2 + Gabriel), (18 + Coluna)).Value = Cells((2 + Gabriel), 6) Else Coluna = Coluna + 1 Gabriel = Gabriel - 1 End If Gabriel = Gabriel + 1 Loop ' End Sub Pasta1.xlsx

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...