Ir ao conteúdo

Basole

Membro Pleno
  • Posts

    2.009
  • Cadastrado em

Tudo que Basole postou

  1. Através de formulas não, só através do vba. Veja este exemplo: Sub TesteRotulo() MsgBox ActiveSheet.Shapes("Rótulo 1").TextFrame.Characters.Text ' Altere de acordo c/ o seu Rotulo End Sub
  2. Cole o codigo abaixo no editor vba de "EstaPasta_de_trabalho": Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim rng As Range, msg As String msg = "Falta dados bancários" Set rng = Sheets("Plan1").Columns(1).Find(msg) If Not rng Is Nothing Then MsgBox msg & "! Verifique" Cancel = True End If End Sub
  3. Experimente isso: Private Sub Worksheet_Activate() On Error Resume Next If Excel.WorksheetFunction.IfError(Application.ExecuteExcel4Macro("meuvalor"), 2029) = "2029" Then Excel.Application.ExecuteExcel4Macro "SET.NAME(""meuvalor"", ""Aba já está Ativa"")" MsgBox "teste" End If On Error GoTo 0 End Sub
  4. Seu arquivo está protegido com restrições a edição. Envie a senha ou reenvie outro arquivo.
  5. Fiz um exemplo, parecido como o do topico do botão flutuante. Mas é necessário selecionar celulas abaixo para o menu se mover, pois o excel não tem recurso do evento mouse. Ao clicar em uma linha Section, chama uma macro diferente: Menu Flutuante.zip
  6. Eu nao sei exatamente o que pretende fazer, mas outra opção é criar um bat na linha de comando. Ex.: Faça um teste=>Vá no CMD e digite: Set SeuPath=C:\Windows\System32\config\systemprofile\AppData\Roaming echo %SeuPath% Rem O resultado na tela será: C:\Windows\System32\config\systemprofile\AppData\Roaming Copie o conteudo em um bloco de notas e salve como outros arquivos: Qualquer_Nome.bat
  7. Para cada nivel uma unidade. Para este caso: Ex.: Path completo: C:\Windows\System32\config\systemprofile\AppData\Roaming\Microsoft\SystemCertificates\My\Certificates subst X: C:\Windows\System32\config\systemprofile\AppData\Roaming Ai voce pode referenciar: X:\Microsoft\ ou X:\Microsoft\SystemCertificates\ ou X:\Microsoft\SystemCertificates\My etc ... Ou seja desta forma, pelo menos voce abrevia esta parte: C:\Windows\System32\config\systemprofile\AppData\Roaming
  8. Uma saida, mas dependendo da quantidade de paths que voce tem, usar o comando subst Ex.: subst X: C:\Windows\System32\config\systemprofile\AppData\Roaming\Microsoft\SystemCertificates\My\Certificates O caminho ficara assim "X:" E para deletar o comando: Subst X: /d
  9. Isto está acontecendo, porque o resultado da da formula VLOOKUP(C86;B100:C102;2;0), está retornando como um numero decimal, separado por virgula e o padrão americano é o ponto. Provavelmente a configuração está no modo americano ou outro idioma. Uma saída seria, tentar definir a interface de idioma Configuração do Google Docs para o português. e também inseri uma localidade em configuração: Vá em arquivo=>Configurações da Planilha (img1)=>Em localidade, selecione Brasil. Altere tambem, caso esteja diferente, o idioma de exibição, para o português. (img2) img1 img2 Se isso, não resolver, experimente alterar a formatação da moeda. Clique no botão 123=>Mais Formatos=>Mais moedas. E selecione o Real brasileiro:
  10. Aqui pra mim está normal. voce tentou desta forma abaixo, no google sheets ? =VLOOKUP(C86;B100:C102;2;0)*C4
  11. Experimente esta função: Function URLExists(url As String) As Boolean Dim Request As Object Dim ff As Integer Dim rc As Variant On Error GoTo EndNow Set Request = CreateObject("WinHttp.WinHttpRequest.5.1") With Request .Open "GET", url, False .Send rc = .StatusText End With Set Request = Nothing If rc = "OK" Then URLExists = True Exit Function EndNow: End Function
  12. Experimente usar procv + máximo. Ex.: =PROCV(MÁXIMO(A:A);A:C;3;0)
  13. Quanto aos feriados adicionais, eu já inclui no codigo. Sobre as Livre Docências, para aparecer na folha de ponto de cada servidor, é necessário no seu modelo, na aba professor, criar uma coluna, indicando previamente o dia da semana e associando a professor. Se não é algo fixo e o dia todo, fica difícil o Excel adivinhar. LIVRO PONTO MJ - ADMINISTRATIVO.zip
  14. @diego_janjao A sugestão eu já fiz, no meu primeiro post. A minha sugestão é, mas paliativa, é criar uma função que retire todos os acentos das palavras cadastradas (setores e responsáveis), e tambem retirar os acentos das palavras que o usuario inserir, desta forma, não terá problemas para comparar e localizar a duplicidade ou não. Acho que seria a melhor forma. Isto é se na planilha, puder ficar com a ortografia errada. Pois eu sitei que para algumas palavras o corretor ortografico do excel, não abriu a janela para corrigir algumas palavras sem acentos.
  15. Pesquise aqui no forum. Eu mesmo postei a algum tempo atrás um exemplo.
  16. Desculpe, não considerei essa possibilidade: Segue o anexo corrigido. PAM GUT 2017 form_3.zip
  17. Sim é possível, tem alguns exemplos na net, por exemplo que "destrói" o código, caso o projeto seja acessado sem permissão. Mas se o usuário, não habilitar as macros, nada disso resolve.
  18. Eu alterei e agora esta atendendo ao cancelamento do corretor ortográfico. PAM GUT 2017 form_2.zip
  19. Sim, estou justamente me referindo a fazer isso com VBA.
  20. Tem que adicionar o feriado no codigo. Se não conseguir informe os feriados fixos, que deseja acrescentar que eu adiciono. Bom eu não sei como funciona essa livre docencia que voce citou. Seria melhor para nos entendermos, voce fazer um exemplo preenchendo manualmente, e destacando (colorindo a celulas) e demonstrando o resultado esperado.
  21. Isso é normal, mas não é o correto. Preciso alterar esta rotina, pois está em 2 eventos diferentes. um evento verifica a correção ortográfica e o outro faz a pesquisa. Um está conflitando o outro. Depois eu incluo ambos eventos em um só, para que o usuário não precise clicar duas vezes.
  22. Não o List_feriados, só serve como suporte para a formula: =DIATRABALHOTOTAL(A14&Q8&R8;A43&Q8&R8;List_Feriados) que conta a qtd de dias uteis do mes. A função que verifica e colori as linhas dos dias com feriados é VerificaSeFeriado. Para acrescentar + feriados tem que acrescentar dentro da funcao seguindo a logica. Outra coisa, eu fiz uma macro para voce imprimir automaticamente toda a lista de servidores. Para fazer um teste de impressão com apenas 3 nomes, quando aparecer a mensagem, click em SIM, ou NÃO para imprimir toda a lista de 43 nomes. LIVRO PONTO MJ - ADMINISTRATIVO_1.zip
  23. @diego_janjao os acentos fazem diferença no metodo de procura dos responsável ou setor, que utilizei. Acrescentei o corretor ortográfico do excel, para verificar e abrir a janela de correção para sugerir que o usuário corrija as palavras sem acentos, por exemplo, mas algumas palavras como "deposito", (sem o acento), pelo menos nas configurações regionais, do meu PC, o corretor não detectou. A minha sugestão é, mas paliativa, é criar uma função que retire todos os acentos das palavras cadastradas (setores e responsáveis), e tambem retirar os acentos das palavras que o usuario inserir, desta forma, não terá problemas para comparar e localizar a duplicidade ou não. PAM GUT 2017 form_1.zip
  24. No exemplo do relatório que enviou, nenhuma entrada, estava incoerente, de acordo com a condição que voce colocou. Então eu alterei o horario da coluna D de algumas linhas, para demostrar a incoerencia, atraves da formatação condicional, destacando a linha que apresentou a condição verdadeira. Para esse resultado, não foi necessário utilizar a programação (vba), apenas a formatação condicional e formulas. Relatório - Entradas_1.xlsx
  25. Experimente testar o codigo com essas alterações, pois não tenho o outlook instalado aqui par testar. Sub enviar_corpo_email() Dim rng As Range Set rng = ActiveSheet.Range("A1:D1", "D5:F7") rng.Select ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = "" .Item.To = "email para envio" .Item.Subject = "Título Assunto" .Item.Send End With End Sub

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!