-
Posts
2.009 -
Cadastrado em
Tipo de conteúdo
Artigos
Selos
Livros
Cursos
Análises
Fórum
Tudo que Basole postou
-
Bloquear impressão com condição
Basole respondeu ao tópico de Roberto de Paula Pereira em Microsoft Office e similares
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 -
Mensagem ao ativar uma Aba
Basole respondeu ao tópico de Roberto de Paula Pereira em Microsoft Office e similares
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 -
Como criar campos novos em formulário word bloqueado
Basole respondeu ao tópico de Lou Melo em Microsoft Office e similares
Seu arquivo está protegido com restrições a edição. Envie a senha ou reenvie outro arquivo. -
Menu fixo no Excel (sem congelar painel)
Basole respondeu ao tópico de Ingo M P Américo em Microsoft Office e similares
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 -
Outro Como diminuir níveis de uma pasta no windows?
Basole respondeu ao tópico de Lucas Hoepfner em Programação - outros
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 -
Outro Como diminuir níveis de uma pasta no windows?
Basole respondeu ao tópico de Lucas Hoepfner em Programação - outros
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 -
Outro Como diminuir níveis de uma pasta no windows?
Basole respondeu ao tópico de Lucas Hoepfner em Programação - outros
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 -
Como Multiplicar um PROCV no google sheets
Basole respondeu ao tópico de Amanda Ávila em Microsoft Office e similares
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: -
Como Multiplicar um PROCV no google sheets
Basole respondeu ao tópico de Amanda Ávila em Microsoft Office e similares
Aqui pra mim está normal. voce tentou desta forma abaixo, no google sheets ? =VLOOKUP(C86;B100:C102;2;0)*C4 -
Excel VBA Verificar URL sem abrir página
Basole respondeu ao tópico de Crafteribanez em Microsoft Office e similares
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 -
Retornar o último valor de um nome
Basole respondeu ao tópico de Maikel Andrey em Microsoft Office e similares
Experimente usar procv + máximo. Ex.: =PROCV(MÁXIMO(A:A);A:C;3;0) -
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
-
VBA - Impedir que insira nomes já cadastrados
Basole respondeu ao tópico de diego_janjao em Microsoft Office e similares
@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. -
quero registra o sistema feito a uma maquina
Basole respondeu ao tópico de Gilliard Pacheco em Microsoft Office e similares
Pesquise aqui no forum. Eu mesmo postei a algum tempo atrás um exemplo. -
VBA - Impedir que insira nomes já cadastrados
Basole respondeu ao tópico de diego_janjao em Microsoft Office e similares
Desculpe, não considerei essa possibilidade: Segue o anexo corrigido. PAM GUT 2017 form_3.zip -
Proteger código VBA em planilha excel.
Basole respondeu ao tópico de jlrdasilva em Microsoft Office e similares
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. -
VBA - Impedir que insira nomes já cadastrados
Basole respondeu ao tópico de diego_janjao em Microsoft Office e similares
Eu alterei e agora esta atendendo ao cancelamento do corretor ortográfico. PAM GUT 2017 form_2.zip -
quero registra o sistema feito a uma maquina
Basole respondeu ao tópico de Gilliard Pacheco em Microsoft Office e similares
Sim, estou justamente me referindo a fazer isso com VBA. -
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.
-
VBA - Impedir que insira nomes já cadastrados
Basole respondeu ao tópico de diego_janjao em Microsoft Office e similares
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. -
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
-
VBA - Impedir que insira nomes já cadastrados
Basole respondeu ao tópico de diego_janjao em Microsoft Office e similares
@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 -
Análise de dados de relatório (ex: repetição de dados)
Basole respondeu ao tópico de Bokartner em Microsoft Office e similares
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 -
VBA Exel - Código para enviar por email dois Ranges de uma mesma planilha
Basole respondeu ao tópico de Laaariii em Microsoft Office e similares
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