Ir para conteúdo
Fórum Script Brasil
  • 0

Erro em tempo de execução 91 A variável do objeto ou a variável do bloco with não foi definida

Aline Rocha da Cunha

Perguntado por Aline Rocha da Cunha,

 Share

Pergunta

Aline Rocha da Cunha

Aline Rocha da Cunha

Postado
Postado

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

1 resposta a esta questão

Posts Recomendados

  • 0
Frank K Hosaka

Frank K Hosaka

Postado
Postado (editado)

Eu não tenho VBA, mas eu tenho Excel.

Criei uma nova planilha, e na planilha Plan1 eu escrevi teste na célula a1, a2 e a3.

Eu fui no painel de programação do Excel e com a ajuda do Copilot, eu ajustei o seu código: 

Sub Gerar_Pdf()
    Dim criarpasta As String, caminho_arquivo As String
    Dim ws As Worksheet
    
    'Define a planilha explicitamente
    Set ws = ThisWorkbook.Sheets("Plan1")
    
    criarpasta = ThisWorkbook.Path & "\Formularios"

    If Dir(criarpasta, vbDirectory) = "" Then
        MkDir criarpasta
    End If

    With ws
        .Activate
        caminho_arquivo = ThisWorkbook.Path & "\Formularios\" & .Range("A3").Value & ".PDF"

        .Range("A1:A2").ExportAsFixedFormat Type:=xlTypePDF, Filename:=caminho_arquivo
    End With
End Sub

Na Janela Imediata, eu escrevi Gerar_Pdf e deu certo.

Se não der certo, veja em Ferramentas > Referências se estão marcados as seguintes:
Visual Basic for Applications
Microsoft Excel 16.0 Object Libray
OLE Automation
Microsoft Office 16.0 Object Library

Se você estiver trabalhando com o VBA puro, sugiro procurar os comandos equivalentes.

Editado por Frank K Hosaka
Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...