Alyson Ronnan Martins

Boa noite @CLEONICE R. PEREIRA OLEIRO Não lembro de ter passado por esse erro, porém dei uma pesquisada e encontrei isso https://stackoverflow.com/questions/44529532/excel-run-time-error-1004-in-advanced-filter que mostra que ao detalhas a planilha que esta fazendo a consulta passa do erro. Tenta ai.

Bom vamos dividir o problema em partes: Valores por extenso: Public Function EscrevePorExtenso(ByVal n As Double) As String Unid = Array("", "Um", "Dois", "Três", "Quatro", "Cinco", _ "Seis", "Sete", "Oito", "Nove", "Dez", "Onze", "Doze", _ "Treze", "Quatorze", "Quinze", "Dezesseis", "Dezessete", _ "Dezoito", "Dezenove", "Vinte") Dezen = Array("", "Dez", "Vinte", "Trinta", "Quarenta", _ "Cinquenta", "Sessenta", "Setenta", "Oitenta", "Noventa") Centen = Array("", "Cento", "Duzentos", "Trezentos", _ "Quatrocentos", "Quinhentos", "Seiscentos", _ "Setecentos", "Oitocentos", "Novecentos", "Mil") Num = n Escr = "" If n = 0 Then Escr = "Zero" End If If (n \ 1000) > 0 And n \ 1000 < 10 Then Escr = Unid(n \ 1000) & " Mil " End If n = n - (n \ 1000) * 1000 If n > 100 Then Escr = Escr & Centen(n \ 100) End If If n = 100 Then Escr = Escr & " Cem" GoTo Prossiga End If n = n - (n \ 100) * 100 If n >= 20 And n < 100 Then Escr = Escr & " " & Dezen(n \ 10) End If If n > 0 And n < 20 Then Escr = Escr & " " & Unid(n) GoTo Prossiga End If n = n - (n \ 10) * 10 If n > 0 Then Escr = Escr & " " & Unid(n) End If Prossiga: If Num Mod 10 <> 0 Then If InStr(1, Escr, "Vinte", 1) = 0 Then If InStr(1, Escr, "Trinta", 1) = 0 Then If InStr(1, Escr, "enta", 1) > 0 Then Escr = Application.Substitute(Escr, "enta", "enta e ") End If End If End If End If If Num Mod 10 <> 0 Then If InStr(1, Escr, "Vinte", 1) > 0 Then If InStr(1, Escr, "Trinta", 1) = 0 Then If InStr(1, Escr, "enta", 1) = 0 Then Escr = Application.Substitute(Escr, "Vinte", "Vinte e ") End If End If End If End If If Num Mod 10 <> 0 Then If InStr(1, Escr, "Vinte", 1) = 0 Then If InStr(1, Escr, "Trinta", 1) > 0 Then If InStr(1, Escr, "enta", 1) = 0 Then Escr = Application.Substitute(Escr, "Trinta", "Trinta e ") End If End If End If End If If Num Mod 100 <> 0 Then If InStr(1, Escr, "ento", 1) > 0 Then Escr = Application.Substitute(Escr, "Cento", "Cento e ") End If End If If Num Mod 100 <> 0 Then If InStr(1, Escr, "entos", 1) > 0 Then Escr = Application.Substitute(Escr, "entos", "entos e ") End If End If If Num Mod 1000 <> 0 Then If (Num - (Num \ 1000) * 1000) <= 100 Then If InStr(1, Escr, "Mil", 1) > 0 Then Escr = Application.Substitute(Escr, "Mil", "Mil e ") End If End If End If End Function Fonte: tomasvasquez

@Ronaldo Simões eu já tive esse problema em office que tinha alguma arquivo corrompido, depois de desinstalar e instalar novamente eu consegui fazer a implementação na planilha (pior que já encontrei casos que só formatando o windows). Tenta recriar os comando ou exporta os formulários e módulos e tentar em outro computador caso tenha como testar.

Boa noite @hugopatriota! Olhando seu código pensei na seguinte solução: ... While Planilha1.Cells(linha, 1).Value <> "30/02/2021" 'Condição: não aceitar letras if TypeName(Planilha1.Cells(linha, "B").Value) = "String" or _ TypeName(Planilha1.Cells(linha, "C").Value) = "String" then debug.print "Linha não processada: " & x Else valor1 = CDbl(Planilha1.Cells(linha, "B").Value) valor2 = CDbl(Planilha1.Cells(linha, "C").Value) 'se a data da coluna 1 estiver entre a dataInicia e dataFinal' If CDate(Planilha1.Cells(linha, 1).Value) >= dataInicial And CDate(Planilha1.Cells(linha, 1)) <= dataFinal Then 'somar valores' soma = soma + valor1 + valor2 End If End if 'passa para a proxima linha' linha = linha + 1 Wend ...

Boa tarde @luigginasser! Posso ajudar teria como dar mais detalhes como quer fazer essa tabela?

Boa tarde @Luiz Antonio Pereira Eu li seu código porém não entendi aonde esta a segunda coluna que esta procurando, teria como enviar via google drive um arquivo de texto para ser exemplo e seu macro VBA para simular e entender melhor qual dado não esta indo? Pode informar valores fictícios apenas para estudo do código.

Boa tarde @ORABELO35 Tenta usar o evento "Change" no campo que esta fazendo alteração da data e coloca "Unload Me" para fechar o formulário.

Boa tarde, qual linha que está gerando o erro? Pode utilizar o F8 para executar o código linha a linha

@Albano Netto bom dia. Eu já encontrei vários problemas usando data então comecei a colocar ela como "Double" Então recomendo o seguinte: Dim linha1 As Date 'Para Dim linha1 as Double E toda vez que for pegar o valor de uma planilha coloca .Valeu linha1 = Range("A" & linha) 'Para linha1 = Range("A" & linha).Value Else tem mais locais aonde você pega o valor.

Show.

Sem ver sua pagina esta complicado de entender, você poderia subir seu projeto no GitHub ou disponibilizar ele para download (usando dados fictícios) para testar?

Qualquer coisa manda aqui no forum... Recomendo estudar access, bem mais simples para quem esta iniciando

Bom dia. Eu conseguir fazer um teste com o seguinte código: Dim secao As String If formulario.OptionButton1.Value Then secao = formulario.OptionButton1.Caption ElseIf formulario.OptionButton2.Value Then secao = formulario.OptionButton2.Caption ElseIf formulario.OptionButton3.Value Then secao = formulario.OptionButton3.Caption ElseIf formulario.OptionButton4.Value Then secao = formulario.OptionButton4.Caption ElseIf formulario.OptionButton5.Value Then secao = "*" Else secao = "*" 'Já tentei incluir mais condições, porém o filtro sempre busca os dados da seção I ou II End If E fiz um grupo nos botões: Estou subindo o arquivo e já disponibilizo no email

Você pode subir o arquivo no Google Drive e mandar o link para ter acesso.

Bom dia. Vou tentar simular porém seria bom deixar um arquivo com dados fictícios assim podemos ver melhor seu código.

Bom dia. No meu VSCode tem o seguinte:

Você deve ter desativado algum plugin do Visual Studio ou instalado algum que não esta deixando ativar o emmet. Manda uma foto dos plugins que estão instalados no seu VSCode. No caso da pagina só vendo seu código para saber porque a formatação não esta funcionando.

Creio que não entendi direto, ele não esta funcionando o auto completar "emmet" ou a sua pagina não esta fazendo efeito no seu código.?

Teria como mandar as informações de variáveis que você esta usando junto com o início do seu comando tipo: Sub Teste() Dim rg As Range Set rg = Nothing rg.Select End Sub

Teria que pensem bem devagar a "lógica" porque o funcionário pode ter 6 batidas (quando pede uma saída com retorno) porém se não tiver pesando nisso creio que um procv com índice pensando o 1º maior em diante daria para localizar. Coloca os dados, fictícios claro, para simular como ficariam em fórmula e vba.

@Edivaldo Lins Macedo não entendi bem sua ideia. Mais eu trabalho com relacionamentos de dados nas tabelas para que as informações serem condicionados ao registro anterior.

Teria como olhar seu projeto "sem dados" para ver como esta usando a função atualizar/editar?

@ozzytremere boa tarde, Também passei por esse problema e maneira que tive para solucionar o pagamento foi quase a mesma que a sua. Explicando mais ou menos o que eu fiz foi: Ter apenas uma tabela para o pagamento e dívida. sendo que o valor "dívida" assim enquanto o valor da forma de pagamento não foi zero eu não libero o próximo passo de estoque. Função para verificar o total de "movimentação" assim sendo zero liberar a próxima etapa.

Em relação ao erro do ChangeFileOpenDirectory tenta usar o ChDir

Bom dia @Sabrina Beppler, Eu coloquei o código no meu excel e encontrei um falha na compo em vermelho: Seu código: ... 'save to .docx and customize the file name to the line that was read ActiveDocument.saveAsFixedFormat OutputFileName:= _ "\\BEPLER-PC\Users\Bepler\Desktop\aqui\Termos\Máscaras" & TextoProximaLinha & ".docx" _ , saveFormat:=wdsaveFormat.docx, OpenAftersave:=False, OptimizeFor:= wdsaveOptimizeForPrint , Range:=wdsaveAllDocument, From:=1, To:=1, _ Item:=wdsveDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=wdsaveCreateNoBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False ... Correção: ... 'save to .docx and customize the file name to the line that was read ActiveDocument.saveAsFixedFormat OutputFileName:= _ "\\BEPLER-PC\Users\Bepler\Desktop\aqui\Termos\Máscaras" & TextoProximaLinha & ".docx" _ , saveFormat:=wdsaveFormat.docx, OpenAftersave:=False, OptimizeFor:= _ wdsaveOptimizeForPrint, Range:=wdsaveAllDocument, From:=1, To:=1, _ Item:=wdsveDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ CreateBookmarks:=wdsaveCreateNoBookmarks, DocStructureTags:=True, _ BitmapMissingFonts:=True, UseISO19005_1:=False ... Na quarta linha faltou o "_" underline para que a linha debaixo junte a de cima. Olha se vai funcionar agora.