Pesquisar na Comunidade

Boa noite pessoal, como vão? Sou novo no forum e preciso muito da ajuda de vocês. Estou trabalhando com uma planilha que não apresentava problemas até pouco tempo atrás, mas, após formatação do PC em que trabalho, ela começou à apresentar este ERRO. Sou muito leigo em VBA, então, realmente preciso de ajuda tipo "passo-a-passo". Quando clico em "depurar" e abro o VBA, este seleciona de amarelo a parte em que expus em negrito e sublinhado: Desde já agradeço. Private Sub Botão_OK_Click() 'If Sheets("Simulação").Range("E8") = "10605-4" Then ' If Me.Rendimento > 2500 Then ' MsgBox "Digite um valor de Benefício <= R$2.500,00 !", vbCritical ' Me.Rendimento.SetFocus ' Exit Sub ' End If 'Else ' If Me.Rendimento > 2500 Then ' MsgBox "Digite um valor de Rendimento Líquido <= R$2.500,00 !", vbCritical ' Me.Rendimento.SetFocus ' Exit Sub ' End If 'End If ' If Sheets("Simulação").Range("a2") = "1" Then ' Me.Remuneração = 0# ' Me.Remuneração.SetFocus ' Exit Sub ' Else ' Me.Remuneração = 0 ' If Me.Remuneração > 0 Then ' Beep ' MsgBox "A Remuneração do CCA deve ser 0 ", vbCritical ' 'Me.Remuneração.SetFocus ' Me.Remuneração = 0 ' Exit Sub ' End If 'End If If Me.Valor = Empty Then Beep MsgBox "Digite um valor válido!", vbCritical Me.Valor.SetFocus Exit Sub End If If Me.DataConc = Empty Or Not IsDate(Me.DataConc) Then Beep MsgBox "Digite uma data válida!", vbCritical Me.DataConc.SetFocus Exit Sub End If If Me.Prazo = Empty Or Val(Me.Prazo) > Sheets("Simulação").Range("Y9") Then Beep MsgBox "Digite um prazo <= " & Sheets("Simulação").Range("Y9"), vbCritical Me.Prazo.SetFocus Exit Sub End If Dim int_Aux As Range Dim Ln, Num As Long Set int_Aux = Sheets("Convenente").Columns(1).Find("*", searchDirection:=xlPrevious) Ln = int_Aux.Row Volta: Sheets("Cálculo").Range("C13") = CDate(DataConc.Value) Sheets("Cálculo").Range("C5") = CSng(Prazo.Value) ' Sheets("Cálculo").Range("L4") = CSng(Remuneração.Value) Sheets("Cálculo").Range("c3") = CSng(SaldoDevedor.Value) If Prazo.Value < 7 Then ' Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[9],6,FALSE)/100" Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[11],6,FALSE)/100" ElseIf Prazo.Value < 13 Then ' Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[9],7,FALSE)/100" Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[11],7,FALSE)/100" ElseIf Prazo.Value < 25 Then ' Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[9],8,FALSE)/100" Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[11],8,FALSE)/100" ElseIf Prazo.Value < 37 Then ' Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[9],9,FALSE)/100" Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[11],9,FALSE)/100" ElseIf Prazo.Value < 49 Then ' Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[9],10,FALSE)/100" Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[11],10,FALSE)/100" ElseIf Prazo.Value < 61 Then ' Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[9],11,FALSE)/100" Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[11],11,FALSE)/100" ElseIf Prazo.Value < 73 Then ' Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[9],12,FALSE)/100" Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[11],12,FALSE)/100" ElseIf Prazo.Value < 97 Then ' Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[9],12,FALSE)/100" Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[11],13,FALSE)/100" Else ' Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[9],13,FALSE)/100" Sheets("Cálculo").Range("C6").FormulaR1C1 = "=VLOOKUP(Simulação!R[3]C[4],Convenente!R[-3]C[-2]:R[" & Ln - 6 & "]C[11],14,FALSE)/100" End If ' If OptionButton1.Value = False Then ' Sheets("Cálculo").Range("C4") = CDbl(Valor.Value) ' End If If OptionButton2.Value = True Then ' Sheets("Cálculo").Range("C11").GoalSeek Goal:=CDbl(Valor.Value), ChangingCell:=Sheets("Cálculo").Range("C11") Sheets("Cálculo").Range("C11") = CDbl(Valor.Value) End If If OptionButton3.Value = True Then Sheets("Cálculo").Range("C146").GoalSeek Goal:=CDbl(Valor.Value) * -1, ChangingCell:=Sheets("Cálculo").Range("C11") End If If Sheets("Simulação").Range("E8") = "10605-4" Then If Sheets("Cálculo").Range("C21") * -1 >= Me.Rendimento * 0.3 Then MsgBox "Prestação maior que o permitido! Será apresentado cálculo do valor máximo", vbCritical Sheets("Cálculo").Range("C21").GoalSeek Goal:=Me.Rendimento * -0.3, ChangingCell:=Sheets("Cálculo").Range("C4") End If Else If Sheets("Cálculo").Range("C21") * -1 >= Me.Rendimento * 0.3 Then MsgBox "Prestação maior que o permitido! Será apresentado cálculo do valor máximo", vbCritical Sheets("Cálculo").Range("C21").GoalSeek Goal:=Me.Rendimento * -0.3, ChangingCell:=Sheets("Cálculo").Range("C4") End If End If ' If OptionButton1.Value <> True Then ' Me.Valor = Round(Plan2.Cells(4, 3), 2) ' OptionButton1.Value = True ' GoTo Volta ' End If Escolha.Hide End Sub Private Sub DataConc_Change() End Sub Private Sub Label10_Click() End Sub Private Sub TextBox2_Change() End Sub Private Sub OptionButton4_Click() End Sub Private Sub Label12_Click() End Sub Private Sub Label13_Click() End Sub Private Sub Label9_Click() End Sub Private Sub OptionButton1_Click() End Sub Private Sub Label2_Click() End Sub Private Sub OptionButton2_Click() End Sub Private Sub Prazo_Change() End Sub Private Sub Remuneração_Change() End Sub Private Sub TextBox1_Change() End Sub Private Sub Rendimento_Change() End Sub Private Sub SaldoDevedor_Change() End Sub Private Sub UserForm_Initialize() If Sheets("Simulação").Range("E8") = "10605-4" Then LabelRendimento.Caption = "Renda do Cliente" ' LabelRemuneração.Caption = 0 Else LabelRendimento.Caption = "Renda do Cliente" ' LabelRemuneração.Caption = 2 End If End Sub Private Sub Valor_Change() End Sub