Ir para conteúdo
  • Cadastre-se

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.

Conheça as novidades de 2019 para o BABOO e Fórum do BABOO

EdsonBR

  • Postagens

    20
  • Desde

  • Última visita

  • Days Won

    2

EdsonBR venceu no dia Agosto 29 2018

Seu conteúdo teve mais votos "Gostei" neste dia!

Como me contatar

  • URL do site ou blog
    N/A
  • LinkedIn
    https://br.linkedin.com/in/edson-luiz-branco
  • Facebook
    N/A
  • Twitter
    N/A
  • Google+
    N/A

Perfil

  • Estado
    Santa Catarina
  • Sexo
    masculino
  • Escolaridade
    Superior completo
  • Área Profissional
    Engenharia
  • Nível Profissional
    Profissional curso superior

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

  1. EdsonBR

    Como resolver este problema de Formataçäo no WORD?

    Boa noite, @Keke_NH_RS. Verifique como ficaram os códigos de campo de seu documento, teclando ALT F9 para ver se não há nenhuma inconsistência. Senão, anexe seu documento aqui para que possamos dar uma olhada...
  2. Tens razão, @Patropi, fui desatendo e acabei nem analisando todas as respostas já dadas...
  3. Mais uma maneira: =SE(E10>E8;"VIGENTE: Há ";"VENCIDO: Há ") & DATADIF(MÍNIMO(E8;E10);MÁXIMO(E8;E10);"Y") & " ano(s) " & DATADIF(MÍNIMO(E8;E10);MÁXIMO(E8;E10);"YM") & " mês(es) "& "e " & DATADIF(MÍNIMO(E8;E10);MÁXIMO(E8;E10);"MD") & " dia(s)."
  4. EdsonBR

    Planilha de Vendas por Cartão de Credito/débito

    @Patropi "Mitou" neste tópico. Parabéns!
  5. EdsonBR

    GANTT EXCEL

    Bom dia, @jsbernardo O site do Guia do Excel tem uma pra download: "Gráfico de Gantt no Excel" Mas se quer um conselho se você usará de forma profissional vale a pena investir no Microsoft Project, já que é um software específico e já consolidado para essa finalidade: trabalhar com cronograma (prazos), custos e recursos de projetos/obras.
  6. EdsonBR

    Imagens Excel

    Bom dia, jsbernardo Use a tecla ALT enquanto arrasta a figura próximo aos cantos de uma célula e também ao arrastar as alças para redimensionar. Se forem muitas figuras, daria pra fazer via código, mas aí é necessário especificar completamente o problema sabendo previamente onde as imagens seriam inseridas.
  7. EdsonBR

    Word configuração entre linhas

    Marcio, anexe o arquivo .docx aqui para tentarmos avaliar.
  8. O código que você me enviou no privado infelizmente não rodou: o ResponseText do objHTTP retorna o seguinte conteúdo: "Error detected by Application Firewall. Please contact support if you have any questions." Mesmo copiando a URL gerada no código e colando no navegador, também não abre a página, dá esse erro... você usa alguma API instalada na máquina?
  9. Mas afinal, você quer o valor após TotalPedagioDescricao como no 1º Pots ou após TotalPedagio como no últtimo? Até porque o TotalPedagioDescricao já tem como separador decimal a vírgula, nem precisaria do replace depois. Bem, eu tinha já feito um teste com o texto q você anexou no início e com as solicitações iniciais e tinha funcionado com o código q passei (logicamente sem a parte que pega os dados da internet). Sem ter os outros parâmetros de acesso ao conteúdo do site fica ruim pra testar.
  10. Uma ideia poderia ser: Sub ObtemTotalPedagio() Dim RespostaSite As String, tmpVal As String '...código para obter o texto da página... RespostaSite = objHTTP.responseText With CreateObject("VBScript.RegExp") .Global = False .Pattern = "@TotalPedagioDescricao@:@R\$\s?([\d\.]+,\d{2})@" .Pattern = Replace(.Pattern, "@", """") If .test(RespostaSite) Then tmpVal = .Execute(RespostaSite)(0).SubMatches(0) End With MsgBox tmpVal End Sub
×