none
Chamar um formulário para que ele execute ações RRS feed

  • Pergunta

  • Pessoal, bom dia.

    Sou um novo usuário e gostaria da ajuda de vocês para resolver um formulário que estou desenvolvendo aqui para facilitar o trabalho de busca da equipe de N1.

    Estou com algumas dificuldades, para deixar esse sistema funcionando.

    - Fazer que esse formulário seja chamado clicando um botão:

    - Quando eu faço isso com o comando abaixo eu não sei como executar os demais comandos que o formulário tem.

    -> Module:

    Sub ChamarForm()
        IOP.Show
    End Sub

    -> User form:

    Private Sub UserForm_Initialize()
     Dim Linha As Integer
      Linha = 1
       Do Until Sheet5.Cells(Linha, 1) = “”
       ComboBox1.AddItem Sheet5.Cells(Linha, 1)
      Linha = Linha + 1
     Loop
    End Sub


    Private Sub Pesquisar_Bot_Click()
     With Sheet1.Range("A:H")
      Set C = .Find(Pesquisa_Box.Value, LookIn:=xlValues, LOOKAT:=xlWhole)
        If Not C Is Nothing Then
        
        'CÓDIGO
          Codigo_box.Text = C.Offset(0, 0)
          Resolutiva_box.Text = C.Offset(0, 1)
          Atuacao_Box.Text = C.Offset(0, 2)
          Status_box.Text = C.Offset(0, 3)
          BUG_Box.Text = C.Offset(0, 7)
          TASK_Box.Text = C.Offset(0, 4)
          WA_Box.Text = C.Offset(0, 5)
          PB_Box.Text = C.Offset(0, 6)
        
         End If
        If C Is Nothing Then
         MsgBox ("Nome Não Encontrado!!!"), vbOKOnly, ("Seu Aplicativo Pesquisando Dados")
       End If
      End With
    End Sub
        

    End Sub

    Outro problema que estou enfrentando seria fazer com que o formulário se comportasse de forma diferente quando o usuário selecionasse alguma opção do combobox, como por exemplo:

    TASK; WA; CODIGO; BUSCAG;
    O offset mudasse

    Desde já agradeço a ajuda
    segunda-feira, 8 de julho de 2019 15:31