Ir para conteúdo
Fórum Script Brasil

Alyson Ronnan Martins

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    832

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Alyson Ronnan Martins postou

  1. Alyson Ronnan Martins
    Bom dia @leoamsousa! Tenta da seguinte maneira: Sub Cabecalho() Dim ws As Worksheet For Each ws In Worksheets ws.select Rows("1:2").Select Selection.Replace What:="Budget_2021\Budget_2021\[Template BGT 2021.xlsx", _ Replacement:="Budget_2022\Budget_2022\[Template BGT 2022.xlsx", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next End Sub
  2. 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?)
  3. 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.
  4. 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
  5. Alyson Ronnan Martins
    É uma alteração dinamica? Tipo colocar um botão e mudar esse conteudo?
  6. 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
  7. Alyson Ronnan Martins

    <<<

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

    Show
  8. 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?
  9. Alyson Ronnan Martins
    Boa noite @tatiane.bath Tenta trocar o "=" por "," (virgula) no push array: array_push($formacao, array(array('inicio' => $_POST['ano'])));
  10. 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
  11. 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
  12. 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
  13. 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)
  14. 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.
  15. Alyson Ronnan Martins
    Bom dia @dcantere Teria como um arquivo para fazer o teste e te ajudar maia rápido?
  16. 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.
  17. Alyson Ronnan Martins

    <<<

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

    Estranho que acabei de testar e esta funcionando;
  18. 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".
  19. 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.
  20. 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.
  21. 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?
  22. 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).
  23. 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)
  24. Alyson Ronnan Martins
    Boa noite @Pedro Miguel Gomes Quando fui testar seu código deu esse erro: Esse é o problema?
  25. 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.
×
×
  • Criar Novo...