Maicon Aaron

Bom dia pessoal, preciso de uma ajuda de vocês, estou com planilha de dados que criei para o meu dia a dia de trabalho. tenho duas abas que são a RESUMO e a ENTRADA eu precisava que não aba RESUMO coluna D, retornasse a ultima data de entrada do produto da coluna A, a base de dados está na aba ENTRADAS, referencia do produto está na coluna B e a data está na coluna E queria ver se consigo fazer uma macro para isso, pois a planilha ira carregar mais dados, e fica muito pesada usando formulas no Excel. hoje eu uso está formula,=SE(MAIOR((($B$2:$B$150000)=B2)*($E$2:$E$150000);1)<1;"";(MAIOR((($B$2:$B$150000)=B2)*($E$2:$E$150000);1))) porém fica muito pesada se eu carregar essa formula em todas as linhas. em anexo está a planilha. desde já agradeço. TESTE MACRO.xls

não sei se deu pra entender! mas basicamente precisava copiar os dados do arquivo.CSV, como texto e colar na planilha.xlsm

Bom dia! esse é minha primeira participação aqui, procurei algo para tentar me ajudar nos fóruns já aberto, mais não encontrei. a minha duvida é seguinte, estou elaborando uma macro para importar dados de planilha.CSV, para uma planilha.xlsm, porém não consigo fazer a separação do arquivo csv por colunas qual o critério devo fazer para que assim que abrir a planilha.CSV já fazer a separação das colunas por " ; " para que possa importar os dados corretamente a planilha.xlsm hoje a macro faz a importação dos dados todos juntos na coluna A, não é feita a separação por " ; " segue abaixo a macro que estou usando. Sub ImportarDados() Dim wsOrigem As Worksheet Dim wsDestino As Worksheet Workbooks.Open Filename:="\\rs-vm29-app\D\Report_Compras\Produtos.csv" Set wsOrigem = Workbooks("Produtos.csv").Worksheets("Produtos") Set wsDestino = Workbooks("MACROTESTE.xlsm").Worksheets("Plan1") With wsOrigem Range("A:J").Copy Destination:=wsDestino.Range("A1") End With Workbooks("Produtos.csv").Close SaveChanges:=True MsgBox "Importação de Dados Concluída" End Sub