R0DR1G0_CWB

Não vejo problemas na sua macro, para o propósito dela está funcionando perfeitamente.

Em questão da soma não tem como dar zero mesmo, pois quando você somar por exemplo -2 +2 dá 0... mas se você somar -2 + -2 o resultado será o -4, ou seja para a soma da coluna igualar a 0, será necessário tratar boa parte dos valores.

Olá,

Realmente irá ocorrer esse erro.

você deve fazer os cálculos dos impostos separadamente, e assim compor o resultado da NF.

Veja se é o que você precisa. Formula.xlsx

Questão resolvida.

Para quem passar pela mesma situação eu estava errando na sintaxe da biblioteca utilizada do Microsoft Internet Controls.

A forma correta é:

        For Each i In ie.Document.body.getElementsByTagName("span")
          If i.className = "valor h6" Then
            vlr = i.innerText
            Range("C" & cont).Value = vlr
          End If
        Next i

Boa tarde,

Não sei se entendi direito o que você quer, mas você pode resolver seu problema com um "SE".

=SE(CÉLULA1-CÉLULA2=0;"Ok";"Erro")

Mais tarde, te mando como ficaria em vba

Não entendi por que isso ocorreu.

Mas altere no código onde está o if.

De:

If verifica = "a" Then 
     Rows(CStr(cont) & ":" & CStr(cont)).Select
     Selection.EntireRow.Hidden = True
End If

Para:

If verifica = "a" Then
      Rows(cont & ":" & cont).EntireRow.Hidden = True
End If

Até onde sei é a mesma coisa, porém aqui funcionou.

Bom dia,

O código ali em baixo irá realizar o que você precisa. no entanto sugiro que as linhas que você não que apareça contenha outro valor diferente de ="", por exemplo a letra a. Pois se manter a informação atual irá ocultar inclusive as linhas que intercalam as tabelas.

Por meio da formatação condicional você mantém as células que contenham o valor a com fonte e fundos na cor branco.

ocultar linhas com base em células específicas.zip

qual dúvida é só falar.

Sub OcultarLinhas()
Application.ScreenUpdating = False

    Dim UltimaLinha, cont  As Long
    Dim verifica As String
        
    UltimaLinha = Application.InputBox("Informe qual a ultima linha!")

    For cont = 3 To UltimaLinha
        verifica = Range("G" & cont).Value
        
        If verifica = "a" Then
            Rows(CStr(cont) & ":" & CStr(cont)).Select
            Selection.EntireRow.Hidden = True
        End If

    Next cont
    Range("A1").Select
    MsgBox "Concluído!"
End Sub

Bom dia,

Provavelmente esse post pode te ajudar...

Olá,

você utilizou as configurações de POP3? caso sim, não irá fazer a cópia mesmo.

Tente fazer com o servidor imap.

Nome do servidor IMAP imap-mail.outlook.com

Porta IMAP 993

Método de criptografia IMAP TLS

Nome do servidor SMTP smtp-mail.outlook.com

Porta SMTP 587

Método de criptografia SMTP STARTTLS

[]'s

Não vou conseguir analisar agora, após eu sair do trabalho vejo para você, mas tente nessa parte...

ExecQuery ("Select * from Win32_PingStatus Onde Address = '" & Host & "' -a")

só uma dúvida, via prompt está funcionando normalmente correto?

Não é necessário de botões, esse código cria uma nova função para o Excel.

Veja o exemplo em anexo.Ping Excel.zip

Boa tarde,

Meu dilema persiste, rsss.

Ajustei o código para:

For Each i In ie.Document.body.getElementsByClassName("valor h6")
     vlr = i.getElementsByClassList("valor h6").classList.Item(2).innerText
     Range("C" & cont).Value = vlr
Next i

Mesmo com essa alteração, permanece gerando o erro 438.

[]'s

Bom dia,

Veja se esse código te ajuda.

Public Function GetPingResult(Host)
On Error GoTo ErrTrap
Dim objPing     As Object
Dim objStatus   As Object
Dim strResult   As String
Dim msg As String

   Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
       ExecQuery("Select * from Win32_PingStatus Where Address = '" & Host & "'")

   For Each objStatus In objPing
      GetPingResult = objStatus.ProtocolAddress
   Next

ExitProcedure:
    On Error Resume Next
    Set objPing = Nothing
    Set objStatus = Nothing
    Exit Function
    
ErrTrap:
    Select Case Err.Number
        Case Is <> 0
            GetPingResult = Err.Description
            Resume ExitProcedure
        Case Else
            Resume ExitProcedure
    End Select
    
End Function

Nesse exemplo você coloca os IP's desejados em uma célula, e utiliza a fórmula criada "=GetPingResult(célula)"

Boa tarde,

Acredito que esse código pode te ajudar.

Sub Imprimir()

    Application.ScreenUpdating = False

    If Worksheets("Planilha1").Cells(1, 1).Value = "imprimir" Then
        Worksheets("Planilha1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
    
    If Worksheets("Planilha2").Cells(1, 1).Value = "imprimir" Then
        Worksheets("Planilha2").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
    
    MsgBox "Concluído!"
    
End Sub

[]'s

Bom dia,

Considerando apenas o trecho:

12 horas atrás, SAMUELLOPES disse:

retornar texto “P”, se presente nessa coluna, ou retornar o texto “A”, se não presente nessa coluna.

Sugiro você testar a seguinte fórmula:

=SE(SEERRO(PROCV(E4;ENTRADA;2;FALSO);"A")="A";"A";"P")

Caso não funcione, por favor, informe mais detalhes para lhe ajudarmos.

[]'s

Mesmo abandonado é bom ter a resposta.

A autora do post pode até não ver, porém a solução será útil para alguém que tenha a mesma dúvida.

[]'s

Boa tarde,

Ao invés de você utilizar as fontes para obter o visual desse "check", você pode usar a formatação condicional.

Fica na primeira guia do Excel em:

Pagina Inicial / Formatação Condicional / Conjunto de Ícones / Indicadores.

Para exibir da forma que você precise, provavelmente será necessário customizar as regras de formação, e é possível fazer isso em Pagina Inicial / Formatação Condicional /Gerenciar Regras...

[]'s

Bom dia,

Ainda não encontrei a solução para meu problema.

Apenas incluindo nova situação, acredito estar no caminho certo:

For Each i In ie.Document.body.getElementsByTagName("span")
    For Each j In ie.Document.body.getElementsByClassName("valor h6") 'até aqui esta rodando
          vlr = ie.Document.body.getElementsByClassName("valor h6").innerText 'aqui gera o erro 438 q citei acima
    Next j

Next i

Olá, via fórmula creio que não exista uma para contagem de caractere específico.

No entanto você pode fazer um pequeno "ajuste técnico", para não dizer gambiarra.

A formula abaixo irá apresentar a quantidade de "+", em sua soma.

Na célula A2, você cola:

=NÚM.CARACT(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(FÓRMULATEXTO(A1);"=";"");1;"");2;"");3;"");4;"");5;"");6;"");7;"");8;"");9;"");0;""))

Na célula A3 por exemplo você faz =A2+1

O porque desse +1?

No seu exemplo (15+2+3+4+8), são 4 sinais de +, sendo assim podemos presumir que é uma soma com 5 números.

Se for um outro exemplo, 15+2+3+4+8+10+900, irá apresentar 6 sinais de +, consequentemente a soma de 7 números.

Obs.: Não sei se existe uma forma mais prática de solucionar seu caso, mas foi no que pensei para te apoiar.

Boa tarde,

Não sei como criar esse array com as datas do mês vigente, porém sugiro você ter uma coluna a mais contento o número do mês por exemplo:

Janeiro = 1

Fevereiro = 2

.....

Dezembro = 12

Sendo assim, você pode identificar o valor do mês atual e realizar seu filtro.

Sub FuncMes()
Dim vlr	As Integer
vlr = Month(Date)

End Sub

Olá, boa tarde!

Fiquei meio confuso, mas vamos ver se posso te ajudar.

No exemplo anexo são exemplos fictícios correto? pois encontrei alguns casos onde o recebimento é maior que o valor vendido, por exemplo na venda 90317163.

Criei uma nova aba em seu arquivo com uma nova forma de ver esses mesmos dados.

Espero que te esclareça as idéias...

[]'s

Retorno de TESTE.xlsx

Olá, estou criando um crawler em vba para manter atualizado certas informações que busco manualmente.

Minha dúvida até que é simples. Estou fazendo o seguintes FOR:

For Each i In IE.Document.body.getElementsByTagName("span")

o i recebe o seguinte valor "[obejct HTMLSpanElement]"

Até aqui beleza, mas como na página existe vários "spans" encontrei a dificuldade de identificar qual eu preciso.

Página: https://www.ferramentaskennedy.com.br/busca?q=Tcs72Xp16At

Com o apoio do Chrome vejo o seguinte:

No código:

<span class="valor h6"> R$ 1.598,00 </span>

Demais infos:

span.valor.h6

innerText: "R$ 1.598,00"

tentei fazer o FOR assim:

For Each i In IE.Document.body.getElementsByTagName("span.valor.h6")

Mas não localiza a informação e pula essa etapa.

Tentei também:

For Each i In IE.Document.body.getElementsByTagName("span").getAttributesByClassName("valor h6")

Que gera o erro:

Erro em tempo de execução '438'
O objeto não aceita esta propriedade ou método

Obs.: Não sou programador, apenas estou tentando agilizar o meu dia-a-dia.

Já visitei alguns sites e não encontro a resposta, agradeço quem puder me ajudar.