Patropi

Boa tarde Pablo Código VBA para Conferência do dígito verificador do CNPJ e CPF. Para usar, coloque o número do CPF ou CNPJ numa célula (por exemplo A1) e em outra célula digite "=CNPJ(A1)" (sem as aspas) . Clique em ALT+F11, menu Inserir, Módulo. Neste módulo copie e cola o código abaixo, depois clique em ALT+F11 para retornar a planilha. Dim mult As Double Dim div As Double Dim dig1 As Double Dim dig2 As Double Dim somadig1 As Double Dim somadig2 As Double Dim x As Double Dim resultado As String 'Esta função pega numero a numero do CPF/CNPJ Function quociente(num As Double, divisor As Double) As Integer Dim cont As Integer cont = 0 Do While num >= divisor num = num - divisor cont = cont + 1 Loop quociente = cont End Function 'Esta função verifica a validade do CNPJ Function CNPJ(n As Double) As String mult = 6 div = 10 ^ 13 somadig1 = 0 somadig2 = 0 Do While div <> 10 acum = n x = quociente(n, div) somadig2 = somadig2 + x * mult If mult = 2 Then mult = 9 Else mult = mult - 1 somadig1 = somadig1 + x * mult n = acum - x * div div = div / 10 Loop x = quociente(n, 10) somadig1 = (somadig1 * 10) Mod 11 If somadig1 = 10 Then somadig1 = 0 somadig2 = somadig2 + somadig1 * mult somadig2 = (somadig2 * 10) Mod 11 If somadig2 = 10 Then somadig2 = 0 dig1 = x dig2 = n Mod 10 If somadig1 = dig1 And somadig2 = dig2 Then resultado = "OK" Else resultado = "CNPJ INVALIDO" End If CNPJ = resultado End Function 'Esta função verifica a validade do CPFFunction CPF(n As Double) As String mult = 1 div = 10 ^ 10 somadig2 = 0 acum = n somadig1 = quociente(n, div) n = acum - somadig1 * div div = div / 10 Do While div <> 10 acum = n x = quociente(n, div) somadig2 = somadig2 + x * mult mult = mult + 1 somadig1 = somadig1 + x * mult n = acum - x * div div = div / 10 Loop x = quociente(n, 10) somadig1 = somadig1 Mod 11 If somadig1 = 10 Then somadig1 = 0 somadig2 = somadig2 + somadig1 * mult somadig2 = somadig2 Mod 11 If somadig2 = 10 Then somadig2 = 0 dig1 = x dig2 = n Mod 10 If somadig1 = dig1 And somadig2 = dig2 Then resultado = "OK" Else resultado = "CPF INVALIDO" End If CPF = resultado End Function Este código eu encontrei na Net. Veja vai ser útilp você. Abraços

Boaz tarde Rodrigo então use a formula SE com E. Faça assim conforme dou exemplo do início da fórmula, daí é só você continuar o raciocínio: =SE(A1<=99;25;SE(E(A1=>100;A1,=199;38;SE(E(A1=>200;A1=>349;60;..............) Abraços

Boa noite Rodrigo. você poderá usar o PROCV ou a função SE. É mais fácil usando o PROCV Faça o seguinte: Na célula A1 você digita o número, como por exemplo 500; Na célula K2 digite 0, na L2 99 e na M2 25 Na célua K3 digite 100, na L3 199 e na M3 38 Na célua K4 digite 200, na L4 349 e na M4 60 Na célua K5 digite 350, na L5 500 e na M5 102 Na célua K6 digite 600, na L6 899 e na M6 170 Na célua K7 digite 900, na L7 >900 e na M7 235 agora copie e cole aonde você quiser a seguinte fórmula: =PROCV(A1;$K$2:$M7;3;VERDADEIRO) Espero ter ajudado Abraçaos

Bom dia O que nãodeu certo. Se você quiser inserir As aspas também dá pra fazer. É só acrescentar a ntes da plavra Plan na célula I1 e aumentar uma na fórmula. Abraços

Boa noite Veja se essa matéria pode te ajudar http://dicasdeexcel.com.br/site/2009/01/ex...-a-hora-do-dia/ Abraços

Boa noite mrfg Eu achei um solução pra vc. Faça o seguinte, copie e cole em uma célula( eu usei a célula "I1") o seguinte: Plan (troque a cor da letra para branca para não aparecer). Na célua A1 digite 2; Nacélula B1 digite B10 Na célula C1, copie e cole a seguinte fórmula: =I1&A1&"!"&B1 OBS.: Substitua o "I1" pela célula aonde você colar "Plan Aguardo o retorno neste fórum. Abraços

Boa noite carapau Acho que este tópico pode te ajudar: http://social.answers.microsoft.com/Forums...9c-c7a6bbf430d2 Abraços

Boa noite a todos. Só para esclarecer. No excel 2007 dá para fazer o que o mycontato deseja, através de Validação de Dados, mesmo que os dados estejam em outra planilha. Abraços

Boa noite Igor O código abaixo deve ajudar. Sub ColorirValorDiferente() Dim Area As Range Dim I As Integer I = 0 For Each Area In Worksheets("Plan1").Range("A1:A5") I = I + 1 If Area.Value <> Worksheets("Plan2").Cells(I,Area.Column) Then Area.Interior.ColorIndex = 3 End If NextEnd Sub Explicação. O código pinta de vermelho na plan1 o que não estiver igual na plan2. Baseado neste código você pode adaptar e fazer oque você precisa. Abraços

Boa noite Moises Veja se esses tópicos vão te ajudar: http://www.fernandasallai.com/post/C-Geran...o-em-excel.aspx http://office.microsoft.com/pt-br/excel-he...P010014105.aspx Abraços

Boa noite Cristofer Seria aconselhável você melhorar a disposição dos dados na planilha, colocando o nome numa coluna e os 3 produtos em outra que facilitará a manipulação dos dados em fórmulas, filtros e tabela dinâmica. Abraços

Boa noite Aldo você já tentou usar filtro? Assim você selecionando o código ou o nome do paciente só irá mostrar os procedimentos feitos neste paciente. Abraços

Boas Acho que agora consegui entender a tua pergunta e creio que você esta fazendo confusão, pois quando você clica em proteger planilhas aparecem aquelas opções como você descreveu, mas você não prestou atenção que em cima dessas opções diz o seguinte: "Permitir que Todos os Usuários dessa planilhas possam:" , ou seja, ali você vai apenas selecionar o que você quer deixar desbloqueado. Por exemplo se você quer que seja permitido inserir Hiperlinks é só marcar a opção, se deseja que seja permtido formatar as células é só marcar também a opção Formatar células. Espero q eu tenha sanado a tua dúvida

Boa Noite! É só você seguir a fórmula que te passei acima trocando as células e os nomes das planilhas que você verá que vai funcionar. Por exemplo que te envio abaixo só o início da fórmula que você vai colocar na célula E19 da planilha BASQUETEBOL ( Cole lá é dê enter) =SE(BDMasculino!$B$7=BASQUETEBOL!$D$11;BDMasculino!$D$10;SE(DADOS!$A$29=BASQUETEBOL!$D$11;DADOS!C31)) Mas primeiro você escreve por exemplo Itajai em D11 da planilha BASQUETEL e na célula B7 da planilha BDMasculino. Na célula D10 da planilha BDMasculino você escreve uma Nome por exemplo Adão da Silva. Espero ter ajudado

Eu consegui sozinho, usei a seguinte fórmula: =SOMARPRODUTO(N(C15:C414>=K6);N(C15:C414<=K7);D15:D414)

Boa Noite! Necessito uma fórmula para somar valores que estão no intervalo das células D15:D414 referente ao intervalo das datas que estão entre as células C15:C414 ( datas estas obtidas por fórmula).O dois critérios, que são: data inicial encontra-se na célula K6 e data final na célula K7. Tentei usar a fórmula =SOMASE(C15:C414;">="&"K6";D14:D414)-SOMASE(C15:C414;">"&"K7";D14:D414) para somar tudo o que for maior ou igual a data dá célua K6 e diminuir deste valor tudo que for superior a data da célua K7, mas o resultado dá zero. Será que é porque as datas do intervalo são resultado de fórmula? Se for necessári forneço mais dados. Agradeço antecipadamente. Patropi

Bom dia Neto Se você fornecer mais informações posso tentar te ajudar. Att

Boa Tarde Na sumula na na linha 13 onde consta os nomes é utilizado a fórmula =SE(DADOS!$A$1=SUMULA!$A$11;DADOS!C3;SE(DADOS!$A$29=SUMULA!$A$11;DADOS!C31;SE(DADOS!$A$57=SUMULA!$A$11;DADOS!C59;SE(DADOS!$A$85=SUMULA!$A$11;DADOS!C87;SE(DADOS!$A$113=SUMULA!$A$11;DADOS!C115;SE(DADOS!$A$141=SUMULA!$A$11;DADOS!C143;SE(DADOS!$A$169=SUMULA!$A$11;DADOS!C171;AH13))))))) para as demais linhas basta puxar a fórmula. Na outra equipe, Pouso Redondo, onde cosnta os nomes na linha 13 é utilizado a seguinte fórmula: =SE(DADOS!$A$1=SUMULA!$P$11;DADOS!C3;SE(DADOS!$A$29=SUMULA!$P$11;DADOS!C31;SE(DADOS!$A$57=SUMULA!$P$11;DADOS!C59;SE(DADOS!$A$85=SUMULA!$P$11;DADOS!C87;SE(DADOS!$A$113=SUMULA!$P$11;DADOS!C115;SE(DADOS!$A$141=SUMULA!$P$11;DADOS!C143;SE(DADOS!$A$169=SUMULA!$P$11;DADOS!C171;AK13))))))) para as demais células basta puxar a fórmula. Espero ter sido útil Patropi

Bom ddia! Para inserir o mesmo dado em células que estejam vazias, selecione-as dentro do espaço no qual deseja aplicar esta função e pressione a tecla F5 do teclado. Será exibida uma janela e você deverá selecionar o botão Especial. Digite o valor ou palavra que deseja aplicar dentro desta célula e em seguida pressione as teclas CTRL + Enter ao mesmo tempo. Após isto o Excel preencherá automaticamente todas as outras células desta seleção que estavam em branco. Espero ter sido útil