Notifications
Clear all

Ajuda com Código

10 Posts
5 Usuários
0 Reactions
1,354 Visualizações
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Óla amigos!
Encontrei esta planilha na internet e me atende em partes somente um pequeno ajuste que não estou conseguindo fazer.
Eu preciso que a Plan1 fique oculta então o código não funciona.
Alguém pode resolver este meu problema?
Fico no aguardo.
Obrigado!

 
Postado : 13/01/2016 2:22 pm
(@edcronos2)
Posts: 0
New Member
 

use isso no inicio do codigo que vai usar a plan1
ThisWorkbook.Sheets("Plan1").Visible = xlSheetVisible

e use isso no final para ocultar novamente
Worksheets("Plan1").Visible = xlSheetVeryHidden

 
Postado : 13/01/2016 3:25 pm
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Obrigado pela ajuda, mas não deu certo.
Eu quero que o código busque a plan1 no modo invisível, sera possível.

 
Postado : 13/01/2016 3:57 pm
(@trindade)
Posts: 0
New Member
 

Boa tarde, Miguel 70

Parte do seu código eu consegui montar.
O ComboBox esta preenchendo mesmo com a Plan1 oculta com o seguinte código:

Sub carregaCombo()

Dim linha As Integer
linha = 1
    
    Do Until Plan1.Range("T" & linha).Value = ""
        UserForm1.ComboBox1.AddItem Plan1.Range("T" & linha).Value
        linha = linha + 1
    Loop

End Sub

Já o ListBox eu não consegui adaptar ainda ...

 
Postado : 13/01/2016 4:55 pm
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Obrigado Trindade, é isso que estou precisando, como vc disse esta faltando o ListBox. Estou agradecido pela sua ajuda.

 
Postado : 13/01/2016 5:36 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não consegui compreender o objetivo da demanda x modelo de planilha.
Mas para utilizar os dados de uma planilha oculta não pode referir-se a mesma como activesheet, estando oculta não estará ativa,
Suas rotinas devem funcionar +/- assim:

Sub carregaCombo()
UserForm1.ComboBox1.Clear
With Sheets("Plan1")
    For a = 1 To .Cells(Cells.Rows.Count, "T").End(xlUp).Row
        UserForm1.ComboBox1.AddItem .Cells(a, "T").Value
    Next a
End With
End Sub
Sub carregaPesquisa()
UserForm1.ListBox1.Clear
    
With Sheets("Plan1")
    For a = 1 To .Cells(Cells.Rows.Count, "T").End(xlUp).Row
        If .Cells(a, "T").Value = UserForm1.ComboBox1.Value Then
            UserForm1.ListBox1.AddItem .Cells(a, "T").Value
        End If
    Next a
End With
End Sub
 
Postado : 14/01/2016 10:01 am
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Excelente Reinaldo, minha pesquisa ficou automática.
Também estou grato pela ajuda do amigo Trindade.
Obrigado a todos. Resolvido.

 
Postado : 14/01/2016 3:40 pm
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Desculpe me, vejo que o 1 exemplo de planilha que postei tem um método de pesquisa mais eficiente porque é por letra e não palavra, mas não funciona com a planilha oculta.
Se puder me ajudar mais um pouco fico grato.
Segue modelo anexo com os dois exemplos de pesquisa estou querendo aperfeiçoar o 2 exemplo pesquisar por letra.

 
Postado : 14/01/2016 5:08 pm
(@srobles)
Posts: 0
New Member
 

Miguel70,

Você precisa que a pesquisa seja feita através de um ComboBox? Caso negativo, veja o exemplo em anexo que utiliza um TextBox. A pesquisa é feita por letra digitada no TextBox e os dados retornados alimentam o ListBox.

Aguardo retorno.

Abs

 
Postado : 14/01/2016 5:37 pm
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Perfeito srobles, estou agradecido pela sua atenção.
RESOLVIDO. :D

 
Postado : 14/01/2016 7:35 pm