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

eu possuo um banco de dados em access com duas tabelas uma chamada TB_Data_Producao onde eu armazeno todos os dados de produção referentes ao tempo (intervalos. data, turno e afins) e outra tabela chamada Producao onde eu recebo a chave estrangeira de TB_Data_Producao segue o codigo: sCommand = "INSERT INTO [Producao] (Att, Producao, Acumulada, Nome_Do_Produto, Data_Producao ) VALUES (""" & ATT & """,""" & Producao & """,""" & Acumulada & """,""" & NomeProd & """, '(SELECT RegistraDia FROM TB_Data_Producao WHERE Data = """ & Data & """ AND Intervalo_De_Tempo = """ & Intervalo & """)"")" eu pretendo pegar esta chave estrangeira dando match na data e no intervalo de tempo, ambos vem nas seguintes formataçoes Data (date) dd/mm/aaaa , Intervalo (string) "hh : mm - hh : mm " e eu recebo o seguinte erro: erro de sintaxe na sequencia de caracteres na expressao de consulta '(SELECT RegistraDia FROM TB_Data_Producao WHERE Data = "23/07/2015" AND Intervalo_De_tempo = "10 : 00 - 11 : 00" )")" , já tentei trocar virgulas já tentei tirar campos , já tentei deixar sem os parenteses, já tentei por o nome da tabela.campo já tentei por colchetes nos campos mas sempre aparece o mesmo erro