Este fórum está sendo desativado

[yuricgy]

Oi!
Fiz essa rotina para cadastrar em uma outra planilha:

Código: Selecionar todos

Sheets("Cadastrar").Range("A3:L3").Copy
        Sheets("Bco_Padrinhos").Select
        Call LinhaVazia
        Selection.PasteSpecial Paste:=xlPasteValues
        Selection.End(xlUp).Select
        Sheets("Cadastrar").Select
        Range("B2:L2").ClearContents
        ActiveWorkbook.RefreshAll
        ActiveWorkbook.Save
        MsgBox "Cadastro realizado com sucesso!", vbInformation, ""

Ela funciona perfeitamente como quero. Contudo, quando adicionei todo o restante do tratamento somente a essa parte de cima, ou seja, no caso de se tudo tiver ok, segundo o usuário, o cadastro será feito, nada acontece.

A sub inteira está abaixo. Alguém consegue me dizer onde estou errado, por gentileza?

Código: Selecionar todos

Sub Novo_Cadastro()

Dim resposta As Integer

'Cadastra novas madrinhas e padrinhos
    
    If Sheets("Cadastrar").Range("B3") = "" Then
        
        MsgBox "Por favor preecha o nome, é um campo obrigatório", vbExclamation, "Cadastro não efetuado"
        Exit Sub
    
    End If
    
    If Sheets("Cadastrar").Range("C3") = "" Then
        
        MsgBox "Por favor preecha a data de nascimento, é um campo obrigatório", vbExclamation, "Cadastro não efetuado"
        Exit Sub
    
    End If

    If Sheets("Cadastrar").Range("D3") = "" Then
        
        MsgBox "Por favor preecha o gênero, é um campo obrigatório", vbExclamation, "Cadastro não efetuado"
        Exit Sub
    
    End If

    If Sheets("Cadastrar").Range("D3") = "" Then
        
        MsgBox "Por favor preecha a data preferida, é um campo obrigatório", vbExclamation, "Cadastro não efetuado"
        Exit Sub
    
    End If

    If Sheets("Cadastrar").Range("G3") = "" Then
        
        MsgBox "Por favor preecha o contato, é um campo obrigatório", vbExclamation, "Cadastro não efetuado"
        Exit Sub
    
    End If

resposta = MsgBox("Você tem certeza que todas as informações estão corretas? Lembre que elas não poderão ser alteradas após o cadastro.", vbYesNo + vbQuestion, "Cuidado!")
    
    If answer = vbYes Then
    
        Sheets("Cadastrar").Range("A3:L3").Copy
        Sheets("Bco_Padrinhos").Select
        Call LinhaVazia
        Selection.PasteSpecial Paste:=xlPasteValues
        Selection.End(xlUp).Select
        Sheets("Cadastrar").Select
        Range("B2:L2").ClearContents
        ActiveWorkbook.RefreshAll
        ActiveWorkbook.Save
        MsgBox "Cadastro realizado com sucesso!", vbInformation, ""
    
    Else
    
        'Não faça nada
        
    End If
       
End Sub

[yuricgy]

Era só eu ter colocado "If resposta"