Ir para conteúdo

EdsonBR

  • Postagens

    20
  • Desde

  • Última visita

  • Days Won

    2

EdsonBR venceu no dia Agosto 29

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
×