Ir para conteúdo

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

osvaldomp

  • Postagens

    1.534
  • Desde

  • Última visita

  • Days Won

    62

Tudo que osvaldomp postou

  1. osvaldomp

    EXCEL - Capturar o último valor preenchido da coluna

    Olá, Paulo. Quanto aos itens 1 a 3 ok. Entendi. Quanto ao item 4 me parece que a minha pergunta no post anterior passou a impressão de que colocar a soma na linha 1004 substituiria a solução que você está buscando, que é selecionar o ano planilha Rel e obter ali os resultados. O que eu quis dizer é que se colocarmos os totais na linha 1004, via SOMA(), as fórmulas da planilha Rel ficariam mais simples, pois buscariam essas somas ao invés de fazer a soma nas próprias fórmulas; ainda, na sua resposta você incluiu o termo "quadro" que eu não sei o seu significado no Excel.
  2. osvaldomp

    EXCEL - Capturar o último valor preenchido da coluna

    Olá, Paulo. dúvidas/comentários: 1. geralmente o recurso de selecionar de lista suspensa é utilizado para replicar dados de múltiplas fontes, uma de cada vez, em um único intervalo, porém na planilha Rel você colocou esse recurso em dois intervalos (C4 e C5); porque dois intervalos e não um?; ainda, já que você colocou dois, porque não colocar três, um para cada planilha de origem (2018, 2019 e 2020), isso facilitaria na elaboração das fórmulas. 2. em continuação ao item acima, se você optar por manter dois intervalos ou um apenas, seria viável alterar os nomes das planilhas de Receb-18 para 2018, de Receb-19 para 2019, ... ,?, isso facilitaria na elaboração das fórmulas 3. nas planilhas Receb-XX há quatro colunas para cada mês, de qual dessas colunas você quer a soma? 4. eu suponho que o intervalo do qual você quer a soma é da linha 2 até a linha 1003, é isso?; se sim, facilitaria se você colocar na linha 1004 uma fórmula para a soma do intervalo ?2:?1003
  3. osvaldomp

    Macro para coluna totais de valores

    Você ignorou todos os pedidos que fiz, então desisto de ajudar. Aguarde ajuda de algum colega.
  4. osvaldomp

    Macro para coluna totais de valores

    1. em lugar da planilha em bruto você disponibilizou a planilha já ordenada/classificada 2. a primeira planilha que você disponibilizou contém 4 colunas com dados, porém a segunda contém somente duas colunas 3. disponibilize um arquivo contendo uma planilha com os dados em bruto e outra planilha com o resultado desejado, ou coloque o resultado desejado na mesma planilha ao lado dos dados em bruto obs. decida-se se são duas ou quatro colunas com dados, pois o código elaborado para uma delas não servirá para a outra, se foi essa a sua ideia.
  5. osvaldomp

    Macro para coluna totais de valores

    Com exceção da linha 43 me parece que a planilha que você disponibilizou contém o resultado desejado, é isso? Se sim, seria oportuno você disponibilizar também a planilha em bruto, antes de classificar e de inserir os subtotais.
  6. osvaldomp

    Planilha Excel utilizando a formula SE com horas

    Experimente: =SE(OU(J9<"0:20"+0;J9>"1:44"+0);"";SE(J9>"1:19"+0;"1,5 h";SE(J9>"0:44"+0;"1 h";"0,5 h")))
  7. osvaldomp

    RESPONDIDO EXCEL - Procurar Valor em Intervalo

    Experimente: =PROCV(H5;CUSTO;3)
  8. osvaldomp

    Mostrar o nome completo do mês atual

    Olá, Apolo. Veja se atende. em A3 ~~~> =MAIÚSCULA(TEXTO(HOJE();"mmmm")) em A12 ~~~> =MAIÚSCULA(TEXTO(A10;"mmmm"))
  9. osvaldomp

    RESPONDIDO Exibir o Conteúdo durante 5 segundos

    Olá, Geneci. Baixei o seu arquivo e aqui funciona corretamente. Nada alterei, apenas salvei na minha máquina e estou reenviando. Veja se funciona aí. FONO - V1.xlsm
  10. osvaldomp

    RESPONDIDO Exibir mensagem com tripla coincidências

    Olá, Geneci. Em relação à igualdade de conteúdo de 3 células há 3 situações possíveis e que a fórmula irá retornar: 1. três valores iguais, ou 2. dois valores iguais, ou 3. três valores desiguais. O termo "coincidência" pode ensejar mais de uma interpretação. Por exemplo, a situação em que há dois valores iguais é considerada uma ou duas coincidências? Devido a essa duplicidade de interpretação eu utilizei o termo "igual", ao invés de "coincidência". Aí você altera na fórmula o texto do resultado para cada caso conforme a sua preferência.
  11. osvaldomp

    RESPONDIDO Exibir mensagem com tripla coincidências

    Olá, Geneci. Veja se atende. =SE(E(A1=B1;A1=D1);"3 iguais";SE(OU(A1=B1;B1=D1;A1=D1);"2 iguais";"não há iguais"))
  12. Olá, Geneci. Veja se atende. Instale o código abaixo no módulo da planilha. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 13 Then Target.Interior.Color = Cells(Target.Row, 1).Interior.Color End Sub
  13. Para somar se contiver uma palavra experimente: =SOMASE(planilha1!$B$1:$B$1000;planilha2!A1;planilha1!$A$1:$A$1000)
  14. osvaldomp

    Macro cópia + impressão + salvar planilha + loop

    O código abaixo faz o trabalho do código que você postou. Sugiro que você grave uma ou mais macros com as demais operações que você precisa e coloque os códigos aqui se precisar de ajustes. Sub teste() Sheets("PROPOSTA").Range("E7").Value = Sheets("BASE").Range("A2").Value Sheets("PROPOSTA").PrintOut Copies:=2 Sheets("BASE").Rows(2).Delete End Sub
  15. Olá, Geneci. Veja se algum dos códigos abaixo atende. O primeiro código abaixo registra em A1 da Planilha1 a data/hora em que o arquivo foi aberto por último e o segundo código registra data/hora em que o arquivo foi fechado por último. O primeiro utiliza A2 como célula auxiliar. Instale um código de cada vez no módulo de EstaPasta_de_trabalho. Em seguida salve, feche e reabra o arquivo para verificar o resultado. Private Sub Workbook_Open() With Sheets("Planilha1") .[A1] = [A2] .[A2].Font.ThemeColor = xlThemeColorDark1 .[A2] = "Seu último acesso foi em " & Now End With Me.Save End Sub Private Sub Workbook_Open() Dim fso As Object, arq As String arq = ThisWorkbook.FullName Set fso = CreateObject("Scripting.FileSystemObject") Sheets("Planilha1").[A1] = "Seu último acesso foi em " & fso.GetFile(arq).DateLastAccessed Me.Save End Sub
  16. osvaldomp

    RESPONDIDO Exibir o Conteúdo durante 5 segundos

    Olá, Geneci. Veja se o arquivo anexo atende. FONO.xlsm
  17. osvaldomp

    Função Hora no Excel

    Não há foto anexada ao seu post. Leia novamente a minha sugestão no post anterior. Imagens, fotos, prints, captura de tela, desenhos, pinturas, ...não servem.
  18. osvaldomp

    Função Hora no Excel

    Sugestão: disponibilize uma amostra do seu arquivo Excel e explique na própria planilha qual o problema e qual a solução desejada.
  19. osvaldomp

    RESPONDIDO Quantidade e a posição do registro.

    Olá, Geneci. Seguem duas opções. Veja se aproveita alguma delas. opção1 - cole a fórmula abaixo em F1 e o código abaixo no módulo da planilha. =SE(CÉL("col")>1;"";"Registro "&CÉL("lin")-9&" de "&CONT.VALORES(A:A)) ~~~> se retornar #NOME substitua col por coluna Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub opção2 - cole o código abaixo no módulo da planilha Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 1 Or Target.Value = "" Then [F1] = "": Exit Sub [F1] = "Registro " & Target.Row - 9 & " de " & Application.CountA([A:A]) End Sub obs. teste uma opção por vez, ou em planilhas diferentes, pois os dois códigos não podem ser instalados juntos.
  20. Veja se o link abaixo ajuda. Outras formas são o sábio Google e os fóruns, além de cursos. Para saber sobre determinado comando, no editor de VBA clique sobre o comando e aperte F1 para acessar a ajuda. http://www.bertolo.pro.br/FinEst/SemanaContabeis2007/MacroExcel.pdf
  21. osvaldomp

    Salvar automaticamente no excel usando VBA

    Salva em dois locais. Sub SalvaEmDoisLocais() ActiveWorkbook.SaveCopyAs "C:\MinhaPasta\NomeDoArquivo.xlsm" ActiveWorkbook.SaveCopyAs "K:\OutraPasta\NomeDoArquivo.xlsm" ActiveWorkbook.Save End Sub ou Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableEvents = False ThisWorkbook.SaveAs Filename:="C:\MinhaPasta\NomeDoArquivo.xlsm" ThisWorkbook.SaveAs Filename:="K:\OutraPasta\NomeDoArquivo.xlsm" Application.EnableEvents = True End Sub
  22. Olá, Fabio. Veja se o arquivo anexado atende. Controle Vendas V2.xlsm
  23. osvaldomp

    RESPONDIDO código para colar apenas valores das células

    É possível inibir também o botão direito com códigos, porém mais complexos. Comumente é preciso atuar no nível do aplicativo e não somente no nível da planilha, como o código que passei, então coloca-se um código para inibir ao abrir o arquivo e outro para resetar ao fechar, assim a inibição só atuará na sessão do Excel em que o arquivo estiver aberto. Se você tiver interesse pesquise via sábio Google que provavelmente encontrará soluções. Me parece que é possível desabilitar o botão via Windows. E também via braçal: corte o fio do botão ou dê uma martelada nele. Como alternativa oriente o "ser" para não utilizar o botão direito. Se ele não se enquadrar use o martelo nele
  24. osvaldomp

    numero aleatorio sem repetir somente em A1

    Seguem duas alternativas. Gera Números Aleatórios V2.xlsm Gera Números Aleatórios V3 Falado.xlsm
  25. osvaldomp

    RESPONDIDO código para colar apenas valores das células

    Se o "ser" puder ser treinado para aplicar duplo clique na célula destino, então substitua o seu código pelo código abaixo: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True Cancel = True End Sub Para colar somente valores via Ctrl+v, cole o código abaixo em um módulo comum (menu Inserir / Módulo), em seguida aperte Alt+F8 / selecione ColaValorSomente / Opções / atribua a letra v Sub ColaValorSomente() Selection.PasteSpecial Paste:=xlPasteValues End Sub obs. os dois códigos acima não excluem a possibilidade de o "ser" utilizar o botão direito para colar
×