vagnersouza1976

fredmoraes, Bom dia !!! Veja se atende ... Dê retorno. Planilha-de-Controle-de-Indicadores-de-RH-teste (1).xlsx

Ricardo, Acredito que a rotina abaixo atenda sua 1º necessidade: "' inserir comando para esperar aproximadamente 1 segundo para para o próximo i" Este código para a macro por aproximadamente 1 segundos. newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 1 ' defina aqui os segundos waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Sua 2º necessidade ficarei devendo ... "também queria que a subrotina fosse interrompida com um click do mouse." Sem mais.

Nesse caso você vai usar a função SOMASES ... Segue conforme solicitado ... Formula SE em um intervalo de tempo - duas condições.xlsx

Você precisa usar a função Somase ... Segue conforme solicitado ... exemplo.xls

Tetra, Boa tarde !!! 1º Você pediu "que haja somente o cálculo, se o valor no primeiro intervalo de células (A1:A45) for igual ao B1" - 1º poste Depois você pede "somente se o valor da coluna A (A1:A45) for igual ao da coluna B (B1:B45), 2 poste (resposta) O que você precisa: da célula B1 ou do intervalo (B1:B45) ??? Veja se essa planilha atende o que você precisa ... De retorno. Formula SE em um intervalo de tempo.xlsx

Carolina, Boa tarde !!! Veja se atende sua necessidade ... Criei duas planilhas: SOLICITADO e 2º OPÇÃO Sem mais. Condicional interligado a Lista Suspensa no Excel.xlsx

Por favor, verifique se atende ... =SE(Q18=0;$BJ$5;SE(Q18<=9,625;$BJ$4;SE(Q18>9,625;$BJ$3;""))) Se não atender os três critérios, a célula fica vazia ...

Amigo, Boa tarde !!! Quando você se refere a "não vai existir" ou entrar o 0, por favor seja um pouco mais claro ... A célula tem valor (número 0) ou a célula esta vazia ( " " ) Aguardo retorno.

Rafa, Boa tarde !!! Veja se atende ... relfatacertocobradorccit.xls

Boa tarde !!! Eu utilizo o colar especial ... Segue um tutorial como exemplo ... http://www.tecmundo.com.br/excel/789-excel-colagem-especial-aprenda-a-usar.htm Sem mais.

Edineia, Boa tarde !!! Pelo que entendi, você: 1º digita os dados na planilha FORMULARIO 2º esses dados serão enviados para a planilha B.D 3º gerar o arquivo tabulado na planilha AVALIAÇÃO em relação a uma determinada linha da planilha B.D (coluna P.S) Observei sua planilha e na célula "C9" da planilha Avaliação já tem uma formula Procv. Porque não usar essa função para atualizar os demais dados na planilha Avaliação ?

Rodrigo, Conforme nosso contato por e-mail, foi enviado para seu e-mail a planilha LOTERIA QUINA.xls. * Devido ao tamanho do arquivo, não foi possível postar a planilha no fórum. O seguinte problema postado foi resolvido: "Acontece que por algum motivo trava no sorteio 2819 e a partir do sorteio 2820 puxa sempre o mesmo resultado" Por favor, validar a planilha. Fico a disposição para compartilhar a planilha por e-mail, caso haja alguém interessado. Solicitar via mensagem privada informando planilha LOTERICA. Sem mais.

Marcos, Boa tarde !!! Veja se código atende ... Sub Agrupar_Linhas() Finalrow = Cells(Rows.Count, 6).End(xlUp).Row Application.ScreenUpdating = False For I = 2 To Finalrow If Cells(I, 9) = "Total" Then Cells(I, 9).Select ActiveCell.Offset(1, -5).Select Selection.Cut ActiveCell.Offset(-1, 0).Select ActiveSheet.Paste ActiveCell.Offset(2, 2).Select Selection.Cut ActiveCell.Offset(-2, 0).Select ActiveSheet.Paste ActiveCell.Offset(1, 6).Select Selection.Cut ActiveCell.Offset(-1, 0).Select ActiveSheet.Paste End If Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Segue link para acesso a planilha: https://www.sendspace.com/file/cfp43g

Rodrigo, Acredito que você esteja confundindo as coisas, o botão de rotação apenas altera um número, conforme regra definida ao formatar o controle. Quando você diz buscar o número ... isso tem que ser fórmula ... o botão não faz isso ... Quando você altera um valor com o botão de rotação, uma fórmula vai buscar o mesmo valor em outra plan ... Como ainda não entendi a sua real necessidade, segue um exemplo da funcionalidade do botão de rotação e uma fórmula (Procv) utilizadas em conjunto. Sem mais. PROJETO LOTERIA QUINA.xlsx

Rodrigo, Bom dia !!! Coloca um exemplo em um nova planilha excel de como seria o que você espera. Sem formula mesmo, faz uma simulação de como você gostaria que ela ficasse. Se vai aparecer um resultado ou mais jogos, etc ... Com isso, acho que eu e o Xflapc2 poderemos ajudar ... Sem mais.

Rodrigo, Boa tarde !!! Desculpe a demora, fiquei verificando sua planilha no dia de hoje, mas não conseguir resolver seu problema ... Ela é muito complexa, tem planilhas ocultas (protegidas) e o VBA também esta com senha ... Que dificultam uma melhor analise. Caso consiga alguma solução até amanhã, retorno a publicar no fórum ... Sem mais.

Rodrigo, Bom dia !!! 1º) Referente ao botão, foi utilizado um controle de formulário: botão de rotação. Segue em PDF um tutorial de como utilizar esse controle. Link original: http://support.microsoft.com/kb/291073/pt-br. 2º) Referente a célula "K10" foi utilizado funções aninhadas: "Procv" para buscar os dados na coluna B da Plan 2. "Se" caso a célula H10 estiver vazia "Seerro" para ocultar valores como #N/D. Sem mais. Rodrigo, Agora, quanto a sua necessidade, não consegui entender a relação entre a utilização do botão e a busca de dados na Plan2 .... Se possível, exemplificar melhor na planilha excel como seria o resultado final que você espera, possa nos ajudar ... Sem mais. Como usar os controles de formulários em uma planilha do Excel.pdf

Bom dia !!! Veja se atende a sua necessidade ... Buscar dados em outra plasnilha.xlsx

Boa tarde !!! Veja se atende ... Worksheets(1).Select ActiveWorkbook.Worksheets("DB").Sort.SortFields.Clear ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("C7"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("D7"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("E7"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("F7"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("DB").Sort .SetRange Range("B7:CG256") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Sem mais.

Ana, Bom dia !!! Quando precisei dessa fórmula, também fiquei com dúvida ... Segue um tutorial que me ajudou a compreender melhor a lógica ... http://pcworld.com.br/dicas/2009/05/06/excel-como-fazer-o-procv-realizar-pesquisas-inversas/ No caso da fórmula do "osvaldomp", ele também incluiu a função SEERRO ... Segue tutorial dessa função... http://www.aprenderexcel.com.br/2014/tutoriais/funcao-seerro Sem mais.

Herson, Bom dia !!! Referente a célula A18, não foi utilizado fórmula, mas sim, a combinação dos seguintes recursos: "Caixa de nome" e "Validação de Dados". Segue tutoriais para exemplificar: http://exceldeaz.blogspot.com.br/2013/01/layout-do-excel-caixa-de-nome-5.html http://www.ambienteoffice.com.br/excel/validacao_de_dados/ Sem mais. Herson, Referente a sua planilha postado, seria interessante você preencher algumas linhas, referente as colunas dos itens 7 e 29 e incluir uma(s) célula(s) com o resultado que você espera, mesmo sem formula ... Quem sabe, assim a gente consegue resolver o seu problema ... Sem mais.

Boa tarde !!! Segue uma sugestão conforme anexo ... Cruzar dados no Excel 2013....xlsx