[RESOLVIDO] "If answer = vbYes Then" Não funciona
Enviado: 25 Abr 2021 às 16:48
Oi!
Fiz essa rotina para cadastrar em uma outra planilha:
A sub inteira está abaixo. Alguém consegue me dizer onde estou errado, por gentileza?
Fiz essa rotina para cadastrar em uma outra planilha:
Código: Selecionar todos
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.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, ""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