Scofieldgyn

@Imakuni Cara, a fórmula me atende, só tem um detalhe que acabei esquecendo de colocar na descrição de ajuda. quando vira o mês, gostaria que o contador iniciasse semana 1, é possível ajustar a fórmula? Respondendo sua perguntar, eu também fiz essa mesma perguntar aqui onde trabalho, é uma ideia ***** aqui da gestão que precisa que o mês seja dividio em 4 semanas, independente em qual dia o mês inicia, se é na segunda, quarta, sexta, domingo etc. Infelizmente não consegui adpatar isso no PowerBI, tenho que fazer no Excel e subir.

Bom dia a todos, Preciso de uma ajuda, no anexo tem um arquivo em que tem uma coluna data onde eu preciso que divida-se em semanas, no mesmo tem uma explicação no detalhe do que preciso. Desde já agradeço pela ajuda. Pasta1.xlsx

@OreiaG Hoje seu código levou mais tempo, quase 14 segundos. Vou tentar montar alguma base ficticio, pois os dados reais da empresa não posso compartilhar, justa causa na hora.

@OreiaG o meu leva 8 segundos e o seu está levando 6 segundos. Queria diminuir para 1 ou 2 segundos, sei que é possível, pois a maior parte da demora, está nesse pedaço de código pra retirar a duplicidade. Nesse último código exemplo que eu comentei anteriormente, ele leva milesimos de segundos, so que não está respeitando o filtro. Mas enfim, seu código já está ajudando bastante.

@OreiaG Obrigado pelo retorno. Eu fiz um parecido um mês atrás, porém eu não queria fazer por fórmula pra diminuir o tempo de processamento. Cheguei fazer outro modelo conforme abaixo, ele está retirando a duplicidade normalmente, porém não está obedecendo o filtro aplicado. Se tiver alguma sugestão, agradeço. Sub duplicidade() Dim UltLin As Long Dim rng As Range Dim rng2 As Range ActiveSheet.Range("$A$1:$S$1048576").AutoFilter Field:=3, Criteria1:=">6000000", Operator:=xlFilterValues With ActiveSheet.AutoFilter.Range On Error Resume Next Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _ .SpecialCells(xlCellTypeVisible) On Error GoTo 0 End With If rng2 Is Nothing Then MsgBox "Não consta duplicidade" Else Set rng = ActiveSheet.AutoFilter.Range rng.Offset(1, 0).Resize(rng.Rows.Count - 1).RemoveDuplicates Columns:=Array(3, 7, 12, 16), Header:=xlYes End If End Sub

Olá pessoal tudo bem vocês? Preciso de um favor, tenho uma rotina vba que eu preciso excluir duplicidade de linhas com base em critérios de algumas colunas, eu consegui inserir o código, mas só que ele não exclui apenas as linhas com a tabela filtrada, ai quando eu coloco o comando apenas pra células visíveis, dá um erro, ou seja, ele não deixa. Teria uma forma de resolver isso? Range("A2:U" & UltLin).Select Selection.SpecialCells(xlCellTypeVisible).Select 'Ele dá erro aqui Selection.RemoveDuplicates Columns:=Array(3, 7, 12, 16), Header:=xlYes O Filtro que eu aplico é na coluna 3, onde o valor da célula é maior que 60000000, se tiverem uma sugestão para melhorar o código em vez de deixar a tabela filtrada, agradeço.

@Fred Oliveira Tiudo bem meu parceiro? Obrigado por responder, mas a fórmula não me atende, segue em anexo o resultado que espero. Veja que preparei uma tabela dinâmica pra chegar no resultado, mas a ideia é não fazer via TD e sim direto. Desde já agradeço. Ajudar Contar distintos Matricial.xlsx

Olá meus amigos(as), Não entendo de fórmula matricial, li a respeito a internet mas não consegui colocar em prática pra solução do meu problema. Anexo a planilha com a explicação que necessito. Ajudar Contar distintos Matricial.xlsx

@OreiaG Sim, foi uma falha minha não ter anexado. A fórmula funcionou perfeitamente, obrigado!

Boa tarde, Favor me ajudarem elaborar uma fórmula conforme explicação da Imagem. . . . . . . . . . . . . . . . . . . .

Olá meus amigos(as), Preciso de ajuda, tenho esse pedaço de código que estou montando pra extrair um relatório do SAP, que por sinal é bem pesado. O código está funcianando quase perfeitamente, o problema é que após finalizar a operação SAP, o relatório por ser um pouco pesado, ele não abre sozinho, isso só acontece após eu movimentar o mouse. Com isso eu não consigo adicionar mais operações como copiar a base e colar na planilha que puxa do SAP, ou até mesmo mandar fechar essa planilha vindo do SAP. (Workbooks(NOMEARQUIVO).Close 'SaveChanges:=True) Eu sei que vão dizer que não tem SAP pra testar, mas não é necessário, é só mesmo se alguém já passou por algo assim ou se tem alguma ideia de como ajudar. desde já agradeço session.findById("wnd[0]").maximize session.findById("wnd[0]").sendVKey 0 'ENTER Planilha4.Select CAMINHO = Trim(CStr(objSheet.Cells(6, 6).Value)) NOMEARQUIVO = Trim(CStr(objSheet.Cells(7, 6).Value)) 'and there goes your code in SAP session.findById("wnd[0]/tbar[0]/okcd").Text = "*****" session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]").sendVKey 8 session.findById("wnd[0]/mbar/menu[0]/menu[3]/menu[1]").Select session.findById("wnd[1]").sendVKey 0 session.findById("wnd[1]/usr/ctxtDY_PATH").Text = CAMINHO session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = NOMEARQUIVO session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 10 session.findById("wnd[1]").sendVKey 11 Set session = Nothing Connection.CloseSession ("ses[0]") Set Connection = Nothing Set Sap = Nothing Planilha4.Select [A2].Select 'Application.Wait Now + TimeValue("0:00:06") 'Workbooks(NOMEARQUIVO).Close 'SaveChanges:=True End Sub

@GENECIOFICIAL Veja se atende =SE(OU(MÊS(C4)=7;MÊS(C4)=12);"FÉRIAS";SE(DATADIF(B4;C4;"ym")=6;"Módulo 1";SE(DATADIF(B4;C4;"ym")=12;"Módulo 2";SE(DATADIF(B4;C4;"ym")=18;"Módulo 3";SE(DATADIF(B4;C4;"ym")>18;"CONCLUÍDO";"")))))

@Tentar veja se é isso que precisa. anexo. VENCIMENTO.zip

@Tentar Pra que eu consiga entender melhor o que você quer, me sinalize na própria planilha que te enviei, o que não quer o usuário veja. Seria fórmula?

@Tentar Nunca vi esse recurso meu caro. Só há duas formas pra deixar do jeito que você quer: 1 - Bloquear para o usuário não digitar na célula via vba (É o que já está aplicado na planilha que te enviei) ou recurso nativo do Excel; 2 - Vba que após colar a fórmula na célula, inserir uma outra instrução na rotina pra colar a mesma em valores.

@Tentar Segue em anexo. Coloquei um bloqueador de célula por vba na coluna [E]. VENCIMENTO.zip

@Tentar segue solução. O código vba foi baseado na suposição que as datas estejam na coluna [E] conforme mencionou anteriormente, nesse caso eu coloquei pra colar a fórmula na coluna [F], mas você pode alterar a referência conforme desejar. Sub ColarFormula() Dim lin_fin As Double lin_fin = Sheets("Planilha1").Range("E1048576").End(xlUp).Row Range("F2:F" & lin_fin).FormulaR1C1 = "=IF(RC[-1]<>"""",EDATE(RC[-1],6),"""")" End Sub em relação ao bloqueio, não precisa fazer via vba, pode fazer com o próprio recurso do Excel. Selecione a coluna que não quer que os usuários façama edições, depois vá em formatar, clique em bloquear célula, depois em Proteger planilha, agora você defini a senha em duas etapas e pronto.

@Tentar Marque o tópico anterior como solucionado e abra um novo explicando exatamente o que precisa ser feito.

@Midori pelo o que entendi na explicação dele é que ele quer que informe a quantidades de sequências existentes em cada linha. aproveitando o exemplo dele, 30, 31, 32, 33, 35, 36. aqui vemos 02 sequências, a primeira é: 30,31,32,33, a segunda é 35,36. desculpe a intromissão, só tentando ajudar

@Diogoogosegue =DATA("20"&EXT.TEXTO(B2;LOCALIZAR(" ";B2)-2;2);ESQUERDA(B2;LOCALIZAR("/";B2)-1);EXT.TEXTO(B2;LOCALIZAR("/";B2)+1;LOCALIZAR("/";B2;LOCALIZAR("/";B2)+1)-LOCALIZAR("/";B2)-1)) Na fórmula sugerida acima, não contempla as horas, caso queira tudo, use a fórmula abaixo: =EXT.TEXTO(B2;LOCALIZAR("/";B2;1)+1;2)&"/"&ESQUERDA(B2;1)&"/"&EXT.TEXTO(B2;LOCALIZAR(" ";B2)-2;2)&" "&DIREITA(B2;8)

@Tentar nenhuma.

@Tentartente a fórmula abaixo. 1º Opção =SE(A2>1;DATAM(A2;6);"") 2º Opção =SE(A2<>"";DATAM(A2;6);"")

@Afonso Peres Anexe uma planilha com dados ficticios e o resultado esperado pra que possamos ajudá-lo.

@LucasExcel Uma forma simples é, você trabalhar com o Filtro Segmentação de Dados, nele é possível filtrar todos os gráficos/tabelas ou apenas parte deles. Aqui um link pra você ir aprendendo como fazer, mas tem infinitos exemplos na internet, sugiro ir no youtube que há vídeos com passo a passo bem tranquilo de aprender. Usar segmentação, linhas do tempo e Gráficos Dinâmicos

@Regilson Abílio Segue fórmula, copie e cole na sua planilha controle. =SEERRO(SE(PROCV(B2;'[Base de dados.xlsx]Planilha1'!$D:$D;1;0)>1;"Ok");"")