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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |