Ir para conteúdo
Fórum Script Brasil

Alyson Ronnan Martins

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    847

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Alyson Ronnan Martins postou

  1. Alyson Ronnan Martins
    Vou agora tentar fazer um código para a mesma ideias em abas diferêntes
  2. Alyson Ronnan Martins
    Opa. Teria como me enviar a planilha?
  3. Alyson Ronnan Martins
    Bom dia. Você pode usar o for para difinir o início e o passo: sub teste() Dim x as Long 'Linha Dim y as Long 'Coluna x = 1 for y = 1 to 5 Cells(x, y).value = y next x end sub
  4. Alyson Ronnan Martins
    Deu certo essa? Não estou lembrando da outra.
  5. Alyson Ronnan Martins
    Então tenta desativar o calculo da fórmula: Sub Auto_Calcs_Example() Application.Calculation = xlManual 'Do something Application.Calculation = xlAutomatic End Sub E no final coloca automático
  6. Alyson Ronnan Martins
    Sua planilha tem muitas formulas?
  7. Alyson Ronnan Martins
    Link: PesquisaSimples - Google Drive Code: Dim ulcp As Long 'Ultima linha da coluna pesquisada Dim ulrd As Long 'Ultima Linha receber dados Dim lips As Long 'Linha inícial pesquisa Dim x As Long Dim txtPes As String 'Texto Pesquisado Dim txtAtu As String 'Texto na linha atual ulcp = Sheets("Dados").Cells(Rows.Count, "A").End(xlUp).Row ulrd = Sheets("ReceberDados").Cells(Rows.Count, "C").End(xlUp).Row + 1 lips = 4 txtPes = Sheets("Dados").Cells(1, "B").Value 'Loop olhando todas as linhas para encontrar a informação For x = lips To ulcp Step 1 txtAtu = Sheets("Dados").Cells(x, "A").Value If txtAtu = txtPes Then ' Se for igual Sheets("ReceberDados").Cells(ulrd, "C").Value = Sheets("Dados").Cells(x, "B").Value 'Lançar informação ulrd = Sheets("ReceberDados").Cells(Rows.Count, "C").End(xlUp).Row + 1 'Atualizar informação End If Next x
  8. Alyson Ronnan Martins
    Boa noite @luiza lopes. Usa o comando no início do seu código: Sub TransporDados1() Application.ScreenUpdating = False ... 'Seu codigo Application.ScreenUpdating = True End Sub
  9. Alyson Ronnan Martins
    Bom. Se você estiver disponível apartir de 19 posso te auxiliar. Mais agora você já pode criar o formulário com os dados que quer mostrar. Faz bem simples (sem o filtro) TABELA: TabOperacoes Formulario: (nome) tenta criar esse. A mágica de mostrar apenas alguns dados vem depois Estou no aguardo.
  10. Alyson Ronnan Martins
    Boa noite. Como não sei com é a tabela eu criei uma ficticia pensando apenas apenas no ID e Endereço. Caso Encontre: Caso não ache: Código da pagina: <?php include_once("cn.php"); ?> <!DOCTYPE html> <html lang="pt-br"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>Aincrad - Forum Scritp</title> </head> <body> <h1>Pesquisando informação no Banco de dados</h1> <h2>Em formulário</h2> <form action=""> <input type="text" name="nID" id="id" value="<?= getID(); ?>"> <!-- <input type="button" value="Teste"> --> <button type="submit">Pesqusia</button> </form> <hr> <?php if(getID() != ""){ // echo $_GET["nID"]; $idInput = stripcslashes($_GET["nID"]); $idInput = mysqli_real_escape_string($con, $idInput); $query = "SELECT * FROM tblRuaID WHERE ID = $idInput "; $res = mysqli_query($con,$query); $row = mysqli_num_rows($res); if($row==1){ // echo "encontrou"; $linha = $res->fetch_array(); echo $linha["endereco"]; }else{ echo "não encontrou!"; } }//else{ // echo "Sem Post!"; // } function getID(){ if(isset($_GET["nID"])){ return $_GET["nID"]; }else{ return ""; } } ?> </body> </html>
  11. Alyson Ronnan Martins
    Olhei agora o seu mdb para tentar achar o que esta procurando. Primeiro vamos do básico. O formulário FormMenuInicial tabela [TabOperacoes] como informções de registros: Até ai ok, precisa agora que o outro formulário seja destinado as informações que você precisa. O outro formulário é FormNavegacao usa a tabela [TabOperacoes]: Ficou faltando apenas saber quais dados irão aparecer para criar o formulário.
  12. Alyson Ronnan Martins
    Boa tarde. Se tiver disponível as 19:30 vai ser ahora que posso ajudar. Vou baixar o mdb para ver a sua estrutura e te ajudar. Como estou no onibus posso apenas tentar entwnder seu projeto. Você criou duas tabelas operações e informações?
  13. Alyson Ronnan Martins
    Boa tarde. alysonronnan@gmail.com
  14. Alyson Ronnan Martins
    Seria difícil ver aonde esta errada... Teria como mandar a foto ou a planilha para te ajudar melhor? Se não fot possível manda apenas o endereço exemplo: Coluna da soma: Plan2!D:D Coluna procurada 1: plan2! E:E Critério 1: linha atual coluna B .... Para tentar ajudar.
  15. Alyson Ronnan Martins
    Boa tarde. Tenta usar a funcão: WorksheetFunction.SumIf()
  16. Alyson Ronnan Martins
    Boa tarde você pode organizar por um ID assim vai sempre manter a ordem. Tem um id?
  17. Alyson Ronnan Martins
    Pensando um pouco mais para frente(tambem simplificando a lógica), esse "nível" pode ser aumentado futuramente? Se sim podemos mudar essa tabela de colunas para linhas: Id | Valor | Nivel 01 | X | NivelB
  18. Alyson Ronnan Martins
    Boa noite. Vi sua pergunta e também deu vontade de fazer. o comando equal transfoma string em uma equação: var str = "(12-3)*4"; var res; res = equal(str); //resultado = 36 alert(res); então dá para pegar o seu campo "digitado" e calcular ele: var str = document.getElementById("display").value; res = equal(str); document.getElementById("display").value = res; Esse código é para o calcule
  19. Alyson Ronnan Martins
    Então usando o for: For x = 0 to ULinha Preenche e imprimi Next x Já tenho o conhecimento do VBA?
  20. Alyson Ronnan Martins
    Teria como demotrar essa sua ideia? Tipo descrever o que o procedimento que da sim para fazer. Você disse mover a celula... essa celula é fixa. Se não tem um critério?
  21. Alyson Ronnan Martins
    Não conseguir entender a ideia pois imagina fazer de outras maneiras.
  22. Alyson Ronnan Martins
    Boa noite. O que quer fazer nesse comando?
  23. Alyson Ronnan Martins
    Boa noite. Não entendi como esta querendo usar essas informação. Poderia demostra um pouco o que fazer?
  24. Alyson Ronnan Martins
    Vamos uma coisa por vez. Você quer que ele personalize a planilha ponto e imprima depois personalize a planilha com o próximo "servidor". Estou entedendo corretamente?
  25. Alyson Ronnan Martins
    Boa noite @daniel altino machado. Você postou na parte errada do forum para conseguiur auxilio: Provavelmente esta faltando para você alguma refêrencia. Verifica no menu do VBA Ferramentas > Referências provalmente alguma dessas referências esta com um aviso de estar faltando. Caso não esteja com erro deve estar faltando ativar uma "Refêrencia" para essa seu VBA começar a entender o "datebase". Tente ativa essa e olhe se ainda vai apresentar erro: Microsoft Office xx.x Access Date Base Engine
×
×
  • Criar Novo...