Ir para conteúdo
Fórum Script Brasil

Alyson Ronnan Martins

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    831

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Alyson Ronnan Martins postou

  1. Alyson Ronnan Martins
    Boa notie @felipelima108 Deixa ver se eu entendi a lógica é para olhar a A3 se é igual a E1 se sim colar valores na B3?(assim descendo em cada linha?)
  2. Alyson Ronnan Martins
    Boa tarde. Esse HTML É de seu projeto? Ss sim seria necessário colocar algo que identifique a área que vai ser modificada exemplo: uma div que tem dentro o texto que pode ser alterado sendo que essa div tenha um ID. Se não vou procurar algum que consiga identificar.
  3. Alyson Ronnan Martins
    Boa noite. Se pretende mudar html o javascript consegue alterar. <body> <h4 style="background-color: #bd1717; border: 2px solid #bd1717; border-radius: 15px; display: inline-block; padding: 15px 30px; margin:20px;"><i class="icon-mobile"></i><span><a href="tel:+351939708658"> 939 708 658</a></span></h4><h4 style="background-color: #bd1717; border: 2px solid #bd1717; border-radius: 15px; display: inline-block; padding: 15px 30px; margin:20px;"><i class="icon-call"></i></i><span><a href="tel:+351211560539"> 211 560 539</a></span></h4> <script> var t = document.querySelector("body").innerHTML; var v = t.replace(/<h4/gi, '<p').replace(/<\/h4>/gi, '<\/p>'); document.querySelector("body").innerHTML = v; </script> </body> Ele vai pegar uma área e fazer alteração dos elementos, como não sei como é sua estrutura eu coloquei o body para ver os elementos internos e fazer alteração
  4. Alyson Ronnan Martins
    É uma alteração dinamica? Tipo colocar um botão e mudar esse conteudo?
  5. Alyson Ronnan Martins
    Boa noite @Yuri Da Costa Garcia Primeiro eu coloquei uma função achar a linha na planilha: Public Function fPesquisarCEP(CEP As Long) As Long On Error GoTo Pulo Dim s As Worksheet Dim r As Long Set s = Sheets("Bco_CEPs") r = Application.WorksheetFunction.Match(CEP, s.Range("A:A"), 0) fPesquisarCEP = r Exit Function Pulo: r = 0 Resume Next End Function Se e a função retornar maior que 0 ele vai pegar os valores da linha e colocar no furmulário: Public Sub cPesquisaCEP(r As Long) Dim s As Worksheet Set s = Sheets("Bco_CEPs") If r = 0 Then formCadastrar.txtUF.Value = "" formCadastrar.txtCidade.Value = "" formCadastrar.txtBairro.Value = "" formCadastrar.txtRua.Value = "" Else formCadastrar.txtUF.Value = s.Cells(r, "B").Value formCadastrar.txtCidade.Value = s.Cells(r, "C").Value formCadastrar.txtBairro.Value = s.Cells(r, "D").Value formCadastrar.txtRua.Value = s.Cells(r, "E").Value End If End Sub O comando foi testado no buscar o CEP: Private Sub btCEP_Click() Dim CEP As Long Dim r As Long CEP = CLng(Replace(txtCEP.Value, "-", "")) If fPesquisarCEP(CEP) > 0 Then ' Colocar os campos r = fPesquisarCEP(CEP) cPesquisaCEP (r) Else formCeps.Show End If End Sub Link do Arquivo Excel
  6. Alyson Ronnan Martins

    <<<

    pergunta respondeu ao Rita de Cássia de Alyson Ronnan Martins em PHP

    Show
  7. Alyson Ronnan Martins
    Boa tarde @Yuri Da Costa GarciaTem a maneira fácil e a maneira difícil. Você tenhecimento básico se vba ou apenas excel?
  8. Alyson Ronnan Martins
    Boa noite @tatiane.bath Tenta trocar o "=" por "," (virgula) no push array: array_push($formacao, array(array('inicio' => $_POST['ano'])));
  9. Alyson Ronnan Martins
    Boa noite @mariojaa Seria algo dessa maneira? Public Sub cPesquisa(Data As String) Const LDATAS As Long = 2 Const CNOMES As Long = 1 Const PTEXTO As String = "Y" If Data = "" Then Exit Sub Dim convData As Long convData = Day(CDate(Data)) Dim uColDatas As Long Dim c As Long uColDatas = Cells(LDATAS, Columns.Count).End(xlToLeft).Column uLinUsuar = Cells(Rows.Count, CNOMES).End(xlUp).Row fUsuarios.ListBox1.Clear For c = 2 To uColDatas If Cells(LDATAS, c).Value = convData Then For l = 3 To uLinUsuar If Cells(l, c).Value = PTEXTO Then fUsuarios.ListBox1.AddItem fUsuarios.ListBox1.List(fUsuarios.ListBox1.ListCount - 1, 0) = Cells(l, CNOMES).Value 'Debug.Print Cells(l, CNOMES).Value End If Next l End If Next c End Sub
  10. Alyson Ronnan Martins
    Boa tarde @ForceOne Eu não testei seu código porêm é possivel fazer de outra maneira: ... 'Seu código uLinhas = s.cells(rows.count, "E").end(xlup).row 'Agora é feita a seleção s.range("E3:E" & uLinha).select
  11. Alyson Ronnan Martins
    Boa tarde @glhrdias olha se esse código te atende: Sub ListAllFilesInAllFolders() Dim MyPath As String, MyFolderName As String, MyFileName As String Dim i As Integer, F As Boolean Dim objShell As Object, objFolder As Object, AllFolders As Object, AllFiles As Object Dim MySheet As Worksheet On Error Resume Next '************************ 'Select folder Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(0, "", 0, 0) If Not objFolder Is Nothing Then MyPath = objFolder.self.Path & "\" Else Exit Sub 'MyPath = "G:\BackUp\" End If Set objFolder = Nothing Set objShell = Nothing '************************ 'List all folders Set AllFolders = CreateObject("Scripting.Dictionary") Set AllFiles = CreateObject("Scripting.Dictionary") AllFolders.Add (MyPath), "" i = 0 Do While i < AllFolders.Count Key = AllFolders.keys MyFolderName = Dir(Key(i), vbDirectory) Do While MyFolderName <> "" If MyFolderName <> "." And MyFolderName <> ".." Then If (GetAttr(Key(i) & MyFolderName) And vbDirectory) = vbDirectory Then AllFolders.Add (Key(i) & MyFolderName & "\"), "" End If End If MyFolderName = Dir Loop i = i + 1 Loop 'List all files For Each Key In AllFolders.keys MyFileName = Dir(Key & "*.*") 'MyFileName = Dir(Key & "*.PDF") 'only PDF files Do While MyFileName <> "" AllFiles.Add (Key & MyFileName), "" MyFileName = Dir Loop Next '************************ 'List all files in Files sheet For Each MySheet In ThisWorkbook.Worksheets If MySheet.Name = "Files" Then Sheets("Files").Cells.Delete F = True Exit For Else F = False End If Next If Not F Then Sheets.Add.Name = "Files" 'Sheets("Files").[A1].Resize(AllFolders.Count, 1) = WorksheetFunction.Transpose(AllFolders.keys) Sheets("Files").[A1].Resize(AllFiles.Count, 1) = WorksheetFunction.Transpose(AllFiles.keys) Set AllFolders = Nothing Set AllFiles = Nothing End Sub
  12. Alyson Ronnan Martins
    Olha se eu consegui entender seu projeto: for i = 1 to 1200 Range("D" & i).formula = "=Procv(C" & i & ";DADOS!$C$2:$AE$3500;9;VERDADEIRO)" next i O código acima vai passar por 1200 linha e preencher a fórmula. Mais a sua planilha vai ficar pesada. O recomendado é preencher apenas o resultado de cada linha usando o vlookup, mais precisa saber se é a formula ou o resultado que você precisa)
  13. Alyson Ronnan Martins
    Bom dia @adrsublimacao Eu recomendo você usar o Ajax porque você vai poder fazer uma atualizar apenas do campo que quer mudar. Exemplo da lógica : Ao alterar o campo de categoria você faz uma chamada em php, em Post, para pegar as lista de subcategoria. Olha se conseguiu entender.
  14. Alyson Ronnan Martins
    Bom dia @dcantere Teria como um arquivo para fazer o teste e te ajudar maia rápido?
  15. Alyson Ronnan Martins

    <<<

    pergunta respondeu ao Rita de Cássia de Alyson Ronnan Martins em PHP

    Bom dia @Rita de Cássia! Teria como uma foto do seu projeto aberto no navegador.
  16. Alyson Ronnan Martins

    <<<

    pergunta respondeu ao Rita de Cássia de Alyson Ronnan Martins em PHP

    Estranho que acabei de testar e esta funcionando;
  17. Alyson Ronnan Martins
    Boa tarde @Ademir Spitzer. Para ter certeza de como ajudar, poderia enviar uma foto problema? Acho que seus campos estão em "grade".
  18. Alyson Ronnan Martins
    Ai é complicado, pois é um trabalho de mineração na internet. Eu fix uma pesquisa e encontrei sites que tem sistema para demonstração e sistemas que tem um grande painel administrativo. Porém só você testando para saber seu cliente vai aprovar. https://www.purplepier.com.br/sistema-de-classificados https://www.vipcomsites.com.br/script-de-classificados Pesquisa realizado: plataforma classificados Claro que pode ter mais opções.
  19. Alyson Ronnan Martins
    Boa noite @lukets123 Eu não encontrei nem lembro de nada que faça isso no access. O que é possível fazer é criar essa formula (criar uma função) que faça o mesmo cálculo. Se você conhecer como o cálculo é feito da para fazer: A respeito de utilizar expressões no access é possível através de consulta, então toda vez que você precisa fazer calculos em dados nós usamos uma consulta para isso.
  20. Alyson Ronnan Martins
    Boa noite! Eu fiz a alteração do código para planilha dados e funcionou o filtro: porém esse filtro selecionado em cima deveria ser as colunas ou são as linhas da coluna A?
  21. Alyson Ronnan Martins
    Boa noite @Thais Giraldi. Sim é possível posta um exemplo de formulário (com dados fictícios para ajudarmos no seu código).
  22. Alyson Ronnan Martins
    Esse três campos estão pegando os campos da planilha Relatório Qual a planilha que você pegar os campos? (já que essa relatórios não existe)
  23. Alyson Ronnan Martins
    Boa noite @Pedro Miguel Gomes Quando fui testar seu código deu esse erro: Esse é o problema?
  24. Alyson Ronnan Martins
    Boa tarde @Camila Faleiros Mude o seguinte item. ActiveCell.Value = "... Sobre Nome ..." Quando o campo que deve ser alterado é tipo texto (string) deve ter aspas para não gerar erro. Eu só vi isso de estranho, apesar de não usar offset para mudar de campo no vba.
  25. Alyson Ronnan Martins
    Eu já trabalhei com pagamentos automatizados usando o pague seguro. Eles tem uma api para você desenvolver verificar pagamentos automático. Porêm quando se fala de boleto ai teria que fazer um outro processo para seu sistema ficar consultando (ou alguém ficar enviando a solicitação de verificação). Quando você tem a ideia de ficar dando problema recomendo comprar uma plataforma pronta ou alugar (pois tem suporte).
×
×
  • Criar Novo...