none
Ativar Duplo Click ListBox RRS feed

  • Pergunta

  • Olá boa tarde

    Minha lista é extensa na ListBox, e gostaria de ter mais espaço na tela. Será possível dar duplo click em cima do nome e inserir?

    Private Sub CommandButton1_Click()
    Dim smensagem As String
    If ActiveCell.Column >= 11 And ActiveCell.Column <= 11 Then
     ActiveCell = ListBox1
    End
      Else
     If resposta <> True Then
            MsgBox "Selecione A Coluna Dos Nomes.", vbCritical, "ALERTA DE ERRO"
            End
            End If
            End If
    End Sub
    Private Sub UserForm_Activate()
        Me.Top = 10
        Me.Left = 270
    End Sub
    Private Sub UserForm_Initialize()
            For Each plan In Worksheets
            ListBox1.AddItem plan.Name
        Next
    Me.ListBox1.List = Application.WorksheetFunction.Transpose(Plan1.Range("D4:D528"))
    End Sub

    http://www.4shared.com/file/y0nDnYwCce/Plan_Modelo.html

    Obrigado!

    sábado, 19 de abril de 2014 20:53

Respostas

  • Obrigado pela atenção.

    Resolvido a minha dúvida com o código modelo abaixo.

    Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
        Call CommandButton1_Click
    End Sub

    • Marcado como Resposta miguelinho70 domingo, 20 de abril de 2014 22:07
    domingo, 20 de abril de 2014 22:06