Jump to content
Fórum Script Brasil

Alyson Ronnan Martins

Membros
  • Content Count

    630
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Alyson Ronnan Martins

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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.
  2. 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:+35121
  3. É uma alteração dinamica? Tipo colocar um botão e mudar esse conteudo?
  4. 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.Va
  5. Boa tarde @Yuri Da Costa GarciaTem a maneira fácil e a maneira difícil. Você tenhecimento básico se vba ou apenas excel?
  6. Boa noite @tatiane.bath Tenta trocar o "=" por "," (virgula) no push array: array_push($formacao, array(array('inicio' => $_POST['ano'])));
  7. 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 fUsua
  8. 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
  9. 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 & "\" El
  10. 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)
  11. 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.
  12. Bom dia @dcantere Teria como um arquivo para fazer o teste e te ajudar maia rápido?
  13. Bom dia @Rita de Cássia! Teria como uma foto do seu projeto aberto no navegador.
  14. Estranho que acabei de testar e esta funcionando;
×
×
  • Create New...