+ Reply to Thread
Results 1 to 11 of 11

Campos preenchimento obrigatório

  1. #1
    Registered User
    Join Date
    01-25-2024
    Location
    Lisboa
    MS-Off Ver
    2016
    Posts
    6

    Question Campos preenchimento obrigatório

    Bom dia,
    Tenho um ficheiro e preciso que os campos data, processo/assunto, tipo documento e funcionario sejam de preenchimento obrigatorio.
    Se algum destes campos ficar em branco, dar uma mensagem que faltam preencher campos.
    Eu tenho um código VBA mas nao funciona.
    Se alguem me puder ajudar, obrigada.
    Attached Files Attached Files

  2. #2
    Forum Moderator zbor's Avatar
    Join Date
    02-10-2009
    Location
    Croatia
    MS-Off Ver
    365 ProPlus
    Posts
    15,602

    Re: Campos preenchimento obrigat?rio

    Perhapes this:

    Please Login or Register  to view this content.
    And same for other

  3. #3
    Registered User
    Join Date
    01-25-2024
    Location
    Lisboa
    MS-Off Ver
    2016
    Posts
    6

    Re: Campos preenchimento obrigat?rio

    Boa tarde,
    Fiz a alteração e não funcionou :confuso:

  4. #4
    Forum Moderator zbor's Avatar
    Join Date
    02-10-2009
    Location
    Croatia
    MS-Off Ver
    365 ProPlus
    Posts
    15,602

    Re: Campos preenchimento obrigat?rio

    Aqui falta a parte do código onde você declara variáveis.

    Provavelmente, há um erro aqui: Processo / Assunto. Isso é uma divisão entre duas variáveis, enquanto (eu suponho) você quer apenas uma.
    E se Assunto for 0, então você está dividindo por 0 aqui, o que resulta em erro.

  5. #5
    Registered User
    Join Date
    01-25-2024
    Location
    Lisboa
    MS-Off Ver
    2016
    Posts
    6

    Re: Campos preenchimento obrigat?rio

    O codigo que tenho é este:
    Private Sub Workbook_BeforeSave(Cancel As Boolean)
    If Data = "" Or IsNull(Data) Then
    MsgBox "O campo deve ser preenchido", vbCritical
    Data.SetFocus
    Else

    If Processo / Assunto = "" Or IsNull(Processo / Assunto) Then
    MsgBox "O campo deve ser preenchido", vbCritical
    ProcessoAssunto.SetFocus
    Else

    If TipoDocumento = "" Or IsNull(TipoDocumento) Then
    MsgBox "O campo deve ser preenchido", vbCritical
    ProcessoAssunto.SetFocus
    Else

    If NomeFuncionário = "" Or IsNull(NomeFuncionário) Then
    MsgBox "O campo deve ser preenchido", vbCritical
    NomeFuncionário.SetFocus
    Else


    End If
    End If
    End If
    End If

    End Sub

  6. #6
    Forum Moderator zbor's Avatar
    Join Date
    02-10-2009
    Location
    Croatia
    MS-Off Ver
    365 ProPlus
    Posts
    15,602

    Re: Campos preenchimento obrigat?rio

    Apresenta-se um erro quando abro a sua tabela do Excel.

    Untitled.jpg

  7. #7
    Registered User
    Join Date
    01-25-2024
    Location
    Lisboa
    MS-Off Ver
    2016
    Posts
    6

    Re: Campos preenchimento obrigat?rio

    Sim, deve haver alguma falha, mas não consigo descobrir.

  8. #8
    Forum Expert
    Join Date
    10-19-2021
    Location
    Brazil
    MS-Off Ver
    Office 365 V2401 w/ Win10 Home 64 Bit
    Posts
    2,014

    Re: Campos preenchimento obrigat?rio

    Corrigi o cabeçalho do seu código VBA, mas falta relacionar suas variáveis com a planilha.

    Please Login or Register  to view this content.
    As variáveis destacadas em vermelho tem de ser relacionadas a células ou colunas da sua planilha, mas sua tabela tem 5.000 linhas como preencher isso tudo antes de sair??
    Aliás, o q é preencher antes de sair? São 10 linhas, apenas uma linha, todas as 5.000 linhas?
    Attached Files Attached Files

  9. #9
    Registered User
    Join Date
    01-25-2024
    Location
    Lisboa
    MS-Off Ver
    2016
    Posts
    6

    Re: Campos preenchimento obrigat?rio

    Bom dia
    Obrigada. Não me expliquei bem ao dizer que os campos deviam ser todos preenchidos quando o utilizador saisse do excel.
    A ideia aqui é que quando um utilizador faz um registo e feche o excel, dê uma mensagem a dizer que falta preencher os campos dessa linha.

  10. #10
    Forum Expert
    Join Date
    10-19-2021
    Location
    Brazil
    MS-Off Ver
    Office 365 V2401 w/ Win10 Home 64 Bit
    Posts
    2,014

    Re: Campos preenchimento obrigat?rio

    Vc deve explicar isso ao Excel, o q são essas linhas? É a linha 10? É a linha 11?
    5.000 linhas, talvez vc queira ter certeza q a última linha preenchida teve todas as colunas tb preenchidas...

  11. #11
    Forum Expert
    Join Date
    10-19-2021
    Location
    Brazil
    MS-Off Ver
    Office 365 V2401 w/ Win10 Home 64 Bit
    Posts
    2,014

    Re: Campos preenchimento obrigat?rio

    Olá Teresa, montei uma proposta de solução p/ sua entrada de dados, seria uma folha da planilha p/ entrada (Formulário) e outra p/ armazenamento (SAIDAS - 2024) com a tabela transformada em tabela nomeada, q é a solução mais simples.

    Nessa solução o Número da linha e Divisão são preenchidos automaticamente na folha Formulário, ficando apenas por conta dos outros campos p/ serem preenchidos, assim será lá q será feito o controle de campos totalmente preenchidos.

    A planilha já está razoavelmente funcional p/ teste, mas não vou até o final sem o seu ok.
    Attached Files Attached Files

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Modelo de preenchimento de c?lula
    By OCaraSemNome in forum Non English Excel
    Replies: 2
    Last Post: 08-06-2022, 06:40 PM
  2. Modelo de preenchimento de c?lula
    By OCaraSemNome in forum Excel Formulas & Functions
    Replies: 0
    Last Post: 08-03-2022, 09:21 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1