Como criar um formulário para entrada de dados numa tabela onde algumas células possuem lista de validação de dados?

Question

Eu possuo uma tabela com algumas colunas onde inseri listas de dados para validação.
Gostaria de criar um formulário para automatizar a entrada de dados, onde as listas de validação apareçam nos campos correspondentes.

Exemplo:

• Coluna1 "Data"
• Coluna2 "Tipo de viagem". Lista de validação: Férias, A serviço; Reunião
• Coluna3 "Meio de transporte". Lista de validação: Carro, Moto, Bicicleta, Ônibus, trem, avião, navio
• Coluna4 "Meio de pagamento". Lista de validação: Cartão pessoal, Cartão corporativo, PIX

Meu formulário teria os campos das linhas em cada coluna.

Nos campos das colunas de 2 a 4 apareceriam as opções de cada lista para validação.

Answer 1

Olá, Thomas.
Ainda não consegui resolver. Talvez seja por não ter entendido bem a macro, pois não está dando certo.
Tentarei novamente, mas pode ser por não ter conhecimento de VBA.

De qualquer forma, obrigado pelo suporte.

Answer 2

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Olá Dielson,

Como está a situação? Seu problema foi resolvido? Estamos ansiosos para ouvir de você!

Thomas

Answer 3

Dear Thomas.
Thank you for prompt reply.
I will follow your instructions and check the results.

Best regards,

Dielson

Answer 4

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Olá Dielson Albuquerque,

Obrigado por sua postagem na Comunidade da Microsoft.

Você está tentando obter o efeito de preencher automaticamente o conteúdo necessário para formulários em um formulário de coleção? Nesse caso, isso exigiria o uso do VBA (Visual Basic for Applications) para ser realizado.

Por exemplo, Planilha1 é o formulário de origem em que os dados precisam ser inseridos manualmente e as colunas B, C, D são listas suspensas. 

A Planilha3 é o formulário de destino em que os novos dados do formulário de origem precisam ser preenchidos automaticamente. 

Crie uma nova macro e cole o código a seguir na área de edição de código e, em seguida, salve a pasta de trabalho como uma pasta de trabalho habilitada para macro do Excel.

Sub MoveDataToSheet3()

    Dim wsSource As Worksheet

    Dim wsDestination As Worksheet

    Dim lastRowSource As Long

    Dim lastRowDestination As Long

    Set wsSource = ThisWorkbook.Sheets("Sheet1")

    Set wsDestination = ThisWorkbook.Sheets("Sheet3")

    lastRowSource = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row

    lastRowDestination = wsDestination.Cells(wsDestination.Rows.Count, 1).End(xlUp).Row + 1

    If lastRowSource > 1 Then

        wsSource.Range("A2:D" & lastRowSource).Copy Destination:=wsDestination.Range("A" & lastRowDestination)

        wsSource.Range("A2:D" & lastRowSource).ClearContents

    Else

        MsgBox "No data found", vbInformation

    End If

    MsgBox "Form data move successfully", vbInformation

End Sub

Depois de executar a macro, os dados inseridos na Planilha1 serão atualizados automaticamente para a Planilha3 e, cada vez que ela for executada, ela limpará automaticamente o conteúdo do formulário para a próxima edição.

Espero que as informações acima sejam úteis para você e aguardo sua resposta!

Atenciosamente

Thomas C - MSFT | Especialista em suporte da comunidade Microsoft