fabiommc10

 Deve ser algo como isso.

18 horas atrás, Basole disse:

Seria mais ou menos assim: 

Dim i     As Integer
Dim bNSel As Boolean

bNSel = False

With Me.Listbox1

        If .ListCount = 0 Then Exit Sub

            For i = 0 To .ListCount - 1
                If .Selected(i) = True Then
                   bNSel = True
                End If
            Next i
            
        If bNSel = False Then
             MsgBox "Item não foi selecionado"
             Exit Sub
        End If
End With

 

Resolveu perfeitamente!! 

Muito Obrigado Basole!!!

18 horas atrás, Basole disse:

Seria mais ou menos assim: 

Dim i     As Integer
Dim bNSel As Boolean

bNSel = False

With Me.Listbox1

        If .ListCount = 0 Then Exit Sub

            For i = 0 To .ListCount - 1
                If .Selected(i) = True Then
                   bNSel = True
                End If
            Next i
            
        If bNSel = False Then
             MsgBox "Item não foi selecionado"
             Exit Sub
        End If
End With

 

Depois do End With coloquei uma Call para ele gerar o procedimento de captura da linha e salvamento na planilha. 

Vi que após verificar e dar andamento à rotina, o programa tira a seleção da linha do listbox. Teria algum modo de manter a seleção da linha? 

Resolvi aqui. Vi que tinha uma linha de código para tirar a seleção:

ListBox_Resultado.selected(iListCount) = False

Obrigado!!

Olá Julfachi, boa tarde!

Faz esse procedimento e vê no que dá:

Vai em Painel de Controle  --> Todos os Itens do Painel de Controle  -->>  Central de Rede e Compartilhamento -->> Alterar as Configurações de compartilhamento avançadas

Ativa a "Descoberta de Rede"

Ativa o "Compartilhamento de Arquivo e Impressora"

Depois de ativar, tenta procurar novamente na rede.

Nos retorna para falar se resolveu.

Gente, boa tarde!

Alguém teria o código que verificar se alguma linha está selecionada no Listbox VBA Excel?

Seria assim:

Tenho um Listbox preenchido, quando clico 2x ele captura a linha selecionada e salva em determinado lugar da planilha. Essa parte já está certa.

Agora, quero adicionar um botão para que, quando eu clique uma vez no listbox e depois clique no botão, faça a mesma função - capturar a linha selecionada e salvar em um determinado lugar da planilha.

Resumindo: o que eu quero é:

1 - testar se o listbox está selecionado (se não estiver, ele exibe mensagem e sai da rotina);

Só isso mesmo. O restante já fiz tudinho. Quem puder me ajudar, agradeço desde agora!!!