[Resolvido]Codigo macro

Galera quem pode me ajudar a criar uma codigo, da seguinte forma, tenho as sequencias de campos abaixo, onde tenho os campos sao todos obrigatorios, como faço uma macro que me informa que os campos nao estao preenchidos que somente preenchidos consigo ir para celula seguinte:

CÓDIGO DE MOVIMENTAÇÃO DO SEGURADO
CÓDIGO FUNCIONAL
GRAU DE PARENTESCO
NOME COMPLETO
NOME COMPLETO DA MAE
CARGO DO TITULAR
LOUGRADOURO
NRO DO ENDEREÇO
BAIRRO
CIDADE
UF
CEP
DATA DE NASCIMENTO
SEXO
ESTADO CIVIL
CPF
CÓDIGO DO PAIS EMISSOR DO RG
DATA DO EVENTO (ELEGIBILIDADE)
DATA DE INÍCIO NO CONVÊNIO
DESCRIÇAO
CÓDIGO DA EMPRESA CLIENTE

Rapaz, em primeiro lugar, te aconselho a mudar os nomes dos campos. O Access não trabalha bem com nomes que contenham espaços. Nomes de campos tanto nas tabelas quanto nos forms e relatórios, não tem necessecidade de ficar visível na interface, portanto você pode colocar algo como CodMovSegurado. Isso vai te facilitar muito. Quanto à checagem de campos nulos, dê uma olhada no Repositório de Exemplos do forum que você vai encontrar exemplos lá.

Meu caro agradeço o retorno, eu nao consigo fazendo esse codigo que ele me indentifique por coluna Ex: coluna A, que me informe em mensagem campo A nao preenchido...

pra ser mais especifico, nao usando os nomes que criei apenas usar que essa macro no excel me gere a informaçao que a coluna A ou Y naos esta preecnhida.

Olá Andre,

O código abaixo verifica se em um formulário (Access) todos os campos estão preenchidos. Os campos deve ter a tag (Marca) marcados.

Public Function CpoExigido(ByVal UmForm As Form) As Boolean
' Verifica se todos os controles Caixa de texto contém dados
Dim ctl, ctlable As Control
Dim Num As Integer


On Error GoTo Err_CpoExigido

CpoExigido = False
Num = 0
For Each ctl In UmForm
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl = "" Or IsNull(ctl) Then
Num = 1
Exit For
End If
End If
Next ctl
If Num = 1 Then
MsgBox "O campo " & me(ctl.name).tag & " está vazio." & vbCr & _
"Verifique e preencha.", _
vbInformation, "Faltam dados..."
CpoExigido = True
Else
CpoExigido = False
End If
Exit_CpoExigido:
On Error Resume Next
If Not (ctl Is Nothing) Then
Set ctl = Nothing
End If
Exit Function
Err_CpoExigido:
Select Case Err
Case 0
Resume Next
Case Else
MsgBox Err.Description, vbInformation, "Erro: " & CStr(Err.Number)
End Select
End Function

Nivaldo.

meu caro esse codigo consigo usar como coluna no excel?

Meu amigo, no Excel eu não sei.

Foi por isso que no inicio de minha resposta eu coloquei:

O código abaixo verifica se em um formulário (Access) todos os campos estão preenchidos

Más tem como você pesquisar em outros foruns.

Nivaldo.

obrigado