OreiaG

Veja no arquivo anexo se entendi e se ajuda. Anexo1 Duas tabelas.xls

Segue uma ideia. Veja se ajuda. _______________________________________________________________________________________________________ Carga Horária: >>> M30 >>> =21*8 Total horas trabalhadas: >>> N33 >>> =SOMA(J3:K33)*24 Diferença: >>> M31 >>> =N33-M30 Formate M30, M31 e N33 como Geral _______________________________________________________________________________________________________ Formatação Condicional em M31 >>> selecione M31: Formatação Condicional | Gerenciar Regras | Nova Regra | Usar uma fórmula >>> =$M$31<0 >>> Vermelho Nova Regra | Usar uma fórmula >>> =$M$31>0 >>> Verde _______________________________________________________________________________________________________

=SE(OU(MÊS(C4)=6;MÊS(C4)=12);"férias";PROC(DATADIF(B4;C4;"m");{0;6;12;18};{"móulo1";"módulo2";"módulo3";"concluído"})) Considerando as datas em B4 e em C4, abaixo estão os resultados retornados pela fórmula: 1. se o mês da data em C4 for junho ou dezembro >>> FÉRIAS. 2. até a véspera de completar 6 meses >>> Módulo 1. 3. a partir de 6 meses e até a véspera de completar 12 meses >>> Módulo 2. 4. a partir de 12 meses e até a véspera de completar 18 meses >>> Módulo 3. 5. após completar 18 meses >>> CONCLUÍDO

Apesar de junho ser férias, o curso poderá iniciar em junho ?

Em qual das duas afirmações abaixo devemos acreditar ? Para os meses de dezembro ou julho independente do ano, na célula D4 retornar a mensagem: FÉRIAS. Dezembro e junho sempre período de férias, então deverá apresentar a mensagem: Férias. A data da célula B4, é fixa >>> mas conforme o seu comentário abaixo B4 não é uma data fixa (???) ... e pode iniciar no mês de fevereiro ou no mês de julho. >>> mas julho não é mês de férias ?

=SE(OU(MÊS(C4)=7;MÊS(C4)=12);"férias";PROC(DATADIF(B4;C4;"m");{0;6;12;19};{"";"móulo1";"módulo2";"concluído"})) Reveja os critérios abaixo que você colocou na planilha, pois o resultado Módulo 3 nunca ocorrerá para a data que você colocou em B4. Quando a data da célula C4, somar 18 meses em ralação a data da célula B4, apresentar na célula D4, a mensagem: Módulo 3. Para os meses de dezembro ou julho independente do ano, na célula D4 retornar a mensagem: FÉRIAS. E após os 18 meses, apresentar a mensagem: CONCLUÍDO

Qual o significado de "não deu certo" ? A fórmula retorna resultado incorreto ? Retorna erro ? Qual erro ? Qual é a fórmula que você utilizou ? Quais teclas você utilizou para dar entrada na fórmula ? Qual é a versão do seu Excel ?

Segue uma opção com Formatação Condicional. Em C2 >>> =MÁXIMO(B5:D5) Na Formatação Condicional de C2 aplique 3 regras: 1a. Regra >>> Usar uma fórmula >>> =$C$2=$B$5 >>> formate o preenchimento igual a B5 2a. Regra >>> idem para C5 3a. Regra >>> idem para D5

Em E2 e arraste para baixo =TEXTO(C2;"m/aaaa") Em F2 e arraste para baixo =SE(SOMARPRODUTO((TEXTO(C$2:C2;"m/aaaa")=E2)*(B$2:B2=B2))=1;SOMARPRODUTO((TEXTO(C$2:C$25;"m/aaaa")=E2)*(B$2:B$25=B2)*(D$2:D$25));"") Em G2 e arraste para baixo =SE(CONT.SE(B$2:B2;B2)=1;SOMASE(B$2:B$25;B2;D$2:D$25);"") obs. corrija a data em C20

Experimente esta matricial. =CONT.NÚM(SE(intervalo=valor;1)) 1. abra o arquivo de origem dos dados, e no lugar do parâmetro "intervalo" selecione a planilha e nela o intervalo desejado. Ao fechar o arquivo origem o Excel irá adicionar na fórmula o seu nome e a sua localização 2. caso o seu Excel não seja de versão recente, a fórmula matricial deverá ser finalizada com Ctrl+Shift+Enter, e não somente Enter.

=proc(esquerda(f7;1);{"b";"h";"i";"m"};{"américa do sul";"ele";"europa";"ela"})

Olá. O código que você alterou está certinho. A única recomendação é substituir > 5 por <> 5. E se o erro que você apontou continuar aí precisaria de mais detalhes sobre a situação em que o erro aparece ou anexe o seu arquivo.

A célula em que é colocado o resultado é determinada pela parte em vermelho na linha abaixo. Atualmente é colocado na coluna B. If IsDate(Target.Value) Then Target.Offset(, 1).Value = DateAdd("m", 6, Target.Value) Se você quiser o resultado em outra coluna, substitua o número 1 pelo [número da outra coluna menos 1], conforme exemplos abaixo: resultado na coluna C (que é a coluna 3) >>> Target.Offset(, 2) resultado na coluna D (que é a coluna 4) >>> Target.Offset(, 3) resultado na coluna J (que é a coluna 10) >>>Target.Offset(, 9) Conforme a coluna x que você escolher na linha acima, altere também na linha abaixo. Target.Offset(, x).Value = ""

Veja se entendi: após você digitar um data na coluna A o código irá colocar um data correspondente a 6 meses à frente na coluna B. O código deve ser colocado no módulo da Planilha1 (clique com o direito na guia da Planilha1 e selecione Exibir Código. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 Then Exit Sub Target.Offset(, 1).Value = "" If IsDate(Target.Value) Then Target.Offset(, 1).Value = DateAdd("m", 6, Target.Value) End Sub

Experimente: =SOMA(DIVIDIRTEXTO(G5;";")*1) ou =SOMA(DIVIDIRTEXTO(G5;";")+0)

Veja se atende. Sub ConclusivoOuDivergente() Dim r As Range, s As String, b As Boolean For Each r In [A4:J4] If r.Value <= r.Offset(1).Value Then If s <> "" Then s = s & " / " s = s & "célula " & r.Address(0, 0) & " - " & "valor " & r.Value: b = True End If Next r If b Then [M4] = "DIVERGENTE - " & s Else [M4] = "CONCLUSIVO" End Sub

Esta fórmula conta diretamente na Planilha1, ou seja, não considera os dados da Planilha2. =CONT.SE(B2:B22;0) =CONT.SE(Planilha2!B1:B21;"Falta") ou =CONT.SE(Planilha2!B1:B21;">""")

Veja se esta lhe atende. =ÍNDICE(F2:F71;SOMARPRODUTO((B2:B71<=J5)*(C2:C71>=J5)*(D2:D71<=J6)*(E2:E71>=J6)*(A2:A71=J4)*LIN(F2:F71))-1;0)

Desisto, amigo. Como eu disse antes, foi a última tentativa. Como esse último problema que ocorre aí não tem ligação com o problema que você abriu este tópico, talvez se você iniciar um novo tópico com o problema atual, algum outro usuário consiga lhe ajudar.

Última tentativa. Segue cópia do seu arquivo, conforme comentei no Post #15. Reforçando que a execução dos seus dois códigos Worksheet_Calculate, em decorrência da execução do código Sub BTNOK_Click, é desperdício de tempo e de energia: Post #11, segundo período do terceiro parágrafo. Teste LEITURA2.rar

Aqui não ocorre erro na sua planilha. Baixei o arquivo do post #10, fiz o teste e ocorre erro na linha abaixo, pelo motivo que comentei antes. Acumulado(, 3).Value = TXTdata.Value 'erro nesta linha "Basta excluir a linha que protege a planilha no código Worksheet_Calculate." >>> depois de excluir essa linha, conforme comentei antes, não ocorre qualquer erro e o código executa de boa (na sua planilha).

Aqui não ocorre esse erro. Tente marcar um ponto de interrupção no código Sub BTNOK_Click e a partir dali execute o código via F8 e tente descobrir a origem do erro. Pode ser que a planilha não está sendo desprotegida pelo código Sub BTNOK_Click. Outra forma de verificar é marcar um ponto de interrupção no Worksheet_Calculate, clicar em uma célula com valor, apertar F2 depois Enter e executar via F8. Marcar Ponto de Interrupção no Código

No último arquivo o erro não ocorre na linha que você apontou, e sim nesta linha >>> Acumulado(, 3).Value = TXTdata.Value E ocorre pela seguinte razão: ao executar a linha que você apontou, a execução é desviada para o código Worksheet_Calculate da planilha Geral. Esse código desprotege a planilha, o que é desnecessário pois ela já está desprotegida, e ao final protege a planilha. Aqui a origem do problema. Em seguida a execução retorna para o código Sub BTNOK_Click, e ao tentar executar o comando que coloquei acima em azul, a planilha estará bloqueada, por isso ocorre o erro. Basta excluir a linha que protege a planilha no código Worksheet_Calculate. A propósito, o código Worksheet_Calculate pode ser substituído pela Formatação manual das células >>> Formatar células / Número / Número. Idem para o código Worksheet_Calculate existente na outra planilha. Assim você poderá anunciar ambos na "OLX". O seu comando que citei acima insere a data no formato mm/dd/aaaa, e caso você queira alterar para dd/mm/aaaa, substitua por este >>> Acumulado(, 3).Value = Format(TXTdata.Value, "mm/dd/yyyy")

Faltou você informar qual a ajuda que você quer nesse arquivo que você anexou, que não tem macros, não tem UserForm e a planilha está protegida com senha.

PriLin = [MAX(IF(NOT(ISERR(LEFT(F10:F45,9)*1)),LEFT(F10:F45,9)*1))]