Notifications
Clear all

Da Planilha para a ListView

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

Boa noite!!!

Pessoa, tenha uma Useforme, e preciso ao iniciar-la buscar os dados da minha planilha. :oops:

Alguém pode me ajudar Obrigado!!!!

Att..

 
Postado : 09/07/2011 6:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

:?: :?: :?:
explica melhor.

oque vc tem no formulario?

onde estão os dados?

 
Postado : 09/07/2011 6:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!!

Pessoa, tenha uma Useforme, e preciso ao iniciar-la buscar os dados da minha planilha. :oops:

Alguém pode me ajudar Obrigado!!!!

Att..

Ficou confuso, melhor anexar um modelo e melhorar a explicação.

[]s

 
Postado : 09/07/2011 6:23 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Se a duvida for referente ao Controle LISTVIEW, de uma olhada no link abaixo, onde coloquei alguns conceitos e exemplos :

LISTVIEW NO EXCEL - ALGUNS CONCEITOS
http://www.tomasvasquez.com.br/forum/vi ... f=17&t=571

abraços

 
Postado : 09/07/2011 6:27 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Na planilha 1, eu tenho

Produto Valor
Pão Doce R$ 25,00
Pão de Queijo R$ 35,00
Pudim R$ 3,50
Bolo Comum R$ 2,00
Brevidade R$ 1,50

Gostaria que esses dados aparecessem na listView, ao inicia minha Useform.

Att..

 
Postado : 09/07/2011 6:39 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 
Sub PreencherListView()
Dim lastRow As Long
Dim li As ListItem
Dim X As Long
Dim k   As Integer
k = 2
    ' Adiciona as colunas
   With ListView1
        .ColumnHeaders.Clear
        .Gridlines = True
        .View = lvwReport
        .ColumnHeaders.Add Text:="Produto", Width:=100
        .ColumnHeaders.Add Text:="Valor", Width:=80
    End With
    '...................................................................
'limpar
ListView1.ListItems.Clear
    
    lastRow = Plan1.Cells(Plan1.Cells.Rows.Count, "a").End(xlUp).Row
    
    ' Adiciona itens
   For X = 2 To lastRow
        Set li = ListView1.ListItems.Add(Text:=Plan1.Cells(X, "a").Value)
        li.ListSubItems.Add Text:=Plan1.Cells(X, "b").Value
        k = k + 1
    Next
End Sub
 
Postado : 09/07/2011 7:16 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Muito Obrigado!!! :lol: :lol:

Erá exatamente isso!!!

att..

 
Postado : 09/07/2011 7:34 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu!!! :D

 
Postado : 09/07/2011 7:48 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

JoseA, Obrigado!!!!.....caso não queira responder tudo bem......

Estou tentando mudar alguma coisa (Criar uma consulta),colocar uma txtBox, e ao digitar nela buscar os itens da planilha.

Ex: digito na txtbox1 Bolo e independente do que tenho como bolo comum ou confeitado, me trará na tela o bolo q foi digitado.

Obrigado!!!

Att...

 
Postado : 09/07/2011 8:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja um exemplo feito pelo JoseA no link abaixo :

Apesar do titulo dizer Listbox o controle na mesma é um LISTVIEW:
Formulário com uma Listbox e um Textbox de pesquisa
http://www.tomasvasquez.com.br/forum/vi ... iew1#p5318

[]s

 
Postado : 09/07/2011 8:32 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa Tarde!!

Mauro, muito Obrigado!!!!!!!!!! :lol: era exatamente isso!!

Mas me tira uma dúvida se for possível, fiz algumas pesquisa e não foi o suficiente.

No seu exemplo a ListView, tem uma espécie de barra de rolagem.

Como que o JoseA, conseguiu fazer isso?

Att..

 
Postado : 10/07/2011 2:34 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre, em qual meu exemplo ?

Mas se está falando sobre a Barra de Rolagem Vertical neste exemplo do JoseA, você consegue a mesma alterando a Propriedade "FlatScrollBar" como False, do ListView, alias esse é o valor padrão no Listview e a mesma só aparece quando a qde de itnes superar a tela.

[]s

 
Postado : 10/07/2011 5:18 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!!

Obrigado!!! Muito Obrigado!!!...foi perfeito !!!! :o

Att..

 
Postado : 10/07/2011 5:53 pm