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

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

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)

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.

Bom dia @dcantere Teria como um arquivo para fazer o teste e te ajudar maia rápido?

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

Estranho que acabei de testar e esta funcionando;

Boa tarde @Ademir Spitzer. Para ter certeza de como ajudar, poderia enviar uma foto problema? Acho que seus campos estão em "grade".

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.

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.

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?

Boa noite @Thais Giraldi. Sim é possível posta um exemplo de formulário (com dados fictícios para ajudarmos no seu código).

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)

Boa noite @Pedro Miguel Gomes Quando fui testar seu código deu esse erro: Esse é o problema?

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.

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).

Não é o seu email. Gmail que mandei o projeto?

Bom dia @astrahvh Consigo sim ajudar. Imagino que o login seja ativado quando o usario debita o crédito, nesse caso você criaria uma tavela para usuarios ativos e ao logar verifica na tabela se esta ativo ou não. Claro que teria que fazer o evento colocar na tabela "usuarios ativos" e depois na tabela definir como falso quando o usuario logar.

Boa tarde @Souzahor Seria algo dessa maneira? Eu criei o seguinte código que vai percorrer por todas as colunas criadas: ... For i = 1 To 15 Step 1 Controls("Qtd" & i).Value = DSum("Quantidade", "Pedidos_Em_Carteira", "Produto = " & Me.Produto & " AND [Data Entrega] = " & CDbl(CDate(Controls("D" & i).Value))) Next i ... Na formula DSum ou DSoma(usando o access mesmo) dá para fazer igual ao Somases do excel assim coloquei dois critérios para pesquisa (Produto e Data de Entrega). Claro que para ter duas colunas eu criei mais um registro na tabela mostrando a coluna extra: Eu fiz outra alteração do código completo: É dessa maneira?

Pesquisando sobre o assunto, sim é uma ferramenta para o biscador do Bing. <meta name="msvalidate.01" content="4BE9A236252D15311B31D1EA103EE632" /> Assim que eeta no seu?

Boa tarde @thiago ff rocha Teria como mandar uma foto do valores e de como você quer que fique?

Bom dia. Você pode colocar no onedrive ou google drive e colocar o link aqui no fórum ou mandar no email alysonronnan@gmail.com

Boa tarde @Souzahor Teria como mandar o arquivo acesse com valores fictício para enter melhor como fez o formulário? Parece ser tabel dinámica porem não estou compreendendo como esta distribuindo as colunas (eu usaria soma se do access, no caso das colunas serem fixas).

Boa tarde @Marcelo Vieira da Silva Para evitar os erros com o offset eu uso a seleção direta. O seu macro é para selecionar a ultima celula vazio e colar valores?

Bom dia @André Marino. Eu recomendo você da uma pesquisada em fazer conexão via json. Ele faz exatamente o que precisa, manda os dados para o php e retornar esses dados via javascript. Ai você faz a sua pagina alterar conforme a resposta do php. Olha se consegue, se não seria importante mandar um exemplo da sua pagina para fazer um código dela.