R0DR1G0_CWB

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: 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.