copiar e colar seguindo a condição

[alexsilva17]

Bom dia! funciona assim. " Na empresa temos de manter um certo numero de clientes, o que eu quero é os clientes que compraram em 2013 mas não compraram em 2014, eram copiados para outra tabela, para meter a razão de não comprarem mais.

planilha" https://meocloud.pt/link/d3fcc46e-21ad-4d58-9205-52bf5478c7fc/Livro2.xlsx/

Editado Março 16, 2015 por alexsilva17

[BrunoOL]

faz um do que copia os clientes, e joga um if dentro dele pra ver se os clientes compraram em 2013 e não em 2014 mais ou menos assim

'isso é valido pra esse workbook mas se tiver em outro é so adaptar

dim i, j as integer

i=1

j=1

do while thisworkbook.sheets("nomedafolha").cell(1,i).value <> null

'aqui eu suponho que os dados de 2013 estao na coluna 2 e os de 2014 estao na coluna 3

if thisworkbook.sheets("nomedafolha").cells(2,i).value <> null and this workbook.sheets("nomedafolha").cells(3,i).value = null

thisworkbook.sheets("nomedafolhaparaondeserapassado").cells(1,j).value = thisworkbook.sheets("nomedafolha").cells(1,i)

j = j+1

end if

loop