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