Pesquisa resultou em 1744 ocorrências

Voltar à pesquisa avançada

Re: DATA DO DOMINGO MAIS RECENTE QUE ANTECEDE A DATA INFORMA  [resolvido]

por osvaldomp ¦ 10 Jul 2020 às 15:36 ¦ Fórum: Fórmulas e Funções ¦ Tópico: DATA DO DOMINGO MAIS RECENTE QUE ANTECEDE A DATA INFORMADA ¦ Respostas: 1 ¦ Exibições: 13

Experimente:

Código: Selecionar todos=A1-DIA.DA.SEMANA(A1;2)

Re: Média de um determinado valor  [resolvido]

por osvaldomp ¦ 10 Jul 2020 às 13:48 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Média de um determinado valor ¦ Respostas: 2 ¦ Exibições: 15

Código: Selecionar todos=MÉDIASE(A1:A9;"a";B1:B9)


ou a matricial abaixo
Código: Selecionar todos=MÉDIA(SE(A1:A9="a";B1:B9))


obs. por tratar-se de fórmula matricial após colar a segunda fórmula em uma célula vazia aperte F2 e em seguida aperte juntas Ctrl+Shift+Enter

Re: Erro 1004 ao usar variável em uma fórmula  [resolvido]

por osvaldomp ¦ 09 Jul 2020 às 23:13 ¦ Fórum: Macros e VBA ¦ Tópico: Erro 1004 ao usar variável em uma fórmula ¦ Respostas: 2 ¦ Exibições: 13

É preciso converter a variável para String ~~~> Str(variável) Sub InsereFórmula() Dim r As Double r = 0.8 [C2] = "=IF(" & Str(r) & "-RC[-1]<0,0," & Str(r) & "-RC[-1])" End Sub dica - não utilize Select e nem Activate nos seus códigos ;)

Oi, Thaisa.

Veja o arquivo anexo.
Apliquei a FC com base na fórmula que eu sugeri antes, alterei somente as colunas referenciadas de acordo com o lay out da sua planilha.

Na fórmula considerei se o evento ocorrer em até 7 dias, altere se necessário.

Olá, Thaisa. Considerei que os dados estão a partir da linha 2. Aplique a FC a partir da linha 3. =E($E3="Comunicação de Falta";($A3-MAIOR(SE($C$2:$C3=$C3;SE($E3="Comunicação de Falta";$A$2:$A3));2))<8) Se você não conseguir então disponibilize aqui no fórum uma amostra do seu ar...

Re: Erro em tempo de execução '13' - Deletar linhas

por osvaldomp ¦ 09 Jul 2020 às 09:26 ¦ Fórum: Macros e VBA ¦ Tópico: Erro em tempo de execução '13' - Deletar linhas ¦ Respostas: 6 ¦ Exibições: 38

Acrescente a linha em vermelho, conforme abaixo.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count>1 Then Exit Sub
Application.EnableEvents = False

Re: USANDO DUAS CÉLULAS PARA PREENCHIMENTO.  [resolvido]

por osvaldomp ¦ 07 Jul 2020 às 16:24 ¦ Fórum: Macros e VBA ¦ Tópico: USANDO DUAS CÉLULAS PARA PREENCHIMENTO. ¦ Respostas: 1 ¦ Exibições: 19

Olá, Geneci. Instale uma cópia do código abaixo no módulo da planilha Planilha1 . Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$4" Then Exit Sub [B3:B4].Copy [C3].Insert shift:=xlToRight: [B3:B4] = "": Application.CutCopyMode = False [B3].Activate E...

Re: Loop com formulaR1C1

por osvaldomp ¦ 01 Jul 2020 às 10:03 ¦ Fórum: Macros e VBA ¦ Tópico: Loop com formulaR1C1 ¦ Respostas: 1 ¦ Exibições: 16

Experimente: Sub InsereFórmulasV1() Range("C58:C88") = "=INDIRECT(""'0""&ROW(A1)&""'!X5"")" End Sub ou Sub InsereFórmulasV2() Dim k As Long For k = 1 To 31 Cells(k + 57, 3) = "='0" & k & "'!X5" Next k End...

Re: Erro 9: Subscrito fora do intervalo  [resolvido]

por osvaldomp ¦ 30 Jun 2020 às 10:39 ¦ Fórum: Macros e VBA ¦ Tópico: Erro 9: Subscrito fora do intervalo ¦ Respostas: 2 ¦ Exibições: 18

Substitua as 4 ocorrências de ~~~> Sheets(continent)

por ~~~> Sheets("base_dados")

ou exclua todas as 4 ocorrências, e omita o nome da planilha como está por exemplo em ~~~> Range("F2") = ...

Re: EXCLUINDO O MAIOR E O MENOR PARA EFETUAR A SOMA.  [resolvido]

por osvaldomp ¦ 28 Jun 2020 às 18:22 ¦ Fórum: Fórmulas e Funções ¦ Tópico: EXCLUINDO O MAIOR E O MENOR PARA EFETUAR A SOMA. ¦ Respostas: 1 ¦ Exibições: 11

Olá, Geneci.

Veja se atende.

Código: Selecionar todos=SOMA(A1:E1)-MÍNIMO(A1:E1)-MÁXIMO(A1:E1)


ou esta matricial
Código: Selecionar todos=SOMA(SE(A1:E1<MÁXIMO(A1:E1);SE(A1:E1>MÍNIMO(A1:E1);A1:E1)))

Veja se o código abaixo faz o trabalho que você quer. Sub CópiaDaPlanCONTROLE() Sheets("CONTROLE").[E15] = Sheets("CONTROLE").[E15] + 1 ActiveWorkbook.Save Sheets("CONTROLE").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = [E15] ActiveSheet.Shapes("Rounded Rect...

Sugestão: disponibilize aqui no fórum uma amostra do seu arquivo Excel com a planilha Matriz e com uma cópia dela como você deseja que fique.

Re: Otimizar macro  [resolvido]

por osvaldomp ¦ 26 Jun 2020 às 21:17 ¦ Fórum: Macros e VBA ¦ Tópico: Otimizar macro ¦ Respostas: 3 ¦ Exibições: 47

Experimente: Sub PontaOuForaPonta() Dim LR As Long Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False LR = .Cells(Rows.Count, 1).End(3).Row .Range("J5:K" & LR) = "" .Range("K5:K" & LR).FormulaLocal = "=DIATRABALHO(B5-1;1;R$1:R$7)=B5...

Re: Somar +1 quando virar o mês  [resolvido]

por osvaldomp ¦ 25 Jun 2020 às 06:09 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Somar +1 quando virar o mês ¦ Respostas: 2 ¦ Exibições: 20

Experimente:

Código: Selecionar todos=A1+DATADIF(B1;HOJE();"m")

Re: Filtrar dados para outra planilha mediante critério  [resolvido]

por osvaldomp ¦ 14 Jun 2020 às 10:45 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Filtrar dados para outra planilha mediante critério ¦ Respostas: 4 ¦ Exibições: 57

Um exemplo de fórmula poderia ser: "=SE(OU(PERGUNTA 1 = "SIM";PERGUNTA 2 = "SIM";PERGUNTA 3 = "SIM";PERGUNTA 4 = "SIM");"SIM";"NÃO")" Se me permite aproveitar a sua ideia, eu colocaria a fórmula abaixo na coluna H e em seguida ap...

Re: Se a célula for vazia encerrar comando  [resolvido]

por osvaldomp ¦ 11 Jun 2020 às 16:29 ¦ Fórum: Macros e VBA ¦ Tópico: Se a célula for vazia encerrar comando ¦ Respostas: 1 ¦ Exibições: 35

Código: Selecionar todosIf Range("A1").Value = "" Then Exit Sub
 
'comando seguinte

Re: CONTADOR PROGRESSIVO E REGRESSIVO.  [resolvido]

por osvaldomp ¦ 08 Jun 2020 às 11:01 ¦ Fórum: Macros e VBA ¦ Tópico: CONTADOR PROGRESSIVO E REGRESSIVO. ¦ Respostas: 3 ¦ Exibições: 74

Olá, Geneci. Veja se os códigos abaixo atendem. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$B$1" Then [A1] = [A1] + 1: Cancel = True ElseIf Target.Address = "$C$1" Then [A1] = [A1] - 1: Cancel = True End If End Sub Privat...

Re: Quebrar grupos de linhas de 14 em 14 linhas em loop

por osvaldomp ¦ 02 Jun 2020 às 11:47 ¦ Fórum: Macros e VBA ¦ Tópico: Quebrar grupos de linhas de 14 em 14 linhas em loop ¦ Respostas: 7 ¦ Exibições: 102

Eu postei uma solução para o arquivo que você disponibilizou, com base nos critérios que eu entendi, no entanto, com base na sua resposta acima me parece que você ignorou totalmente e a sua ideia é que eu analise e arrume o código que você está tentando utilizar. Desculpe, mas a minha sugestão é de ...

Re: Fórmula SE?  [resolvido]

por osvaldomp ¦ 01 Jun 2020 às 10:08 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Fórmula SE? ¦ Respostas: 3 ¦ Exibições: 84

Experimente:

Código: Selecionar todos=DESLOC(INDIRETO("'"&I3&"'!C3");(K3="Sim")+2*(L3="Sim");)


Veja no arquivo anexado.

Re: Formula para Copiar  [resolvido]

por osvaldomp ¦ 31 Mai 2020 às 19:16 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Formula para Copiar ¦ Respostas: 3 ¦ Exibições: 79

Olá, Dani. Se entendi corretamente a planilha Final será utilizada como banco de dados, por isso eu sugiro que os dados sejam replicados nela via macro e não via fórmulas. Se for viável utilizar macros no seu caso e se você quiser fazer um teste então instale uma cópia do código abaixo no módulo da ...