CasaDoHardware

Ve se ajuda!!! Retirei as celulas mescladas de seu exemplo da guia relatorio faça o mesmo em sua planilha original. É so aumentar o tamanho da coluna. Testebia.rar

porque ela é salva assim? Não seria mais interessante atualizar uma unica base? É o mais logico e o mais simples a se fazer.

Disponibilize uma planilha com alguns dados de exemplo. Não precisa ser a planilha inteira nem os dados devem ser reais. O formato sim deve ser idêntico da planilha original. Umas 20 linhas é o suficiente. E mostre em outra guia o resultado esperado. Seria tb mais simples você dizer o que quer fazer de fato na planilha. As vezes é melhor refazer o codigo que tentar conserta-lo.

Se for em um formulario é fácil.

Menor (A1:A5;1)

O ideal é que você informasse na planilha crachá onde cada informação vai ser inserida.

Sendo assim experimente: Target.Column = 4 or Target.Column = 6 Then

Disponibilize um modelo de sua planilha

Esta linha Target.Column = 4 Then Troque o 4 por 6

em b4 experimente esta formula: =se(texto(fimmês(b3;0)+29;"dddd")="sábado";fimmês(b3;0)+31;se(texto(fimmês(b3;0)+29;"dddd")="domingo";fimmês(b3;0)+30;fimmês(b3;0)+29))

Partindo do principio que a partir da primeira linha vazia da coluna A você nao tem mais dados experimente este: Sub Apagar() Dim LN As Long LN = Sheets("Planilha1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row Sheets("Planilha1").Range("A" & LN & ":" & "C" & Rows.Count).Delete End Sub

So criando uma uma lista unica.

Eu nao entendi direito com base na data anterior 01/03/2018 você quer calcular exatamente o que? E qual a data que deveria ser a resposta?

Seu exemplo é muito vago. O arquivo é importado dessa maneira? Ou seja sem titulo, sem nenhuma formatação? O arquivo que você deve enviar é EXATAMENTE, como você deseja que seja o arquivo final E deve disponibilizar alguns arquivos para importação no caso os CSVs.

Se a planilha é para consulta é so proteger os dados.

É um grafico para cada arquivo, ou um grafico unico de todos os arquivos? O ideal seria você disponibilizar alguns arquivos CSV e um arquivo excel mostrando o resultado da importação dos 3 arquivos. Fica bem mais fácil entender o que você precisa.

Se for com vba. path: "C:\Users\"&Environ("UserName")&"\Dropbox\"

Não entendi o que deve ser movido para onde.

Se disponibilizar a planilha fica mais fácil.

so com vba.

SE(A1<16;X;Y) Se X e Y forem texto devem estar entre "aspas"

Olhei a sua base e digo novamente auto fitro resolve. Se você quiser algo mais dinamico Tabela e Grafico Dinamicos.

Dependendo do que você pretende fazer da pra fazer tudo em um unico codigo. Incluisve dependendo do preenchimento é so você inserir seu codigo antes do next. Sub codigo() cntsheets = Application.Sheets.Count For i = 1 To 5 Set NewSheet = Application.Worksheets.Add(after:=Worksheets(cntsheets)) NewSheet.Name = "Regression" & i 'Seu codigo para copiar entra aqui. 'Se for uma macro que ja esta pronta é so chamar o codigo aqui 'CALL Suamacro Next End Sub

Experimente assim!!! Sub codigo() cntsheets = Application.Sheets.Count For i = 1 To 5 Set NewSheet = Application.Worksheets.Add(after:=Worksheets(cntsheets)) NewSheet.Name = "Regression" & i Next End Sub

O autofiltro nao resolve?