Página 1 de 1

Banco de dados questionário VBA

Enviado: 22 Set 2016 às 11:26
por ecatarucci
Olá pessoal,
Tenho um questionário que através de respostas "sim" ou "não" chega aos resultados A, B, C ou D.
O que preciso é que esses resultados fiquem gravados em um banco de dados contendo código, descrição e resultado da votação.
Alguém poderia me dar uma força?

Segue planilha em anexo.

Grato. :D

Re: Banco de dados questionário VBA

Enviado: 22 Set 2016 às 17:44
por alexandrevba
Boa tarde!!

Do modo como você fez, em cada local que se obitem se uma resposta, crie uma guia, use o comando abaixo:
Código: Selecionar todos
Worksheets("Plan2").Range("A1").Offset(1).Value = "Sua resposta"
No caso abaixo se marcar sim na pergunta 1 e 2 o valor "Peça A ", ficará salvo na guia "Plan2"
Código: Selecionar todos
If resposta1 = vbYes Then
    resposta2 = MsgBox("pergunta 2", vbYesNo, "Questionário")
    If resposta2 = vbYes Then
        MsgBox "Peça A"
        Worksheets("Plan2").Range("A1").Offset(1).Value = "Peça A"
    Else
        MsgBox "Peça B"
    End If

Else
Att

Re: Banco de dados questionário VBA

Enviado: 26 Set 2016 às 08:10
por ecatarucci
Amigo, bom dia!
Obrigado pelo apoio. Mas preciso melhorar um pouco mais a planilha.

Como é uma planilha de votação, eu preciso amarrar a decisão do questionário junto a código e descrição, e isso tem que ficar em um banco de dados. Já criei as macros que precisava e etc.
Infelizmente fazer essa votação por formulário não vai me atender.

Poderia me dar um apoio por gentileza?


alexandrevba escreveu:Boa tarde!!

Do modo como você fez, em cada local que se obitem se uma resposta, crie uma guia, use o comando abaixo:
Código: Selecionar todos
Worksheets("Plan2").Range("A1").Offset(1).Value = "Sua resposta"
No caso abaixo se marcar sim na pergunta 1 e 2 o valor "Peça A ", ficará salvo na guia "Plan2"
Código: Selecionar todos
If resposta1 = vbYes Then
    resposta2 = MsgBox("pergunta 2", vbYesNo, "Questionário")
    If resposta2 = vbYes Then
        MsgBox "Peça A"
        Worksheets("Plan2").Range("A1").Offset(1).Value = "Peça A"
    Else
        MsgBox "Peça B"
    End If

Else
Att

Re: Banco de dados questionário VBA

Enviado: 26 Set 2016 às 08:47
por alexandrevba
Bom dia!!

Desculpe, eu não estou entendo oque você quer :?

No seu anexo tem uma rotina que usa MsgBox e não grava nada em uma guia, na sua descrição você cita um "banco de dados".

Eu pensei que seu "banco de dados" pudesse ser a guia (considerando que sua logica está pronta), eu só apontei como grava em uma guia.

Se puder explicar com mais detalhes, talvez o pessoal do fórum possa lhe ajudar.

Att

Re: Banco de dados questionário VBA

Enviado: 26 Set 2016 às 12:21
por ecatarucci
Desculpe a falta de informação.
Vamos lá!

Esta é uma planilha para votação de peças e conforme as respostas será dada a criticidade.

Inseri uns dados fictícios na aba "histórico de avaliações", ou seja, cada código está amarrado a descrição.

Preciso que o VBA rode da seguinte maneira:
Vou puxar desse banco de dados qual peça será votada a sua criticidade. Então na hora que for votar, terá que ter uma lista indicando qual peça será votada. Feito isso, inicia-se a votação. O desafio é que preciso que o resultado da votação seja inserido conforme a peça que foi escolhida nessa lista.

Exemplo:
Escolhemos a peça B para votação.

Na aba de banco de dados

Código | Descrição | Criticidade
2 ------------ B ------------- "Em branco"

O resultado da votação deu Compra Direta.

Código | Descrição | Criticidade
2 -------------- B -----------Compra direta

Aí no banco de dados gravará a criticidade conforme o questionário.

Espero ter conseguido explicar da melhor maneira.

Grato.

alexandrevba escreveu:Bom dia!!

Desculpe, eu não estou entendo oque você quer :?

No seu anexo tem uma rotina que usa MsgBox e não grava nada em uma guia, na sua descrição você cita um "banco de dados".

Eu pensei que seu "banco de dados" pudesse ser a guia (considerando que sua logica está pronta), eu só apontei como grava em uma guia.

Se puder explicar com mais detalhes, talvez o pessoal do fórum possa lhe ajudar.

Att

Re: Banco de dados questionário VBA

Enviado: 26 Set 2016 às 14:53
por alexandrevba
Boa tarde!!

Eu não entendi, como associar os itens (Cod1,2,3, etc), com o resultado da votação?
Vamos ver mais alguém consegue te ajudar.

Att

Banco de dados questionário VBA

Enviado: 27 Set 2016 às 12:30
por ecatarucci
Boa tarde!

No banco de dados o código e descrição já estará preenchido. Preciso que o VBA insira o resultado da votação conforme o código que for selecionado.
Seguindo os passos:
1 - Antes de iniciar votação, selecionar o código desejado. Quando selecionar o código, a descrição aparecerá também.
2 - Realizar a votação.
3 - Assim que a votação for realizada, o resultado da votação precisa ser inserida no banco de dados na mesma linha do código que foi selecionado.

Re: Banco de dados questionário VBA

Enviado: 29 Set 2016 às 13:10
por alexandrevba
Boa tarde!

Imagine que eu selecione um código qualquer, ex: Cod 10520

O sistema deve executar a rotina onde aparece uma mensagem: Pergunta1 (Sim - Não), digamos que eu, selecione Sim, Pergunta2 (Sim - Não), selecione Sim, .

A pergunta é caso tenha mais de uma pergunta como seria o resultado na planilha?

Cod-Descr-Apuração
10520-ProdTeste-PeçaB
10520-ProdTeste-PeçaD

Att

Banco de dados questionário VBA

Enviado: 29 Set 2016 às 14:44
por ecatarucci
Creio que entendi sua pergunta.

Cada código terá apenas um resultado.

*Caso precise fazer uma nova votação para uma peça que já foi votada, o novo resultado deverá sobreescrever a apuração antiga

Re: Banco de dados questionário VBA

Enviado: 30 Set 2016 às 13:10
por alexandrevba
Boa tarde!!

Eu confesso que ainda não entendi, mas veja o arquivo que postei, faça seus testes.

Att

Banco de dados questionário VBA

Enviado: 30 Set 2016 às 13:40
por ecatarucci
Caramba, imagine se você tivesse entendido então?! rsrs

Perfeito! Muito obrigado, de verdade!!! Era isso o que eu precisava, agora farei os ajustes necessários. Era disso que eu precisava !!!

Um big like!!!