Fabiano Martinss

Olá osvaldo Desculpe a demora Aqui esta o link para a planilha https://www.sendspace.com/file/ruwvy2 O código do post acima não funcionou sempre aparece a mensagem "planilha não encontrada". Porém, acho que já vai atender ao objetivo proposto da maneira que coloquei. Dá uma olhada, qualquer sugestão será bem vinda. Coloquei mais dois códigos em cada uma das abas "a contar" preciso de ajuda com eles! Quero que estes códigos anotem a data da ultima alteração. No primeiro ele esta anotando a data somente se a célula estiver vazia logo se tiver alguma alteração a data não é alterada. No segundo não consegui fazer anotar a data. Valeu

olá Patropi Estou no trabalho e naõ tenho acesso. Irei postar mais tarde de casa. valeu

Bom dia osvaldomp O código funcionou perfeitamente sem problemas só não esta colando corretamente. Na verdade nas colunas "L", "M","N" não esta sendo colado somente valores esta colando fórmulas ai esta dando erro de referencia nas fórmulas. Eu preciso que os códigos atuem de forma independente nas abas (um de cada vez). No post#11 perguntei se o nome da aba influência em colar somente valores ou fórmulas. Tentei anexar a planilha mas foi cancelado anexo muito grande

Perfeito! Em estrutura as planilhas são idênticas(1504,1505,4055,1509,1511,1504NP,1504PP,1504PO) e o destino é itens a contar. Pensei que depois de pronto o código, fosse só trocar o nome da base dentro do código. O nome da aba dentro do código influencia no resultado?

Olá caro osvaldomp Funcionou perfeitamente muito obrigado Porém, tenho que aplicar este código em 8 abas diferentes pensei que fosse só trocar o nome da aba base. Nestas outras abas o código esta colando fórmulas ai acontece isso "#DIV/0!" nas celulas que contém as fórmulas. Tem ideia do que é? Abaixo esta o código que coloquei para outra aba. Sub SEPARAR_ITENS_A_CONTAR_novo() Dim rVis As Range, k As Long, x As Long, LRo As Long, LRd As Long Application.ScreenUpdating = False With Sheets("1505").[A1].CurrentRegion .Cells.AutoFilter LRo = .Cells(Rows.Count, 1).End(xlUp).Row For x = 2 To 4 .AutoFilter Field:=15, Criteria1:="1505" .AutoFilter Field:=16, Criteria1:="=" .AutoFilter Field:=14, Criteria1:=.Cells(x, 19) k = 0 For Each rVis In .Range("A2:A" & LRo).SpecialCells(xlCellTypeVisible) k = k + 1: If k = Application.MRound(.Cells(x, 21), 1) Then Exit For Next rVis LRd = Sheets("ITENS A CONTAR").Cells(Rows.Count, 1).End(xlUp).Row .Range("A2:O" & rVis.Row).Copy Sheets("ITENS A CONTAR").Cells(LRd + 1, 1) .Cells.AutoFilter Next x End With Application.ScreenUpdating = True End Sub

Olá osvaldomp Isso! Na verdade, acredito que no meu código só falte esta linha. Testei! me parece que não funciona pegando o resultado da fórmula ,porém, com o número digitado ele seleciona. A forma que achei para usar foi a que esta abaixo aparece uma mensagem "erro 400". Ela faz os filtros, seleciona, copia, troca de aba, ai aparece a mensagem. Sub SEPARAR_ITENS_A_CONTAR() ' ' SEPARAR_ITENS_A_CONTAR Macro ' Sheets("1504").Select ActiveSheet.Range("$A$1:$Q$4000").AutoFilter Field:=15, Criteria1:="1504" ActiveSheet.Range("$A$1:$Q$4000").AutoFilter Field:=16, Criteria1:="=" ActiveSheet.Range("$A$1:$Q$4000").AutoFilter Field:=14, Criteria1:="A" Call SelecionaVisíveis1 Selection.Copy Sheets("ITENS A CONTAR").Select Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("1504").Select ActiveSheet.ShowAllData ActiveSheet.Range("$A$1:$Q$4000").AutoFilter Field:=15, Criteria1:="1504" ActiveSheet.Range("$A$1:$Q$4000").AutoFilter Field:=16, Criteria1:="=" ActiveSheet.Range("$A$1:$Q$4000").AutoFilter Field:=14, Criteria1:="B" Call SelecionaVisíveis1 Selection.Copy Sheets("ITENS A CONTAR").Select Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("1504").Select ActiveSheet.ShowAllData ActiveSheet.Range("$A$1:$Q$4000").AutoFilter Field:=15, Criteria1:="1504" ActiveSheet.Range("$A$1:$Q$4000").AutoFilter Field:=16, Criteria1:="=" ActiveSheet.Range("$A$1:$Q$4000").AutoFilter Field:=14, Criteria1:="C" Call SelecionaVisíveis1 Selection.Copy Sheets("ITENS A CONTAR").Select Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

Bom dia osvaldomp Tentei inserir o código e ele acaba travando. Pode me ajudar inserir ele no restante da macro. Fabiano.xlsx

Boa tarde amigo Mais ou menos isso! Com os filtros aplicados de A1:E9 tem 7 linhas de dados e o cabeçalho. Número de linhas contadas a partir do cabeçalho. O número de colunas será fixo,porém, o número de linhas a serem selecionadas será o resultado de uma formula que esta em L2. Na macro e tabela original irei aplicar alguns filtros tal qual esta no exemplo e depois irei copiar 15 colunas (A:O) e o número de linhas do resultado da fórmula em L2. Me fiz entender?

Boa noite Preciso selecionar um intervalo considerando o numero de linhas que estara expresso em uma celula no caso "L2". neste caso preciso selecionar de a1 até e9 (7 linhas conforme L2). alguem pode me ajudar? desde já obrigado teste.xlsx