Fiz o código abaixo e está dando o erro que coloquei no titulo já fiz de tudo e não consigo entender, alguém me ajuda? A linha que está com erro está em amarelo.
Sub Gerar_Pdf()
Dim criarpasta As String, caminho_arquivo As String
criarpasta = ThisWorkbook.Path & "\Formularios"
If Dir(criarpasta, vbDirectory) = "" Then
MkDir criarpasta
Private Sub Pesquisar_Click()
Atualizar_ListBox
End Sub
Private Sub salvar_Click()
SalvarNovoCadastro
End Sub
Private Sub SalvarNovoCadastro()
Dim Campoembranco As Boolean
Dim linha1 As Integer
Campoembranco = False
If nome = "" Then Campoembranco = True
If proposta = "" Then Campoembranco = True
If label_cpf = "" Then Campoembranco = True
If label_datanasc = "" Then Campoembranco = True
If Campoembranco = True Then
MsgBox "Campo sem preenchimento!", vbInformation, "Campo em branco"
Exit Sub
End If
linha1 = 2
Do While Planilha3.Cells(linha1, 2) <> ""
linha1 = linha1 + 1
Loop
If SISTEMA_ADULTO.SIM4.Value = True Then
Planilha3.Cells(linha1, 17) = "SIM"
Else
Planilha3.Cells(linha1, 17) = "NÃO"
End If
Planilha3.Cells(linha1, 18) = Pergunta4.Value
If SISTEMA_ADULTO.SIM5.Value = True Then
Planilha3.Cells(linha1, 19) = "SIM"
Else
Planilha3.Cells(linha1, 19) = "NÃO"
End If
Planilha3.Cells(linha1, 20) = Pergunta5.Value
If SISTEMA_ADULTO.SIM6.Value = True Then
Planilha3.Cells(linha1, 21) = "SIM"
Else
Planilha3.Cells(linha1, 21) = "NÃO"
End If
Planilha3.Cells(linha1, 22) = Pergunta6.Value
If SISTEMA_ADULTO.SIM7.Value = True Then
Planilha3.Cells(linha1, 23) = "SIM"
Else
Planilha3.Cells(linha1, 23) = "NÃO"
End If
Planilha3.Cells(linha1, 24) = Pergunta7.Value
If SISTEMA_ADULTO.SIM8.Value = True Then
Planilha3.Cells(linha1, 25) = "SIM"
Else
Planilha3.Cells(linha1, 25) = "NÃO"
End If
Planilha3.Cells(linha1, 26) = Pergunta8.Value
If SISTEMA_ADULTO.SIM9.Value = True Then
Planilha3.Cells(linha1, 27) = "SIM"
Else
Planilha3.Cells(linha1, 27) = "NÃO"
End If
Planilha3.Cells(linha1, 28) = Pergunta9.Value
If SISTEMA_ADULTO.SIM10.Value = True Then
Planilha3.Cells(linha1, 29) = "SIM"
Else
Planilha3.Cells(linha1, 29) = "NÃO"
End If
Planilha3.Cells(linha1, 30) = Pergunta10.Value
If SISTEMA_ADULTO.SIM11.Value = True Then
Planilha3.Cells(linha1, 31) = "SIM"
Else
Planilha3.Cells(linha1, 31) = "NÃO"
End If
Planilha3.Cells(linha1, 32) = Pergunta11.Value
If SISTEMA_ADULTO.SIM12.Value = True Then
Planilha3.Cells(linha1, 33) = "SIM"
Else
Planilha3.Cells(linha1, 33) = "NÃO"
End If
Planilha3.Cells(linha1, 34) = Pergunta12.Value
If SISTEMA_ADULTO.SIM13.Value = True Then
Planilha3.Cells(linha1, 35) = "SIM"
Else
Planilha3.Cells(linha1, 35) = "NÃO"
End If
Planilha3.Cells(linha1, 36) = Pergunta13.Value
If SISTEMA_ADULTO.SIM14.Value = True Then
Planilha3.Cells(linha1, 37) = "SIM"
Else
Planilha3.Cells(linha1, 37) = "NÃO"
End If
Planilha3.Cells(linha1, 38) = Pergunta14.Value
If SISTEMA_ADULTO.SIM15.Value = True Then
Planilha3.Cells(linha1, 39) = "SIM"
Else
Planilha3.Cells(linha1, 39) = "NÃO"
End If
Planilha3.Cells(linha1, 40) = Pergunta15.Value
If SISTEMA_ADULTO.SIM16.Value = True Then
Planilha3.Cells(linha1, 41) = "SIM"
Else
Planilha3.Cells(linha1, 41) = "NÃO"
End If
Planilha3.Cells(linha1, 42) = Pergunta16.Value
If SISTEMA_ADULTO.SIM17.Value = True Then
Planilha3.Cells(linha1, 43) = "SIM"
Else
Planilha3.Cells(linha1, 43) = "NÃO"
End If
Planilha3.Cells(linha1, 44) = Pergunta17.Value
If SISTEMA_ADULTO.SIM18.Value = True Then
Planilha3.Cells(linha1, 45) = "SIM"
Else
Planilha3.Cells(linha1, 45) = "NÃO"
End If
Planilha3.Cells(linha1, 46) = Pergunta18.Value
If SISTEMA_ADULTO.SIM19.Value = True Then
Planilha3.Cells(linha1, 47) = "SIM"
Else
Planilha3.Cells(linha1, 47) = "NÃO"
End If
Planilha3.Cells(linha1, 48) = Pergunta19.Value
If SISTEMA_ADULTO.SIM20.Value = True Then
Planilha3.Cells(linha1, 49) = "SIM"
Else
Planilha3.Cells(linha1, 49) = "NÃO"
End If
Planilha3.Cells(linha1, 50) = Pergunta20.Value
If SISTEMA_ADULTO.SIM21.Value = True Then
Planilha3.Cells(linha1, 51) = "SIM"
Else
Planilha3.Cells(linha1, 51) = "NÃO"
End If
Planilha3.Cells(linha1, 52) = Pergunta21.Value
If SISTEMA_ADULTO.SIM22.Value = True Then
Planilha3.Cells(linha1, 53) = "SIM"
Else
Planilha3.Cells(linha1, 53) = "NÃO"
End If
Planilha3.Cells(linha1, 54) = Pergunta22.Value
If SISTEMA_ADULTO.SIM23.Value = True Then
Planilha3.Cells(linha1, 55) = "SIM"
Else
Planilha3.Cells(linha1, 55) = "NÃO"
End If
Planilha3.Cells(linha1, 56) = Pergunta23.Value
If SISTEMA_ADULTO.SIM24.Value = True Then
Planilha3.Cells(linha1, 57) = "SIM"
Else
Planilha3.Cells(linha1, 57) = "NÃO"
End If
Planilha3.Cells(linha1, 58) = Pergunta24.Value
If SISTEMA_ADULTO.SIM25.Value = True Then
Planilha3.Cells(linha1, 59) = "SIM"
Else
Planilha3.Cells(linha1, 59) = "NÃO"
End If
Planilha3.Cells(linha1, 60) = Pergunta25.Value
If SISTEMA_ADULTO.SIM26.Value = True Then
Planilha3.Cells(linha1, 61) = "SIM"
Else
Planilha3.Cells(linha1, 61) = "NÃO"
End If
Planilha3.Cells(linha1, 62) = Pergunta26.Value
If SISTEMA_ADULTO.SIM27.Value = True Then
Planilha3.Cells(linha1, 63) = "SIM"
Else
Planilha3.Cells(linha1, 63) = "NÃO"
End If
Planilha3.Cells(linha1, 64) = Pergunta27.Value
If SISTEMA_ADULTO.SIM28.Value = True Then
Planilha3.Cells(linha1, 65) = "SIM"
Else
Planilha3.Cells(linha1, 65) = "NÃO"
End If
Planilha3.Cells(linha1, 66) = Pergunta28.Value
If SISTEMA_ADULTO.SIM29.Value = True Then
Planilha3.Cells(linha1, 67) = "SIM"
Else
Planilha3.Cells(linha1, 67) = "NÃO"
End If
Planilha3.Cells(linha1, 68) = Pergunta29.Value
If SISTEMA_ADULTO.SIM30.Value = True Then
Planilha3.Cells(linha1, 69) = "SIM"
Else
Planilha3.Cells(linha1, 69) = "NÃO"
End If
Planilha3.Cells(linha1, 70) = Pergunta30.Value
Planilha3.Cells(linha1, 71) = Pergunta31.Value
Planilha3.Cells(linha1, 72) = Pergunta32.Value
If SISTEMA_ADULTO.SIM33.Value = True Then
Planilha3.Cells(linha1, 73) = "SIM"
Else
Planilha3.Cells(linha1, 73) = "NÃO"
End If
Planilha3.Cells(linha1, 74) = Pergunta33.Value
If SISTEMA_ADULTO.SIM34.Value = True Then
Planilha3.Cells(linha1, 75) = "SIM"
Else
Planilha3.Cells(linha1, 75) = "NÃO"
End If
Planilha3.Cells(linha1, 76) = Pergunta34.Value
If SISTEMA_ADULTO.SIM35.Value = True Then
Planilha3.Cells(linha1, 77) = "SIM"
Else
Planilha3.Cells(linha1, 77) = "NÃO"
End If
Planilha3.Cells(linha1, 78) = Pergunta35.Value
If SISTEMA_ADULTO.SIM36.Value = True Then
Planilha3.Cells(linha1, 79) = "SIM"
Else
Planilha3.Cells(linha1, 79) = "NÃO"
End If
Planilha3.Cells(linha1, 80) = Pergunta36.Value
If SISTEMA_ADULTO.SIM37.Value = True Then
Planilha3.Cells(linha1, 81) = "SIM"
Else
Planilha3.Cells(linha1, 81) = "NÃO"
End If
Planilha3.Cells(linha1, 82) = Pergunta37.Value
If SISTEMA_ADULTO.SIM38.Value = True Then
Planilha3.Cells(linha1, 83) = "SIM"
Else
Planilha3.Cells(linha1, 83) = "NÃO"
End If
Planilha3.Cells(linha1, 84) = Pergunta38.Value
If SISTEMA_ADULTO.SIM39.Value = True Then
Planilha3.Cells(linha1, 85) = "SIM"
Else
Planilha3.Cells(linha1, 85) = "NÃO"
End If
Planilha3.Cells(linha1, 86) = Pergunta39.Value
Planilha3.Cells(linha1, 87) = Pergunta40.Value
If SISTEMA_ADULTO.SIM41.Value = True Then
Planilha3.Cells(linha1, 88) = "SIM"
Else
Planilha3.Cells(linha1, 88) = "NÃO"
End If
Planilha3.Cells(linha1, 89) = TextBox2_OBS.Value
Unload SISTEMA_ADULTO
MsgBox "Cadastro salvo com sucesso!", vbInformation, "Cadastro Salvo"
SISTEMA_ADULTO.Show
End Sub
Private Sub proposta_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub UserForm_Initialize()
imc.AddItem "Menor que 18,5 - Baixo peso"
imc.AddItem "De 18,5 a 24,9 - Peso normal"
imc.AddItem "De 25 a 29,9 - Sobrepeso"
imc.AddItem "De 30 a 34,9 - Obesidade grau I"
imc.AddItem "De 35 a 39.9 - Obesidade grau II"
imc.AddItem "Igual ou maior que 40 - Obesidade grau III"
data = Format(Date, "dd/mm/yyyy")
hora = Format(Time, "hh:mm:ss")
usuario = Application.UserName
Me.MultiPage1.Value = 0
End Sub
Private Sub label_cpf_Change()
Dim cpf As String, CPF2 As String, CPF3 As String
Dim I As Integer, j As Integer, n As Integer
cpf = label_cpf.Value
label_cpf.MaxLength = 14
I = Len(cpf)
For j = 1 To I
If IsNumeric(Mid(cpf, j, 1)) Then
CPF2 = CPF2 & Mid(cpf, j, 1)
End If
Next
I = Len(CPF2)
For j = 1 To I
CPF3 = CPF3 & Mid(CPF2, j, 1)
If j = 4 Or j = 7 Then
n = Len(CPF3) - 1
CPF3 = Left(CPF3, n) & "." & Right(CPF3, 1)
ElseIf j = 10 Then
n = Len(CPF3) - 1
CPF3 = Left(CPF3, n) & "-" & Right(CPF3, 1)
End If
Next
label_cpf.Value = CPF3
End Sub
Private Sub label_cpf_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Private Sub label_datanasc_Change()
Dim datanasc As String, datanasc2 As String, datanasc3 As String
Dim I As Integer, j As Integer, n As Integer
For j = 1 To I
If IsNumeric(Mid(datanasc, j, 1)) Then
datanasc2 = datanasc2 & Mid(datanasc, j, 1)
End If
Next
I = Len(datanasc2)
For j = 1 To I
datanasc3 = datanasc3 & Mid(datanasc2, j, 1)
If j = 3 Or j = 5 Then
n = Len(datanasc3) - 1
datanasc3 = Left(datanasc3, n) & "/" & Right(datanasc3, 1)
End If
Next
label_datanasc.Value = datanasc3
End Sub
Private Sub label_datanasc_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Pergunta
Aline Rocha da Cunha
Fiz o código abaixo e está dando o erro que coloquei no titulo já fiz de tudo e não consigo entender, alguém me ajuda? A linha que está com erro está em amarelo.
Sub Gerar_Pdf()
Dim criarpasta As String, caminho_arquivo As String
criarpasta = ThisWorkbook.Path & "\Formularios"
If Dir(criarpasta, vbDirectory) = "" Then
MkDir criarpasta
End If
With Planilha2
.Activate
caminho_arquivo = ThisWorkbook.Path & "\Formularios\" & .Range("A20").Cells & ".PDF"
ActiveSheet.Range("A1:A269").ExportAsFixedFormat Type:=xlTypePDF, Filename:=caminho_arquivo
End With
End Sub
Private Sub botaoIMC_Click()
Dim IMC1 As Single
Dim peso1 As Single, altura1 As Single
On Error Resume Next
peso1 = peso.Text
altura1 = altura.Text
IMC1 = peso / altura ^ 2
txt_IMC = IMC1
End Sub
Private Sub ListBox_adulto_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim I As Long, lin As Long
With Planilha3
With Me.ListBox_adulto
lin = Range("B:B").Find(.List(.ListIndex), lookat:=1).Row
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
SISTEMA_EDICAO.usuario = Cells(lin, 1)
SISTEMA_EDICAO.ID = Cells(lin, 2)
SISTEMA_EDICAO.data = Cells(lin, 3)
SISTEMA_EDICAO.hora = Cells(lin, 4)
SISTEMA_EDICAO.nome = Cells(lin, 5)
SISTEMA_EDICAO.proposta = Cells(lin, 6)
SISTEMA_EDICAO.label_cpf = Cells(lin, 7)
SISTEMA_EDICAO.label_datanasc = Cells(lin, 8)
If Cells(lin, 9) = "SIM" Then
SISTEMA_EDICAO.SIMSUCESSO = True
Else
SISTEMA_EDICAO.NAOSUCESSO = False
End If
SISTEMA_EDICAO.contato1 = Cells(lin, 10)
SISTEMA_EDICAO.contato2 = Cells(lin, 11)
SISTEMA_EDICAO.contato3 = Cells(lin, 12)
SISTEMA_EDICAO.contato4 = Cells(lin, 13)
SISTEMA_EDICAO.altura = Cells(lin, 14)
SISTEMA_EDICAO.peso = Cells(lin, 15)
SISTEMA_EDICAO.imc = Cells(lin, 16)
If Cells(lin, 17) = "SIM" Then
SISTEMA_EDICAO.SIM4 = True
Else
SISTEMA_EDICAO.NAO4 = False
End If
SISTEMA_EDICAO.Pergunta4 = Cells(lin, 18)
If Cells(lin, 19) = "SIM" Then
SISTEMA_EDICAO.SIM5 = True
Else
SISTEMA_EDICAO.NAO5 = False
End If
SISTEMA_EDICAO.Pergunta5 = Cells(lin, 20)
If Cells(lin, 21) = "SIM" Then
SISTEMA_EDICAO.SIM6 = True
Else
SISTEMA_EDICAO.NAO6 = False
End If
SISTEMA_EDICAO.Pergunta6 = Cells(lin, 22)
If Cells(lin, 23) = "SIM" Then
SISTEMA_EDICAO.SIM7 = True
Else
SISTEMA_EDICAO.NAO7 = False
End If
SISTEMA_EDICAO.Pergunta7 = Cells(lin, 24)
If Cells(lin, 25) = "SIM" Then
SISTEMA_EDICAO.SIM8 = True
Else
SISTEMA_EDICAO.NAO8 = False
End If
SISTEMA_EDICAO.Pergunta8 = Cells(lin, 26)
If Cells(lin, 27) = "SIM" Then
SISTEMA_EDICAO.SIM9 = True
Else
SISTEMA_EDICAO.NAO9 = False
End If
SISTEMA_EDICAO.Pergunta9 = Cells(lin, 28)
If Cells(lin, 29) = "SIM" Then
SISTEMA_EDICAO.SIM10 = True
Else
SISTEMA_EDICAO.NAO10 = False
End If
SISTEMA_EDICAO.Pergunta10 = Cells(lin, 30)
If Cells(lin, 31) = "SIM" Then
SISTEMA_EDICAO.SIM11 = True
Else
SISTEMA_EDICAO.NAO11 = False
End If
SISTEMA_EDICAO.Pergunta11 = Cells(lin, 32)
If Cells(lin, 33) = "SIM" Then
SISTEMA_EDICAO.SIM12 = True
Else
SISTEMA_EDICAO.NAO12 = False
End If
SISTEMA_EDICAO.Pergunta12 = Cells(lin, 34)
If Cells(lin, 35) = "SIM" Then
SISTEMA_EDICAO.SIM13 = True
Else
SISTEMA_EDICAO.NAO13 = False
End If
SISTEMA_EDICAO.Pergunta13 = Cells(lin, 36)
If Cells(lin, 37) = "SIM" Then
SISTEMA_EDICAO.SIM14 = True
Else
SISTEMA_EDICAO.NAO14 = False
End If
SISTEMA_EDICAO.Pergunta14 = Cells(lin, 38)
If Cells(lin, 39) = "SIM" Then
SISTEMA_EDICAO.SIM15 = True
Else
SISTEMA_EDICAO.NAO15 = False
End If
SISTEMA_EDICAO.Pergunta15 = Cells(lin, 40)
If Cells(lin, 41) = "SIM" Then
SISTEMA_EDICAO.SIM16 = True
Else
SISTEMA_EDICAO.NAO16 = False
End If
SISTEMA_EDICAO.Pergunta16 = Cells(lin, 42)
If Cells(lin, 43) = "SIM" Then
SISTEMA_EDICAO.SIM17 = True
Else
SISTEMA_EDICAO.NAO17 = False
End If
SISTEMA_EDICAO.Pergunta17 = Cells(lin, 44)
If Cells(lin, 45) = "SIM" Then
SISTEMA_EDICAO.SIM18 = True
Else
SISTEMA_EDICAO.NAO18 = False
End If
SISTEMA_EDICAO.Pergunta18 = Cells(lin, 46)
If Cells(lin, 47) = "SIM" Then
SISTEMA_EDICAO.SIM19 = True
Else
SISTEMA_EDICAO.NAO19 = False
End If
SISTEMA_EDICAO.Pergunta19 = Cells(lin, 48)
If Cells(lin, 49) = "SIM" Then
SISTEMA_EDICAO.SIM20 = True
Else
SISTEMA_EDICAO.NAO20 = False
End If
SISTEMA_EDICAO.Pergunta20 = Cells(lin, 50)
If Cells(lin, 51) = "SIM" Then
SISTEMA_EDICAO.SIM21 = True
Else
SISTEMA_EDICAO.NAO21 = False
End If
SISTEMA_EDICAO.Pergunta21 = Cells(lin, 52)
If Cells(lin, 53) = "SIM" Then
SISTEMA_EDICAO.SIM22 = True
Else
SISTEMA_EDICAO.NAO22 = False
End If
SISTEMA_EDICAO.Pergunta22 = Cells(lin, 54)
If Cells(lin, 55) = "SIM" Then
SISTEMA_EDICAO.SIM23 = True
Else
SISTEMA_EDICAO.NAO23 = False
End If
SISTEMA_EDICAO.Pergunta23 = Cells(lin, 56)
If Cells(lin, 57) = "SIM" Then
SISTEMA_EDICAO.SIM24 = True
Else
SISTEMA_EDICAO.NAO24 = False
End If
SISTEMA_EDICAO.Pergunta24 = Cells(lin, 58)
If Cells(lin, 59) = "SIM" Then
SISTEMA_EDICAO.SIM25 = True
Else
SISTEMA_EDICAO.NAO25 = False
End If
SISTEMA_EDICAO.Pergunta25 = Cells(lin, 60)
If Cells(lin, 61) = "SIM" Then
SISTEMA_EDICAO.SIM26 = True
Else
SISTEMA_EDICAO.NAO26 = False
End If
SISTEMA_EDICAO.Pergunta26 = Cells(lin, 62)
If Cells(lin, 63) = "SIM" Then
SISTEMA_EDICAO.SIM27 = True
Else
SISTEMA_EDICAO.NAO27 = False
End If
SISTEMA_EDICAO.Pergunta27 = Cells(lin, 64)
If Cells(lin, 65) = "SIM" Then
SISTEMA_EDICAO.SIM28 = True
Else
SISTEMA_EDICAO.NAO28 = False
End If
SISTEMA_EDICAO.Pergunta28 = Cells(lin, 66)
If Cells(lin, 67) = "SIM" Then
SISTEMA_EDICAO.SIM29 = True
Else
SISTEMA_EDICAO.NAO29 = False
End If
SISTEMA_EDICAO.Pergunta29 = Cells(lin, 68)
If Cells(lin, 69) = "SIM" Then
SISTEMA_EDICAO.SIM30 = True
Else
SISTEMA_EDICAO.NAO30 = False
End If
SISTEMA_EDICAO.Pergunta30 = Cells(lin, 70)
SISTEMA_EDICAO.Pergunta31 = Cells(lin, 71)
SISTEMA_EDICAO.Pergunta32 = Cells(lin, 72)
If Cells(lin, 73) = "SIM" Then
SISTEMA_EDICAO.SIM33 = True
Else
SISTEMA_EDICAO.NAO33 = False
End If
SISTEMA_EDICAO.Pergunta33 = Cells(lin, 74)
If Cells(lin, 75) = "SIM" Then
SISTEMA_EDICAO.SIM34 = True
Else
SISTEMA_EDICAO.NAO34 = False
End If
SISTEMA_EDICAO.Pergunta34 = Cells(lin, 76)
If Cells(lin, 77) = "SIM" Then
SISTEMA_EDICAO.SIM35 = True
Else
SISTEMA_EDICAO.NAO35 = False
End If
SISTEMA_EDICAO.Pergunta35 = Cells(lin, 78)
If Cells(lin, 79) = "SIM" Then
SISTEMA_EDICAO.SIM36 = True
Else
SISTEMA_EDICAO.NAO36 = False
End If
SISTEMA_EDICAO.Pergunta36 = Cells(lin, 80)
If Cells(lin, 81) = "SIM" Then
SISTEMA_EDICAO.SIM37 = True
Else
SISTEMA_EDICAO.NAO37 = False
End If
SISTEMA_EDICAO.Pergunta37 = Cells(lin, 82)
If Cells(lin, 83) = "SIM" Then
SISTEMA_EDICAO.SIM38 = True
Else
SISTEMA_EDICAO.NAO38 = False
End If
SISTEMA_EDICAO.Pergunta38 = Cells(lin, 84)
If Cells(lin, 85) = "SIM" Then
SISTEMA_EDICAO.SIM39 = True
Else
SISTEMA_EDICAO.NAO39 = False
End If
SISTEMA_EDICAO.Pergunta39 = Cells(lin, 86)
SISTEMA_EDICAO.Pergunta40 = Cells(lin, 87)
If Cells(lin, 88) = "SIM" Then
SISTEMA_EDICAO.SIM41 = True
Else
SISTEMA_EDICAO.NAO41 = False
End If
SISTEMA_EDICAO.TextBox2_OBS = Cells(lin, 89)
SISTEMA_EDICAO.Show
Exit For
End If
Next I
End With
End With
End Sub
Private Sub novo_Click()
Me.salvar.Enabled = True
Me.nome.SetFocus
Me.ID.Value = Planilha3.Range("XFD1").Value
End Sub
Sub Atualizar_ListBox()
linha = Sheets("Relatorio_Adulto").Range("B1000000").End(xlUp).Row
SISTEMA_ADULTO.ListBox_adulto.ColumnCount = 9
SISTEMA_ADULTO.ListBox_adulto.ColumnHeads = True
SISTEMA_ADULTO.ListBox_adulto.ColumnWidths = "30;50;50;200;50;70;50;200;50"
SISTEMA_ADULTO.ListBox_adulto.RowSource = "Relatorio_Adulto!B2:J" & linha
End Sub
Private Sub Pesquisar_Click()
Atualizar_ListBox
End Sub
Private Sub salvar_Click()
SalvarNovoCadastro
End Sub
Private Sub SalvarNovoCadastro()
Dim Campoembranco As Boolean
Dim linha1 As Integer
Campoembranco = False
If nome = "" Then Campoembranco = True
If proposta = "" Then Campoembranco = True
If label_cpf = "" Then Campoembranco = True
If label_datanasc = "" Then Campoembranco = True
If Campoembranco = True Then
MsgBox "Campo sem preenchimento!", vbInformation, "Campo em branco"
Exit Sub
End If
linha1 = 2
Do While Planilha3.Cells(linha1, 2) <> ""
linha1 = linha1 + 1
Loop
Planilha3.Cells(linha1, 1) = usuario
Planilha3.Cells(linha1, 2) = Planilha3.Range("XFD1").Value + 1
Planilha3.Cells(linha1, 3) = data
Planilha3.Cells(linha1, 4) = hora
Planilha3.Cells(linha1, 5) = nome.Value
Planilha3.Cells(linha1, 6) = proposta.Value
Planilha3.Cells(linha1, 7) = label_cpf.Value
Planilha3.Cells(linha1, 8) = label_datanasc.Value
If SISTEMA_ADULTO.SIMSUCESSO.Value = True Then
Planilha3.Cells(linha1, 9) = "SIM"
Else
Planilha3.Cells(linha1, 9) = "NÃO"
End If
Planilha3.Cells(linha1, 10) = contato1.Value
Planilha3.Cells(linha1, 11) = contato2.Value
Planilha3.Cells(linha1, 12) = contato2.Value
Planilha3.Cells(linha1, 13) = contato4.Value
Planilha3.Cells(linha1, 14) = altura.Value
Planilha3.Cells(linha1, 15) = peso.Value
Planilha3.Cells(linha1, 16) = imc.Value
If SISTEMA_ADULTO.SIM4.Value = True Then
Planilha3.Cells(linha1, 17) = "SIM"
Else
Planilha3.Cells(linha1, 17) = "NÃO"
End If
Planilha3.Cells(linha1, 18) = Pergunta4.Value
If SISTEMA_ADULTO.SIM5.Value = True Then
Planilha3.Cells(linha1, 19) = "SIM"
Else
Planilha3.Cells(linha1, 19) = "NÃO"
End If
Planilha3.Cells(linha1, 20) = Pergunta5.Value
If SISTEMA_ADULTO.SIM6.Value = True Then
Planilha3.Cells(linha1, 21) = "SIM"
Else
Planilha3.Cells(linha1, 21) = "NÃO"
End If
Planilha3.Cells(linha1, 22) = Pergunta6.Value
If SISTEMA_ADULTO.SIM7.Value = True Then
Planilha3.Cells(linha1, 23) = "SIM"
Else
Planilha3.Cells(linha1, 23) = "NÃO"
End If
Planilha3.Cells(linha1, 24) = Pergunta7.Value
If SISTEMA_ADULTO.SIM8.Value = True Then
Planilha3.Cells(linha1, 25) = "SIM"
Else
Planilha3.Cells(linha1, 25) = "NÃO"
End If
Planilha3.Cells(linha1, 26) = Pergunta8.Value
If SISTEMA_ADULTO.SIM9.Value = True Then
Planilha3.Cells(linha1, 27) = "SIM"
Else
Planilha3.Cells(linha1, 27) = "NÃO"
End If
Planilha3.Cells(linha1, 28) = Pergunta9.Value
If SISTEMA_ADULTO.SIM10.Value = True Then
Planilha3.Cells(linha1, 29) = "SIM"
Else
Planilha3.Cells(linha1, 29) = "NÃO"
End If
Planilha3.Cells(linha1, 30) = Pergunta10.Value
If SISTEMA_ADULTO.SIM11.Value = True Then
Planilha3.Cells(linha1, 31) = "SIM"
Else
Planilha3.Cells(linha1, 31) = "NÃO"
End If
Planilha3.Cells(linha1, 32) = Pergunta11.Value
If SISTEMA_ADULTO.SIM12.Value = True Then
Planilha3.Cells(linha1, 33) = "SIM"
Else
Planilha3.Cells(linha1, 33) = "NÃO"
End If
Planilha3.Cells(linha1, 34) = Pergunta12.Value
If SISTEMA_ADULTO.SIM13.Value = True Then
Planilha3.Cells(linha1, 35) = "SIM"
Else
Planilha3.Cells(linha1, 35) = "NÃO"
End If
Planilha3.Cells(linha1, 36) = Pergunta13.Value
If SISTEMA_ADULTO.SIM14.Value = True Then
Planilha3.Cells(linha1, 37) = "SIM"
Else
Planilha3.Cells(linha1, 37) = "NÃO"
End If
Planilha3.Cells(linha1, 38) = Pergunta14.Value
If SISTEMA_ADULTO.SIM15.Value = True Then
Planilha3.Cells(linha1, 39) = "SIM"
Else
Planilha3.Cells(linha1, 39) = "NÃO"
End If
Planilha3.Cells(linha1, 40) = Pergunta15.Value
If SISTEMA_ADULTO.SIM16.Value = True Then
Planilha3.Cells(linha1, 41) = "SIM"
Else
Planilha3.Cells(linha1, 41) = "NÃO"
End If
Planilha3.Cells(linha1, 42) = Pergunta16.Value
If SISTEMA_ADULTO.SIM17.Value = True Then
Planilha3.Cells(linha1, 43) = "SIM"
Else
Planilha3.Cells(linha1, 43) = "NÃO"
End If
Planilha3.Cells(linha1, 44) = Pergunta17.Value
If SISTEMA_ADULTO.SIM18.Value = True Then
Planilha3.Cells(linha1, 45) = "SIM"
Else
Planilha3.Cells(linha1, 45) = "NÃO"
End If
Planilha3.Cells(linha1, 46) = Pergunta18.Value
If SISTEMA_ADULTO.SIM19.Value = True Then
Planilha3.Cells(linha1, 47) = "SIM"
Else
Planilha3.Cells(linha1, 47) = "NÃO"
End If
Planilha3.Cells(linha1, 48) = Pergunta19.Value
If SISTEMA_ADULTO.SIM20.Value = True Then
Planilha3.Cells(linha1, 49) = "SIM"
Else
Planilha3.Cells(linha1, 49) = "NÃO"
End If
Planilha3.Cells(linha1, 50) = Pergunta20.Value
If SISTEMA_ADULTO.SIM21.Value = True Then
Planilha3.Cells(linha1, 51) = "SIM"
Else
Planilha3.Cells(linha1, 51) = "NÃO"
End If
Planilha3.Cells(linha1, 52) = Pergunta21.Value
If SISTEMA_ADULTO.SIM22.Value = True Then
Planilha3.Cells(linha1, 53) = "SIM"
Else
Planilha3.Cells(linha1, 53) = "NÃO"
End If
Planilha3.Cells(linha1, 54) = Pergunta22.Value
If SISTEMA_ADULTO.SIM23.Value = True Then
Planilha3.Cells(linha1, 55) = "SIM"
Else
Planilha3.Cells(linha1, 55) = "NÃO"
End If
Planilha3.Cells(linha1, 56) = Pergunta23.Value
If SISTEMA_ADULTO.SIM24.Value = True Then
Planilha3.Cells(linha1, 57) = "SIM"
Else
Planilha3.Cells(linha1, 57) = "NÃO"
End If
Planilha3.Cells(linha1, 58) = Pergunta24.Value
If SISTEMA_ADULTO.SIM25.Value = True Then
Planilha3.Cells(linha1, 59) = "SIM"
Else
Planilha3.Cells(linha1, 59) = "NÃO"
End If
Planilha3.Cells(linha1, 60) = Pergunta25.Value
If SISTEMA_ADULTO.SIM26.Value = True Then
Planilha3.Cells(linha1, 61) = "SIM"
Else
Planilha3.Cells(linha1, 61) = "NÃO"
End If
Planilha3.Cells(linha1, 62) = Pergunta26.Value
If SISTEMA_ADULTO.SIM27.Value = True Then
Planilha3.Cells(linha1, 63) = "SIM"
Else
Planilha3.Cells(linha1, 63) = "NÃO"
End If
Planilha3.Cells(linha1, 64) = Pergunta27.Value
If SISTEMA_ADULTO.SIM28.Value = True Then
Planilha3.Cells(linha1, 65) = "SIM"
Else
Planilha3.Cells(linha1, 65) = "NÃO"
End If
Planilha3.Cells(linha1, 66) = Pergunta28.Value
If SISTEMA_ADULTO.SIM29.Value = True Then
Planilha3.Cells(linha1, 67) = "SIM"
Else
Planilha3.Cells(linha1, 67) = "NÃO"
End If
Planilha3.Cells(linha1, 68) = Pergunta29.Value
If SISTEMA_ADULTO.SIM30.Value = True Then
Planilha3.Cells(linha1, 69) = "SIM"
Else
Planilha3.Cells(linha1, 69) = "NÃO"
End If
Planilha3.Cells(linha1, 70) = Pergunta30.Value
Planilha3.Cells(linha1, 71) = Pergunta31.Value
Planilha3.Cells(linha1, 72) = Pergunta32.Value
If SISTEMA_ADULTO.SIM33.Value = True Then
Planilha3.Cells(linha1, 73) = "SIM"
Else
Planilha3.Cells(linha1, 73) = "NÃO"
End If
Planilha3.Cells(linha1, 74) = Pergunta33.Value
If SISTEMA_ADULTO.SIM34.Value = True Then
Planilha3.Cells(linha1, 75) = "SIM"
Else
Planilha3.Cells(linha1, 75) = "NÃO"
End If
Planilha3.Cells(linha1, 76) = Pergunta34.Value
If SISTEMA_ADULTO.SIM35.Value = True Then
Planilha3.Cells(linha1, 77) = "SIM"
Else
Planilha3.Cells(linha1, 77) = "NÃO"
End If
Planilha3.Cells(linha1, 78) = Pergunta35.Value
If SISTEMA_ADULTO.SIM36.Value = True Then
Planilha3.Cells(linha1, 79) = "SIM"
Else
Planilha3.Cells(linha1, 79) = "NÃO"
End If
Planilha3.Cells(linha1, 80) = Pergunta36.Value
If SISTEMA_ADULTO.SIM37.Value = True Then
Planilha3.Cells(linha1, 81) = "SIM"
Else
Planilha3.Cells(linha1, 81) = "NÃO"
End If
Planilha3.Cells(linha1, 82) = Pergunta37.Value
If SISTEMA_ADULTO.SIM38.Value = True Then
Planilha3.Cells(linha1, 83) = "SIM"
Else
Planilha3.Cells(linha1, 83) = "NÃO"
End If
Planilha3.Cells(linha1, 84) = Pergunta38.Value
If SISTEMA_ADULTO.SIM39.Value = True Then
Planilha3.Cells(linha1, 85) = "SIM"
Else
Planilha3.Cells(linha1, 85) = "NÃO"
End If
Planilha3.Cells(linha1, 86) = Pergunta39.Value
Planilha3.Cells(linha1, 87) = Pergunta40.Value
If SISTEMA_ADULTO.SIM41.Value = True Then
Planilha3.Cells(linha1, 88) = "SIM"
Else
Planilha3.Cells(linha1, 88) = "NÃO"
End If
Planilha3.Cells(linha1, 89) = TextBox2_OBS.Value
Unload SISTEMA_ADULTO
MsgBox "Cadastro salvo com sucesso!", vbInformation, "Cadastro Salvo"
SISTEMA_ADULTO.Show
End Sub
Private Sub proposta_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub UserForm_Initialize()
imc.AddItem "Menor que 18,5 - Baixo peso"
imc.AddItem "De 18,5 a 24,9 - Peso normal"
imc.AddItem "De 25 a 29,9 - Sobrepeso"
imc.AddItem "De 30 a 34,9 - Obesidade grau I"
imc.AddItem "De 35 a 39.9 - Obesidade grau II"
imc.AddItem "Igual ou maior que 40 - Obesidade grau III"
data = Format(Date, "dd/mm/yyyy")
hora = Format(Time, "hh:mm:ss")
usuario = Application.UserName
Me.MultiPage1.Value = 0
End Sub
Private Sub label_cpf_Change()
Dim cpf As String, CPF2 As String, CPF3 As String
Dim I As Integer, j As Integer, n As Integer
cpf = label_cpf.Value
label_cpf.MaxLength = 14
I = Len(cpf)
For j = 1 To I
If IsNumeric(Mid(cpf, j, 1)) Then
CPF2 = CPF2 & Mid(cpf, j, 1)
End If
Next
I = Len(CPF2)
For j = 1 To I
CPF3 = CPF3 & Mid(CPF2, j, 1)
If j = 4 Or j = 7 Then
n = Len(CPF3) - 1
CPF3 = Left(CPF3, n) & "." & Right(CPF3, 1)
ElseIf j = 10 Then
n = Len(CPF3) - 1
CPF3 = Left(CPF3, n) & "-" & Right(CPF3, 1)
End If
Next
label_cpf.Value = CPF3
End Sub
Private Sub label_cpf_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Private Sub label_datanasc_Change()
Dim datanasc As String, datanasc2 As String, datanasc3 As String
Dim I As Integer, j As Integer, n As Integer
datanasc = label_datanasc.Value
label_datanasc.MaxLength = 10
I = Len(datanasc)
For j = 1 To I
If IsNumeric(Mid(datanasc, j, 1)) Then
datanasc2 = datanasc2 & Mid(datanasc, j, 1)
End If
Next
I = Len(datanasc2)
For j = 1 To I
datanasc3 = datanasc3 & Mid(datanasc2, j, 1)
If j = 3 Or j = 5 Then
n = Len(datanasc3) - 1
datanasc3 = Left(datanasc3, n) & "/" & Right(datanasc3, 1)
End If
Next
label_datanasc.Value = datanasc3
End Sub
Private Sub label_datanasc_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Private Sub gerarpdf_Click()
Dim linha As Integer
With Planilha3
linha = .Range("B:B").Find(Me.ListBox_adulto.List(Me.ListBox_adulto.ListIndex), lookat:=1).Row
Planilha2.Range("A8").Cells = .Cells(linha, 1)
Planilha2.Range("A11").Cells = .Cells(linha, 2)
Planilha2.Range("A14").Cells = .Cells(linha, 3)
Planilha2.Range("A17").Cells = .Cells(linha, 4)
Planilha2.Range("A20").Cells = .Cells(linha, 5)
Planilha2.Range("A23").Cells = .Cells(linha, 6)
Planilha2.Range("A26").Cells = .Cells(linha, 7)
Planilha2.Range("A29").Cells = .Cells(linha, 8)
Planilha2.Range("A32").Cells = .Cells(linha, 9)
Planilha2.Range("A35").Cells = .Cells(linha, 10)
Planilha2.Range("A38").Cells = .Cells(linha, 11)
Planilha2.Range("A41").Cells = .Cells(linha, 12)
Planilha2.Range("A44").Cells = .Cells(linha, 13)
Planilha2.Range("A47").Cells = .Cells(linha, 14)
Planilha2.Range("A50").Cells = .Cells(linha, 15)
Planilha2.Range("A53").Cells = .Cells(linha, 16)
Planilha2.Range("A56").Cells = .Cells(linha, 17)
Planilha2.Range("A59").Cells = .Cells(linha, 18)
Planilha2.Range("A62").Cells = .Cells(linha, 19)
Planilha2.Range("A65").Cells = .Cells(linha, 20)
Planilha2.Range("A68").Cells = .Cells(linha, 21)
Planilha2.Range("A71").Cells = .Cells(linha, 22)
Planilha2.Range("A74").Cells = .Cells(linha, 23)
Planilha2.Range("A77").Cells = .Cells(linha, 24)
Planilha2.Range("A80").Cells = .Cells(linha, 25)
Planilha2.Range("A83").Cells = .Cells(linha, 26)
Planilha2.Range("A86").Cells = .Cells(linha, 27)
Planilha2.Range("A89").Cells = .Cells(linha, 28)
Planilha2.Range("A92").Cells = .Cells(linha, 29)
Planilha2.Range("A95").Cells = .Cells(linha, 30)
Planilha2.Range("A98").Cells = .Cells(linha, 31)
Planilha2.Range("A101").Cells = .Cells(linha, 32)
Planilha2.Range("A104").Cells = .Cells(linha, 33)
Planilha2.Range("A107").Cells = .Cells(linha, 34)
Planilha2.Range("A110").Cells = .Cells(linha, 35)
Planilha2.Range("A113").Cells = .Cells(linha, 36)
Planilha2.Range("A116").Cells = .Cells(linha, 37)
Planilha2.Range("A119").Cells = .Cells(linha, 38)
Planilha2.Range("A122").Cells = .Cells(linha, 39)
Planilha2.Range("A125").Cells = .Cells(linha, 40)
Planilha2.Range("A128").Cells = .Cells(linha, 41)
Planilha2.Range("A131").Cells = .Cells(linha, 42)
Planilha2.Range("A134").Cells = .Cells(linha, 43)
Planilha2.Range("A137").Cells = .Cells(linha, 44)
Planilha2.Range("A140").Cells = .Cells(linha, 45)
Planilha2.Range("A143").Cells = .Cells(linha, 46)
Planilha2.Range("A146").Cells = .Cells(linha, 47)
Planilha2.Range("A149").Cells = .Cells(linha, 48)
Planilha2.Range("A152").Cells = .Cells(linha, 49)
Planilha2.Range("A155").Cells = .Cells(linha, 50)
Planilha2.Range("A158").Cells = .Cells(linha, 51)
Planilha2.Range("A161").Cells = .Cells(linha, 52)
Planilha2.Range("A164").Cells = .Cells(linha, 53)
Planilha2.Range("A167").Cells = .Cells(linha, 54)
Planilha2.Range("A170").Cells = .Cells(linha, 55)
Planilha2.Range("A173").Cells = .Cells(linha, 56)
Planilha2.Range("A176").Cells = .Cells(linha, 57)
Planilha2.Range("A179").Cells = .Cells(linha, 58)
Planilha2.Range("A182").Cells = .Cells(linha, 59)
Planilha2.Range("A185").Cells = .Cells(linha, 60)
Planilha2.Range("A188").Cells = .Cells(linha, 61)
Planilha2.Range("A191").Cells = .Cells(linha, 62)
Planilha2.Range("A194").Cells = .Cells(linha, 63)
Planilha2.Range("A197").Cells = .Cells(linha, 64)
Planilha2.Range("A200").Cells = .Cells(linha, 65)
Planilha2.Range("A203").Cells = .Cells(linha, 66)
Planilha2.Range("A206").Cells = .Cells(linha, 67)
Planilha2.Range("A209").Cells = .Cells(linha, 68)
Planilha2.Range("A212").Cells = .Cells(linha, 69)
Planilha2.Range("A215").Cells = .Cells(linha, 70)
Planilha2.Range("A218").Cells = .Cells(linha, 71)
Planilha2.Range("A221").Cells = .Cells(linha, 72)
Planilha2.Range("A224").Cells = .Cells(linha, 73)
Planilha2.Range("A227").Cells = .Cells(linha, 74)
Planilha2.Range("A230").Cells = .Cells(linha, 75)
Planilha2.Range("A233").Cells = .Cells(linha, 76)
Planilha2.Range("A236").Cells = .Cells(linha, 77)
Planilha2.Range("A239").Cells = .Cells(linha, 78)
Planilha2.Range("A242").Cells = .Cells(linha, 79)
Planilha2.Range("A245").Cells = .Cells(linha, 80)
Planilha2.Range("A248").Cells = .Cells(linha, 81)
Planilha2.Range("A251").Cells = .Cells(linha, 82)
Planilha2.Range("A254").Cells = .Cells(linha, 83)
Planilha2.Range("A257").Cells = .Cells(linha, 84)
Planilha2.Range("A260").Cells = .Cells(linha, 85)
Planilha2.Range("A263").Cells = .Cells(linha, 86)
Planilha2.Range("A266").Cells = .Cells(linha, 87)
Planilha2.Range("A269").Cells = .Cells(linha, 88)
Planilha2.Range("A272").Cells = .Cells(linha, 89)
Call Gerar_Pdf
End With
End Sub
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.