listbox

[kaptan129]

merhaba acaba excel deki verileri nasıl listbox a nasıl atabilirim.örneğin 4 kişinin alt alta isimleri ve yanlarına doğduğu yerler aldığı maaşlar gibi bir örnekte verileri nasıl excelden listbox a çekebilirim çok önemli açık açık anlatırsanız sevinirim ilginiz için teşekkürler.

 

[fedeal]

ListBox1.ColumnCount = 6 'listboxun sütun sayısı
ListBox1.ColumnWidths = "50;1;50;1;80;1" 'sütun genişlikleri
ListBox1.RowSource = "sayfa1!A1:F" & Sheets("sayfa1").Range("A65536").End(xlUp).Row

sayfa1 a ile f sütunu arasını gösterir.

 

[kaptan129]

öncelikle teşekkürler şimdi ben bu kodları vba ya kopyalasam olur mu

 

[fedeal]

listbox userform üzerindemi? öyleyse UserForm_Initialize olayına yazmalısınız. bence bir örnek dosya ekleyin gerçi bu konuyla ilgili formdada çok örnek var.

 

[kaptan129]

şey şimdi ben öğrnciyim bu ödevin pazartesiye kadar gitmesi lazım konu şu ben size anlatayım biz vb yi yeni öğreniyoruz ödev ise listbox da 4 tane kişinin alt alta isimleri ve yanlarında ise nerede oturdukları ve işleri ve maaşları bulanacak kişilerin istediğimizde adlarının baş harflerine göre veya aldıkları maaşların çoktan aza veya azdan çoka göre sıralanması işte ödev bu bunu söylerseniz sevinirim kodalrı yazar mısınız ayrıca bana zamanınızı ayırdığınız için teşekkür ederim ödev olursa size minnettar kalırım şuan 30 arkadaşım bunu araştırıyor ve artık 1 günümüz kaldı yardım ederseniz sevinirim saygılar.......

 

[fedeal]

dosyanız ekte inceleyin, sayın Janveljan'ın kodlarından faydalandım kendisine teşekkürler.

 

[kaptan129]

çok teşekkürler ama size bir sorum daha var ben bunu vb. ye nasıl atabilirim.ordaki listtenin nasıl vb ye atılacağını söyler misiniz veya bu sayfa nasıl çalışır dedim efendim biz daha öğrenmeğe çalışıyoruz ilginiz için gerçekten teşekkürler sabah mail i görünce gerçekten çok sevindim saygılar....

 

[fedeal]

sayfadaki listboxun kodları sayfanın kod bölümünde çalışma açıkken alt+f11 sayfa1 yazan yeri çifttıkla açın kodlar orda.alttaki kodlar.

Private Sub CommandButton1_Click() 'azalan sıralama
ListBox1.ListFillRange = ""
Range("A1: D1000").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "150,180,100,100"
ListBox1.ListFillRange = "sayfa1!a1: d1000"
Cells(1, 1).Select
End Sub

Private Sub CommandButton2_Click() 'artan sıralama
ListBox1.ListFillRange = ""
Range("A1: D1000").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "150,180,100,100"
ListBox1.ListFillRange = "sayfa1!a1: d1000"
Cells(1, 1).Select
End Sub



Private Sub TextBox1_Change() 'harflere göre listboxu süzme
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 10, 1 To 1)
If TextBox1.Text = "" Then
ListBox1.ListFillRange = "SAYFA1!A1: D" & Sheets("SAYFA1").[A65536].End(xlUp).Row
Exit Sub
End If
With Worksheets("SAYFA1")
ListBox1.ListFillRange = ""
If .FilterMode Then .ShowAllData
Set k = .Range("A1:A65536").Find(TextBox1.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 10, 1 To a)
For j = 1 To 10
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = Range("A1:A65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub

Private Sub Worksheet_Activate() 'sayfa aktif olunca sayfadan listboxa veri alma
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "150,180,100,100"
ListBox1.ListFillRange = "sayfa1!a1: d" & Sheets("SAYFA1").[A65536].End(xlUp).Row
End Sub

 

[kaptan129]

öncelikle teşekkürler ben şimdi vb çalışma sayfasında dediğiniz gibi alt+f11 yaparak oradaki sayfa1 yazan yere çift tıklayarak bu kodalrı yapıştıracağım öyle mi tam olarak bu arada bu kodlardan başka kod da ihtiyacım var mı zamanım az kaldı yardımınız için çok teşekkürler saygılar....

 

[fedeal]

öncelikle teşekkürler ben şimdi vb çalışma sayfasında dediğiniz gibi alt+f11 yaparak oradaki sayfa1 yazan yere çift tıklayarak bu kodalrı yapıştıracağım öyle mi tam olarak bu arada bu kodlardan başka kod da ihtiyacım var mı zamanım az kaldı yardımınız için çok teşekkürler saygılar....

sayfaya 1 adet listbox 1 adet textbox eklemelisiniz.veriler benim gönderdigim gibi a-b-c-d sütunlarında olmalı ayrıca isimler a sütünunda olmalı.

 

[kaptan129]

bunu bana yapar ve gönderir misiniz...zaten bu kadar yardım ettiniz lütfen bunuda yapın...

 

[fedeal]

bunu bana yapar ve gönderir misiniz...zaten bu kadar yardım ettiniz lütfen bunuda yapın...

siz altıncı mesajdaki dosyayı görmedinizmi?

çalışmaya formla yapılmış bir örnekte ekledim.

 

[marimar]

güzel bir çalışma olmuş teşekkürler