Notifications
Clear all

Selecionar dado filtrado e inserir na célula ativa

9 Posts
1 Usuários
0 Reactions
1,530 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Primeiro gostaria de parabenizar o site, que tem nos ajudado tanto =) estou utilizando um modelo que encontrei na net, preciso que ao usuário
realizar o filtro ele pode selecionar o item e automaticamente o valor selecionado vai para a célula ativa.

Estou enviando a planilha, para melhor compreensão

Agradeço desde já atenção de todos

 
Postado : 14/11/2011 8:30 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Assim :?:

Private Sub ListView1_Click()
Dim Index As Integer
    Me.ListView1.FullRowSelect = True
    i = (ListView1.SelectedItem.Index) 'linha do ListView
    ActiveCell = Me.ListView1.ListItems(i)
    ActiveCell.Offset(0, 1) = ListView1.ListItems(i).ListSubItems(1).Text
    ActiveCell.Offset(0, 2) = ListView1.ListItems(i).ListSubItems(2).Text
    ActiveCell.Offset(0, 3) = ListView1.ListItems(i).ListSubItems(3).Text
    ActiveCell.Offset(0, 4) = ListView1.ListItems(i).ListSubItems(4).Text
    ActiveCell.Offset(0, 5) = ListView1.ListItems(i).ListSubItems(5).Text
    ActiveCell.Offset(0, 6) = ListView1.ListItems(i).ListSubItems(6).Text
    ActiveCell.Offset(0, 7) = ListView1.ListItems(i).ListSubItems(7).Text
    ActiveCell.Offset(0, 8) = ListView1.ListItems(i).ListSubItems(8).Text
    ActiveCell.Offset(0, 9) = ListView1.ListItems(i).ListSubItems(9).Text
    ActiveCell.Offset(0, 10) = ListView1.ListItems(i).ListSubItems(10).Text
    ActiveCell.Offset(0, 11) = ListView1.ListItems(i).ListSubItems(11).Text
    Me.TextBoxFiltro.SetFocus
End Sub
 
Postado : 14/11/2011 10:57 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigada Jose, era isso mesmo =)
Outra dúvida, teria como eu selecionar outra célula sem ter que fechar o Userform?

Muito Obrigada!

 
Postado : 14/11/2011 11:04 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

E propriedades altere ShowModal = False

 
Postado : 14/11/2011 11:14 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

E propriedades altere ShowModal = False

Em tempo...

Seria em prpriedades do form. ;)

 
Postado : 14/11/2011 11:21 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Postagem original desse filtro: http://www.tomasvasquez.com.br/forum/viewtopic.php?f=2&t=344&start=10

 
Postado : 14/11/2011 11:36 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito Obrigada =)

tenha um ótimo feriado!

 
Postado : 14/11/2011 11:39 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Jose, só mais uma coisa

Quando eu atualizo minha base de dados é necessário eu fechar o form e abrir novamente para atualizar os dados, teria alguma forma de atualizar sem precisar fechar e abrir?

obrigada pela atenção

 
Postado : 14/11/2011 12:24 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Se a sua atualização é referente a esse arquivo, bastaria colocar essa linha:

Call PreencherListView

Logo abaixo da sua instrução que atualiza a base de dados.

 
Postado : 14/11/2011 12:53 pm