none
DUVIDA EM VBA USERFORM RRS feed

  • Pergunta

  • BOM DIA A TODOS,

    SE PUDEREM ME AJUDAR, AGRADEÇO MUITO.

    CRIEI UM FORMULÁRIO DE CADASTRO DE DOCUMENTOS, ONDE ELE TEM DIVERSAS GUIAS E TAMBÉM POSSUI NUMERADOR AUTOMÁTICO E INDEPENDENTE PARA CADA DOCUMENTO QUE O USUÁRIO ALTERAR NA COMBOBOX.

    NESTE FORMULÁRIO EXISTE UMA LISTBOX TAMBÉM, E É AÍ QUE ESTA O PROBLEMA.

    MINHA DIFICULDADE ESTÁ EM ASSOCIAR A LISTBOX A ESSA COMBOBOX, DE FORMA QUE, QUANDO O USUÁRIO MUDAR O TIPO DE DOCUMENTO (COMBOBOX), A LISTBOX DO FORMULÁRIO POSSA CARREGAR OS DADOS DA ABA(PLANILHA) QUE ELE SELECIONOU ATRAVÉS DO COMBOBOX.

     ESSE É O LINK DO FORMULÁRIO -  https://social.msdn.microsoft.com/Forums/getfile/1621564

    AI ESTA O FORMULÁRIO, E ABAIXO COLOCAREI O CODIGO ATÉ ONDE EU REALIZEI.

                     

    1) NESSE BOTÃO ELE SALVA AS INFORMAÇÕES NA PLANILHA

    'SALVAR'
    Private Sub CommandButton1_Click()

    If txtassunto = "" Then

        MsgBox "Informe o assunto!", vbExclamation, "Aviso"

    Exit Sub
    End If

    Dim ultimalinharow As Long
        For Each plan In ActiveWorkbook.Worksheets
    Next plan

        ul = Range("A" & Rows.Count).End(xlUp).Row
        txtnumerador = [L1] + 1
        Range("L1").Value = Range("L1").Value + 1

    Do
     If Not (IsEmpty(ActiveCell)) Then
        ActiveCell.Offset(1, 0).Select
     End If

      Loop Until IsEmpty(ActiveCell) = True
        ActiveCell.Offset(0, 0).Value = txtnumerador.Text
        ActiveCell.Offset(0, 1).Value = combobox1
        ActiveCell.Offset(0, 2).Value = txtassunto.Text

        MsgBox "CADASTRO REALIZADO", vbInformation

         Columns.AutoFit
         Unload Me
         'UserForm1.Show

    End Sub

    ' CARREGAR COMBOBOX
    Private Sub UserForm_Initialize()

        For Each aba In ThisWorkbook.Sheets
            combobox1.AddItem aba.Name
        Next


    End Sub

    Private Sub ComboBox1_Change()

        Sheets(combobox1.Value).Activate

    End Sub

    OBRIGADO.

    segunda-feira, 12 de outubro de 2020 10:34

Todas as Respostas