Gostaria de ajuda para resolver o problema da sub abaixo:
Private Sub CmBt_Calcular_Click()
Dim fu
Dim PlanAtiva As String
PlanAtiva = ActiveSheet.Name() ' planilha ativa pode ser U_Laminado ou I_Laminado
Perfil = "Perfil_" & Left(PlanAtiva, 1) ' O resultado na variável Perfil pode ser Perfil_U ou Perfil_I
fu = CInt(Perfil.TxBx_fu.Value)
.
.
.
Unload Me
End Sub
Quando da execução de "fu = CInt(Perfil.TxBx_fu.Value), aparece a seguinte mensagem de erro: "Erro em tempo de execução '424': O objeto é obrigatório".
A variável Perfil se refere a dois formulário abertos, chamados "Perfil_I" e "Perfil_U", no qual está contido na caixa de texto TxBx_fu o valor que preciso para realizar cálculos. Parece que a forma de referenciar ao formulário dentro do comando fu = Cint(Perfil.......) está errada.
Como resolver esta questão????
Private Sub CmBt_Calcular_Click()
Dim fu
Dim PlanAtiva As String
PlanAtiva = ActiveSheet.Name() ' planilha ativa pode ser U_Laminado ou I_Laminado
Perfil = "Perfil_" & Left(PlanAtiva, 1) ' O resultado na variável Perfil pode ser Perfil_U ou Perfil_I
fu = CInt(Perfil.TxBx_fu.Value)
.
.
.
Unload Me
End Sub
Quando da execução de "fu = CInt(Perfil.TxBx_fu.Value), aparece a seguinte mensagem de erro: "Erro em tempo de execução '424': O objeto é obrigatório".
A variável Perfil se refere a dois formulário abertos, chamados "Perfil_I" e "Perfil_U", no qual está contido na caixa de texto TxBx_fu o valor que preciso para realizar cálculos. Parece que a forma de referenciar ao formulário dentro do comando fu = Cint(Perfil.......) está errada.
Como resolver esta questão????