Esse erro deve ser por que 2 itens estão querendo ocupar a mesma célula, dá uma olha na coluna "D". Dá uma revisada nessas partes aqui "Plan3.Cells(linha, 1) = Plan1.Cells(i, 1)" em diante.
O comando "If" quer dizer "SE" o "Then" é "ENTAO" e "End If" é "FIM DO SE".
If planilha1 e célula tal for igual a "EMITIDO" então copie para a planilha3 na célula e linha tal, os valores da planilha1 as células da linha tal.
acho que dá pra entender mais ou menos.
Postado : 25/02/2016 8:06 am