listview e veri almak.

[krokix]

arkadaşlar selamlar. bu konu ile ilgili bir yeni konu açmıştım ancak kilitlenmiş. sanırım soru sorma yöntemimde bir hata var. o yüzden biraz daha açıklayıcı soruyorum. aşağıdaki kodlar ile veri tabanıma userform üzerindeki bilgileri kaydediyorum. userformun üzerinde bir de rapor al düğmesi var. bu düğmeye tıklayınca da yeni bir userform üzerinde listview gibi bir nesnenin açılmasını ve burada adı soyadı, puanı, okulu tercihleri gibi bir kaç bilginin listelenmesini istiyorum. ayrıca listview de alt tarafta toplam kaç kayıt olduğu da yazacak. kodlar şu şekilde. (ayrıca ilgilenen arkadaşlar için dosyayı da ekliyorum. iyi çalışmalar)


Private Sub CommandButton2_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = ComboBox21.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox21.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

say = WorksheetFunction.CountA(Range("B1:B65000"))
TextBox5.Value = say

Cells(say + 1, 1).Value = TextBox5.Value
Cells(say + 1, 2).Value = ComboBox21.Value
Cells(say + 1, 3).Value = ComboBox20.Value
Cells(say + 1, 4).Value = TextBox1.Value
Cells(say + 1, 5).Value = TextBox2.Value
Cells(say + 1, 6).Value = TextBox3.Value
Cells(say + 1, 7).Value = TextBox4.Value
Cells(say + 1, 8).Value = ComboBox14.Value
Cells(say + 1, 9).Value = ComboBox1.Value
Cells(say + 1, 10).Value = ComboBox15.Value
Cells(say + 1, 11).Value = ComboBox2.Value
Cells(say + 1, 12).Value = ComboBox16.Value
Cells(say + 1, 13).Value = ComboBox3.Value
Cells(say + 1, 14).Value = ComboBox17.Value
Cells(say + 1, 15).Value = ComboBox4.Value
Cells(say + 1, 16).Value = ComboBox18.Value
Cells(say + 1, 17).Value = ComboBox5.Value
Cells(say + 1, 18).Value = ComboBox19.Value
Cells(say + 1, 19).Value = ComboBox6.Value
Cells(say + 1, 20).Value = TextBox16.Value
Cells(say + 1, 21).Value = TextBox17.Value
Cells(say + 1, 22).Value = TextBox18.Value
Cells(say + 1, 23).Value = TextBox19.Value
Cells(say + 1, 24).Value = TextBox20.Value
Cells(say + 1, 25).Value = TextBox21.Value
Cells(say + 1, 26).Value = TextBox22.Value
Cells(say + 1, 27).Value = TextBox23.Value
Cells(say + 1, 28).Value = TextBox24.Value
Cells(say + 1, 29).Value = TextBox25.Value
Cells(say + 1, 30).Value = TextBox26.Value
Cells(say + 1, 31).Value = TextBox27.Value
Cells(say + 1, 32).Value = TextBox28.Value





Workbooks("versiyon1").Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
CommandButton3_Click
ComboBox21.RowSource = "Veri!B2:B" & say + 1
TextBox5.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

 

[Orion1]

Dosyanız ekte.

Private Sub UserForm_Initialize()
Dim s1 As Worksheet, i As Long
Set s1 = Sheets("veri")
ListView1.View = lvwReport
With ListView1.ColumnHeaders
    .Add , , s1.Range("A1").Value, Range("A1").Width
    .Add , , s1.Range("B1").Value, Range("B1").Width
    .Add , , s1.Range("D1").Value, Range("D1").Width
    .Add , , s1.Range("H1").Value, Range("H1").Width
End With
For i = 2 To s1.Cells(65536, "B").End(xlUp).Row
    With ListView1
        .ListItems.Add , , s1.Cells(i, "A").Value
        .ListItems(i - 1).SubItems(1) = s1.Cells(i, "B").Value
        .ListItems(i - 1).SubItems(2) = s1.Cells(i, "D").Value
        .ListItems(i - 1).SubItems(3) = s1.Cells(i, "H").Value
    End With
Next i
Label1.Caption = "TOPLAM : " & Format(ListView1.ListItems.Count, "#,##0")
End Sub

 

[krokix]

sayın Evren Hocam, kodlarınız için teşekkürler. denedim çok güzel çalışıyor. ellerinize sağlık. acaba o dosyadakı SIRALAMA BUL düğmesini de inceleyebildiniz mi. orda bir iki açıklama yazmıştım. yani mantık olarak acaba yapmaya çalıştığım şey mümkün mü. yani orda tercih edilen okulların listeleri var. bu okullardan birisinin combobox içerisinde seçilmesi halinde alt tarafa bu okulu tercih edenlerin listesi, puanları ve yanında da bu okulun kaçıncı tercihleri olduğu yazabilir mi. böyle bir şey yapılabilir mi... ne tür bir kod kullanmalıyım. iyi çalışmalar. iyi geceler...

 

[Orion1]

sayın Evren Hocam, kodlarınız için teşekkürler. denedim çok güzel çalışıyor. ellerinize sağlık. acaba o dosyadakı SIRALAMA BUL düğmesini de inceleyebildiniz mi. orda bir iki açıklama yazmıştım. yani mantık olarak acaba yapmaya çalıştığım şey mümkün mü. yani orda tercih edilen okulların listeleri var. bu okullardan birisinin combobox içerisinde seçilmesi halinde alt tarafa bu okulu tercih edenlerin listesi, puanları ve yanında da bu okulun kaçıncı tercihleri olduğu yazabilir mi. böyle bir şey yapılabilir mi... ne tür bir kod kullanmalıyım. iyi çalışmalar. iyi geceler...

TC kimlik nosuna göre listeleme konusunu yaptım.
dosya ekte.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, k As Range, i As Byte, a As Long
ListView1.ListItems.Clear
TextBox2.Value = ""
TextBox3.Value = ""
If TextBox1.Value = "" Then Exit Sub
Set s1 = Sheets("veri")
Set k = s1.Range("C2:C65536").Find(TextBox1.Text, , xlValues, xlWhole)
a = 1
If Not k Is Nothing Then
    TextBox2.Value = s1.Cells(k.Row, "B").Value
    TextBox3.Value = s1.Cells(k.Row, "D").Value
    With ListView1
        For i = 10 To 18 Step 2
            If s1.Cells(k.Row, i).Value <> "" Then
                .ListItems.Add , , s1.Cells(k.Row, i).Value
                .ListItems(a).SubItems(1) = s1.Cells(k.Row, i + 1).Value
                a = a + 1
            End If
        Next i
    End With
End If
Set s1 = Nothing
Set k = Nothing
End Sub

 

[krokix]

Hocam ilginize minnettarım. Allah razı olsun. gönderdiğiniz kodları inceledim. çalışıyor. ancak şöyle bir durum var. sıralama yaparken, tercih edilen okullara göre kişinin aldığı puan baz alınarak bir sıralama yapması gerekiyor. örneğe 4 kişi ekledim. puanlarını incelediğinizde düşük puanlı olan kişi ilk sırada görünüyor. acaba tekrar bakabilirmisiniz. saygılar iyi çalışmalar... ayrıca tercih alanlarının yanında yer alan tip veya Drc. combolardaki 1,2,3 değerlerini dikkate almayınız. onların tercillerde bir önemi yok. onları gözardı ediniz...dikkate alınacak sadece beş tercihin sıralaması. yani tercihlerdeki öncelik... dosyayı yeniden gönderiyorum.

 

[Orion1]

Anlamadım.
Listviewde listeleme yaparken ilk 5 okul ve tipi listeleniyor.
Sıralaması değil tipi listeleniyor.Ben listviewde sıralama yazmışım yanlış yazmışım tipi olacaktı.

 

[krokix]

peki hocam, tipi değil de sıralamasını nasıl buldurucam. yani o okulu tercih edenlerin içerisindeki sıralaması (puanına göre). yani örneğin ODTÜ yü tercih edenlerin içinde, sahip olduğu puanına göre sıralamasını nasıl gösterebilirim. beş kişi odtüyü tercih etmiş olabilir, fakat tc kimlik no ile buldurduğum kişinin yaptığı tercihlerin yanında o tercih yapmış olduğu okullardaki sırasını nasıl göstertebilirim. ilginize teşekkür ederim. iyi çalışmalar...

 

[Orion1]

Sıralamayı direk sayfada yaptırabiliriiz.
Peki 2 kişi ayni puanı almışsa ve 2sininde birinci terciği ODTÜ ise sıralama nasıl olacak?

 

[krokix]

Evet hocam haklısınız. aynı puanı alma ihtimali olabilir ancak bu düşük bir ihtimal. fakat aynı puanı almayacaklarını düşündüğümüzde (farz edelim) sayfada nasıl yaptırabilirim.buna benzer bir olayı bir sitede görmüştüm. öğretmenlerin tercih işlemleri için yapılmıştı. konyanın sayfasındaydı sanırım. oraya tc kimlik no girildiğinde tercihleri görünüyordu ve tercih ettiği okullardaki sırası da görünüyordu. buna benzer bir şey yapmaya çalıştım ama sanırım olmayacak. peki hocam sayfada sıralatabiliriz diyorsunuz ya. onu nasıl yapabilirim. aynı puanı almayacaklarını düşündüğümüzde yani. iyi çalışmalar dilerim . sabrınız için de minnettarım...

 

[Orion1]

Dosyayı düzenledim.
Userformla kaydederken sayfada puanları büyükten küçüğe doğru sıralıyor.
Dosya ekte.

 

[krokix]

hocam teşekkür ederim. bu tercihlerin yanlarındaki combolar sanırım sorun oluşturuyor. bazı bölümleri iptal ettim. yani orda sadece tercihler kaldı. eğer tekrar inceleyebilirseniz göreceksiniz o bölümleri çıkarttım. ve şöyle bir yöntem düşündüm. şimdi userform2 de OKULA GÖRE ARAMA var. orda kullanıcı combobox içendeki kayıtlı okullardan birisini seçtiği vakit, hemen alt tarafına adı soyadı, puanı ve o okulu tercih sırası, yani atıyorum kişi o okulu 5. tercihinde seçmiştir, ad soyad, puanı ve 5 yazacak. kullanıcı o okulu kaçıncı sırada tercih etmişse o sırası yazacak. bunu nasıl yapabiliriz. emeklerinize sağlık. iyi akşamlar... dosyayı düzenlenmiş olarak gönderiyorum, eğer vakidiniz olurda incelerseniz oraya da bazı açıklamalar yazdım. iyi çalışmalar...

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton4_Click()
Dim k As Range, a As Long, ilk As String
ListBox1.Clear
ReDim myarr(1 To 4, 1 To 1)
Set k = Range("J2:R65536").Find(ComboBox1.Value, , xlValues, xlWhole, , 1)
If Not k Is Nothing Then
    ilk = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 4, 1 To a)
        myarr(1, a) = a
        myarr(2, a) = Cells(k.Row, "B").Value
        myarr(3, a) = Cells(k.Row, "D").Value
        myarr(4, a) = Right(Cells(1, k.Column), 1)
        Set k = Range("J2:R65536").FindNext(k)
    Loop While k.Address <> ilk And Not k Is Nothing
    ListBox1.Column = myarr
End If
Erase myarr
Set k = Nothing
Label7.Caption = "TOPLAM : " & a & " KAYIT."
End Sub

 

[krokix]

Hocam çok çok teşekkür ederim yardımlarınız için. saolunuz. gayet güzel çalışıyor. ilginize ve sabrınıza binlerce teşekkür. hocam son bir şey daha sorucam. bu listview deki görüntü beyaz bir sayfada gerçekleşiyor ya, bu listview excel hücereleri gibi olamaz mı yani satır satır çizili olsa. bu şekilde satırlardaki veriler birbirine karışıyor gibi. yani altları çizili olması mümkün müdür.. iyi akşamlar...

 

[Orion1]

Hocam çok çok teşekkür ederim yardımlarınız için. saolunuz. gayet güzel çalışıyor. ilginize ve sabrınıza binlerce teşekkür. hocam son bir şey daha sorucam. bu listview deki görüntü beyaz bir sayfada gerçekleşiyor ya, bu listview excel hücereleri gibi olamaz mı yani satır satır çizili olsa. bu şekilde satırlardaki veriler birbirine karışıyor gibi. yani altları çizili olması mümkün müdür.. iyi akşamlar...

En son yaptığım dosyada listview kullanmadım.Listbox kullnadım.Listbox'ın öyle bir özelliği yok.
Ama Hızlı listeleme özelliği var .Eğer 30 bin - 40 bin ve yukarılarda satırlar olduğunda listview çok hantal kalır.Listbox ayni veriyi 1-2 saniyede listelerken listview 1 dakika kadar bekleyebilir.Bence listbox dağa kullanışlı bu iş için.Eğer fazla verileriniz yoksa o zaman listview kullanabilirsiniz.!!

 

[krokix]

Evet hocam onu fark ettim. fakat daha önce yine siz listview e veri aktaran bir kod vermiştiniz. sıra no, adı soyadı puanı ve okulu gibi bir kaç bilgiyi sıralıyordu. raporlama bölümünde. zaten kullanılacak toplam kayıt da 100 kişi falan yani o anlamda çok sayıda kayıt girilmeyecek. bu aşamada list viewi kullanabilirim sanırım. acaba bu listview de söylediğim gibi verileri satır satır listeletirken altlarına çizgiyi nasıl çizebilirim.bir de hocam en son gönderdiğiniz örnekte listbox a bilgileri alıyorsunuz ya. hani okulu combodan seçince aşağıya o okulu tercih edenler puanlarıyla birlikte listeleniyor. o formda bir düğme oluşturup o düğmeye bastığımda bu tercih yapan kişilerin puanlarına göre tekrardan listelenmesi mümkün mü. yani bildiğiniz gibi ODTÜ yü seçtiğimde o okulu tercih eden kişiler listeleniyor alt tarafta. peki bu okulu tercih eden örneğin 50 kişi falan varsa, oraya ekleyeceğimiz bir düğmeye basınca o listelenenler arasında panı büyükten küçüğe doğru da sıralayabilir mi. yine bu gün bu forumda bulduğum bir kod var bu bir listeleme yapıyor acaba bunun gibi bir şey kullanılabilir mi. kod şöyleydi.


Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
For i = LBound(Liste) To UBound(Liste) - 1
For j = i + 1 To UBound(Liste)
If Liste(i, 0) > Liste(j, 0) Then
x = Liste(j, 0)
Liste(j, 0) = Liste(i, 0)
Liste(i, 0) = x
End If
Next j
Next i
Sirala = Liste
End Function

iyi çalışmalar dilerim...

 

[Orion1]

Evet hocam onu fark ettim. fakat daha önce yine siz listview e veri aktaran bir kod vermiştiniz. sıra no, adı soyadı puanı ve okulu gibi bir kaç bilgiyi sıralıyordu. raporlama bölümünde. zaten kullanılacak toplam kayıt da 100 kişi falan yani o anlamda çok sayıda kayıt girilmeyecek. bu aşamada list viewi kullanabilirim sanırım. acaba bu listview de söylediğim gibi verileri satır satır listeletirken altlarına çizgiyi nasıl çizebilirim.bir de hocam en son gönderdiğiniz örnekte listbox a bilgileri alıyorsunuz ya. hani okulu combodan seçince aşağıya o okulu tercih edenler puanlarıyla birlikte listeleniyor. o formda bir düğme oluşturup o düğmeye bastığımda bu tercih yapan kişilerin puanlarına göre tekrardan listelenmesi mümkün mü. yani bildiğiniz gibi ODTÜ yü seçtiğimde o okulu tercih eden kişiler listeleniyor alt tarafta. peki bu okulu tercih eden örneğin 50 kişi falan varsa, oraya ekleyeceğimiz bir düğmeye basınca o listelenenler arasında panı büyükten küçüğe doğru da sıralayabilir mi. yine bu gün bu forumda bulduğum bir kod var bu bir listeleme yapıyor acaba bunun gibi bir şey kullanılabilir mi. kod şöyleydi.


Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
For i = LBound(Liste) To UBound(Liste) - 1
For j = i + 1 To UBound(Liste)
If Liste(i, 0) > Liste(j, 0) Then
x = Liste(j, 0)
Liste(j, 0) = Liste(i, 0)
Liste(i, 0) = x
End If
Next j
Next i
Sirala = Liste
End Function

iyi çalışmalar dilerim...

Şu anda zaten sayfada puanlar büyükten küçüğe doru sıralanmış vaziyette benim sizin kayır ettiğiniz usreformda ki butond a kodları yazmıştım.
Dplayısı ile listeleme yapılırken Büyükten küçüğe doğru listeleme yapıyor.
Listview konusunuda biraz sonra halledicem.Şu almanya polonya maçını bir seyredeyim devre arasında bakarım.Süper maç oluyor.

 

[Orion1]

Dosyayı hazırladım yalnız ilk açıldığında listview alakası olamayan bir yerde çıkıyor.Multipage sekmelerine bir kaç kez basınca düzeliyor.
Dosya ekte.

 

[krokix]

Sayın Evren Gizlen Bey, yardımlarınız için çok çok teşekkür ederim. kusura bakmayın geç bir cevap vermiş oluyorum. ancak uzak da olsa bir akrabamızı kaybettik. o yüzden bir kaç gündür foruma girip bakamıyordum. cevabınız için çok teşekkürler. inceledim gayet güzel çalışıyor. son bir sorum olacak hocam müsadenle. o listview de verileri aldığımız bölümde iki tane daha düğme olsa o listelenen kişileri aldıkları puana göre sıralatsa. yani listview ilk listelediğinde sıra noya göre listeliyor. buraya kadar doğru ve tamam ama ben istediğim de yine aynı userform üzerinde bulunan SIRALA diye oluşturacağım bir düğme ile o listview deki listelenen kişileri puanlarına göre sıralatsam nasıl bir kod yazarım. ancak bu sıralatma sadece listview üzerinde olacak yani veri tabanı olarak kullandığım sayfada bir sıralama yapmayacak. ikinci sorum da şu. bu SIRALA komutunu verdikten sonra yada vermeden bu listeyi bir düğmeye bastığımda yazdırmam gerekiyor. acaba nasıl yapabilirim. ilginize teşekkür ederim iyi çalışmalar. iyi akşamlar...

 

[Orion1]

Öncelikle başınız sağ olsun.
Vefat eden kişiye Allah rahmet eylesin.
Konumuzda ise;
Sıralama Konusu halledildi.
Yazdırma konusu için ise boş bir sayfa belirleyip.
Listviewdeki verileri bu sayfaya aktarıp yazdırmak gerkir diye düşünüyorum.
Yazdir isminde boş bir sayfa oluştursam ve bu sayfada yazdirma işlemi yapılsa sizce uygunmudur?
Ekli dosyayı inceleyiniz.

 

[krokix]

Hocam Allah razı olsun. teşekkürler. gönderdiğiniz örnek tam istediğim gibi olmuş. ellerize sağlık. fakat bu yazdırma olayını nasıl yapabilirim acaba. örnekte SIRALAMA BUL ve RAPOR AL diye iki ayrı yer var. SIRALAMA BUL ve RAPOR AL için ayrı ayrı kendi sayfalarında yazdır butonu olacak. RAPOR AL düğmesine basınca zaten puana göre sıralı bir halde geliyor. bir düğme ile de bu listeyi yazdırmak istiyorum. ve tabi aynı şekilde SIRALAMA BUL bölümünde de aynı şekilde olacak.
ayrıca bu aşağıdaki kodlardan hangisi listview a verileri alırken puana göre sıralama yaptırıyor. çünkü belki sıralama olmaksızın da verileri listeletmem gerekebilir. yani normal bir liste olarak diyorum.

Private Sub UserForm_Initialize()
Dim s1 As Worksheet, i As Long
Set s1 = Sheets("veri")
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , s1.Range("A1").Value, Range("A1").Width
.Add , , s1.Range("B1").Value, Range("B1").Width
.Add , , s1.Range("D1").Value, Range("D1").Width
.Add , , s1.Range("H1").Value, Range("H1").Width
End With
For i = 2 To s1.Cells(65536, "B").End(xlUp).Row
With ListView1
.ListItems.Add , , s1.Cells(i, "A").Value
.ListItems(i - 1).SubItems(1) = s1.Cells(i, "B").Value
.ListItems(i - 1).SubItems(2) = s1.Cells(i, "D").Value
.ListItems(i - 1).SubItems(3) = s1.Cells(i, "H").Value
End With
Next i
Label1.Caption = "TOPLAM : " & Format(ListView1.ListItems.Count, "#,##0")
End Sub

ilginize çok çok teşekkürler. kusura bakmayın on gündür kahrımı çektiniz, hakkınızı helal ediniz.. iyi çalışmalar...