none
Como abrir um formulário a partir de seu nome registrado na célula? RRS feed

  • Pergunta

  • Tentei da forma a seguir, mas não deu certo:

    Sub TESTE2()
    Dim frm As Object
    For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
        If ThisWorkbook.VBProject.VBComponents(i).Name = Sheets("CONFIGURACAO").Range("C2").Value Then
        Set frm = ThisWorkbook.VBProject.VBComponents(i).Designer
    frm.Show
    Exit For
    End If
    Next i
    End Sub

    Tenho este código, mas não gosto dele:

    Select Case Sheets("CONFIGURACAO").Range("C2").Value
    
    Case "frmEmprestimo"
    frmEmprestimo.Show
    Case "frmDevolucao"
    frmDevolucao.Show
    Case "frmAlterarCadastroAcervo"
    frmAlterarCadastroAcervo.Show
    Case "frmAlterarCadastroUsuario"
    frmAlterarCadastroUsuario.Show
    Case "frmCadastrarAcervo"
    frmCadastrarAcervo.Show
    Case "frmCadastrarUsuario"
    frmCadastrarUsuario.Show
    Case "frmConsultarAcervo"
    frmConsultarAcervo.Show
    Case "frmConsultarUsuario"
    frmConsultarUsuario.Show
    
    End Select


    Anderson Diniz



    terça-feira, 4 de julho de 2017 17:42