Alyson Ronnan Martins

Boa tarde @Alex Pedrozo. Eu só conheco o VBA6, já vi algumas extensões para VBA6 que deixa ele mais moderno e xom mais funções (testei e gostei) porêm é um programa pago. Recomendo, se esta querendo evoluir sem deixar de programar VB, usar o Visual Studio. Nele você pode desenvolver em VB donmesmo jeito que faz no VB6 porêm de maneira mais moderna. Só baixar a versão de comunidade (gratuita)

E é assim. Mais parece que foi alterado mais coisas.

Ainda estou olhando o código kkkk.... No php eu alterei a validação porque não estava enviando as informações mesmo quando estava preenchidas no formulário: ... function validate($name,$email,$message) { $return_array = array(); $return_array['success'] = '1'; $return_array['name_msg'] = $name; $return_array['email_msg'] = $email; $return_array['message_msg'] = $message; ...

Boa noite. Abrir o seu código agora tentei usar ele. Você criou um "<a>" ancora para acionar a pagina que envio, porem que deveria esta acionando um envio deveria ser o botão. <form action="send_form_email.php" method="post" id="contactform"> <div> <label for="name">Seu nome</label> <input type="text" class="input-field" id="name" name="name" value=""> </div> <div> <label for="email">Seu email</label> <input type="text" class="input-field" id="email" name="email" value=""> </div> <div> <label>Sua mensagem</label> <textarea id="message" name="message"></textarea> </div> <a id="button-send" href="atendimento@optionmaker.com.br" title="Send Email" class="button" style="width:100%;">Send E-Mail</a> <div id="success">Sua mensagem foi enviada com sucesso!</div> <div id="error">Alguma problema no envio de sua mensagem, tente novamente.</div> </form> Depois que executei o código apareceu o erro 404 (pagina não encontrada) e isso é por que seu ancora esta direcionando para seu email e não uma página. Como foi desenvolvido o código original apenas do formulário de envio? Eu coloquei o botão de "submit" para obedecer o "send_form_email.php" do seu código: <button type="submit">Sendo E-Mail</button> </form> ai ele me retornou a seguinte informação: Isso mostra que o seu formulário não esta retornando informações para o send_form_email.php

Só vou poder as 18:40 se tiver como me mandar dm ou lembrar.

Boa tarde @Option Maker uma duvida sobre testes. (Esrou longe do pc mais quem sabe eu posso te dar uma ajuda). Você fez o seu PHP mandar um email? Se não tentar deixar os dados preenchidos em variaveis e coloca a pagina para enviar. Se sim. Antes de enviar as informações na funcão PHP tenta exibir elas (usando echo mesmo) só para vee se os dados coletados do HTML estão corretos.

Bom dia @Victor Cavalcante Da sim, porêm para dazer isso você precisar passar uma informação. A linha da coluna C é mudada, tipo ela uma hora pode ficar na linha 7 depois na linha 3? Se sim: Precisar fazer um condicional para encontrar a linha. For x = 1 ulinha step 1 ... condicão para alterar ... da coluna A e B ... alterar linha cells(x, "C").value = userform1!textbox1.value Next x Se não: vou presumir que a linha que deve ser alterada é a 2 cells(2, "C").value = userform1!textbox1.value

Boa tarde! Eu vi que colocou no tópico office porém o que planeja fazer é uma macro(VBA)?

Boa tarde. Como assim configurar, a instalação do xampp não exige configuração porêm qual a sua dúvida exatamente?

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) &gt; 0 And n \ 1000 &lt; 10 Then Escr = Unid(n \ 1000) &amp; " Mil " End If n = n - (n \ 1000) * 1000 If n &gt; 100 Then Escr = Escr &amp; Centen(n \ 100) End If If n = 100 Then Escr = Escr &amp; " Cem" GoTo Prossiga End If n = n - (n \ 100) * 100 If n &gt;= 20 And n &lt; 100 Then Escr = Escr &amp; " " &amp; Dezen(n \ 10) End If If n &gt; 0 And n &lt; 20 Then Escr = Escr &amp; " " &amp; Unid(n) GoTo Prossiga End If n = n - (n \ 10) * 10 If n &gt; 0 Then Escr = Escr &amp; " " &amp; Unid(n) End If Prossiga: If Num Mod 10 &lt;&gt; 0 Then If InStr(1, Escr, "Vinte", 1) = 0 Then If InStr(1, Escr, "Trinta", 1) = 0 Then If InStr(1, Escr, "enta", 1) &gt; 0 Then Escr = Application.Substitute(Escr, "enta", "enta e ") End If End If End If End If If Num Mod 10 &lt;&gt; 0 Then If InStr(1, Escr, "Vinte", 1) &gt; 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 &lt;&gt; 0 Then If InStr(1, Escr, "Vinte", 1) = 0 Then If InStr(1, Escr, "Trinta", 1) &gt; 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 &lt;&gt; 0 Then If InStr(1, Escr, "ento", 1) &gt; 0 Then Escr = Application.Substitute(Escr, "Cento", "Cento e ") End If End If If Num Mod 100 &lt;&gt; 0 Then If InStr(1, Escr, "entos", 1) &gt; 0 Then Escr = Application.Substitute(Escr, "entos", "entos e ") End If End If If Num Mod 1000 &lt;&gt; 0 Then If (Num - (Num \ 1000) * 1000) &lt;= 100 Then If InStr(1, Escr, "Mil", 1) &gt; 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: