[Yardım]  ListView yerine Listbox kullanma

Verilerinizi listeleyebileceğiniz liste kutusu

ListView yerine Listbox kullanma

İleti#1)  ayhan518 » 20 Haz 2020 13:43

Merhaba,
aşağıdaki kod yardımı ile userformda listview kullanıyorum.(bilgim yeterli olmadığı için örnek bir çalışmanın kodunu kendime uyarladım). Fakat işyerimdeki bilgisayarların biri hariç hiç birinde listview nesnesini kullanamıyoruz. Dolayısıyla yaptığım çalışmayı kullanamıyorum. sorun yaşamamak adına listview yerine listbox kullanmaya karar verdim. Sizden ricam aşağıdaki kodu listbox için nasıl uyarlayabilirim yardımcı olabilir misiniz? Dikkatinizi çekmek istediğim bir husus var listviewdaki başlıklar excel sayfasındaki sütün başlıkları değil kendi belirlediğim başlıklardı. Ayrıca listview deki son sütun verilerimi ilgili excel sayfasındaki 584. sütundan almaktaydı. Yardımlarınızı bekliyorum. Şimdiden teşekkür ediyorum.

Kod: Tümünü seç
Private Sub UserForm_Initialize()

Sheets("veri_tabanı").Activate
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("veri_tabanı").Select
Application.DisplayAlerts = True
ListView1.ColumnHeaders.Clear
With ListView1.ColumnHeaders
.Add , , "", 0, 0
.Add , , "S.Nu", 30, 0
.Add , , "TC Kimlik Nu", 60, 0
.Add , , "Ad", 80, 0
.Add , , "Soyad", 80, 0
.Add , , "Baba Adı", 60, 0
.Add , , "Ana Adı", 60, 0
.Add , , "Doğum Yeri", 80, 0
.Add , , "Doğum Tarihi", 50, 0
.Add , , "İli", 80, 0
.Add , , "İlçesi", 80, 0
.Add , , "Mah.Köy", 80, 0
.Add , , "Adres İli", 100, 0
.Add , , "Adres İlçesi", 40, 0
.Add , , "Adres Mah.Köy", 60, 0
.Add , , "İlkOkulu", 80, 0
.Add , , "Ortaokulu", 80, 0
.Add , , "Lisesi", 80, 0
.Add , , "Üniversite", 80, 0
.Add , , "Meslek", 80, 0
.Add , , "Ünvanı", 80, 0
.Add , , "SGK Nu", 40, 0
.Add , , "Kurum Nu", 40, 0
.Add , , "Yurt Dışı Durumu", 120, 0

End With

ListView1.ListItems.Clear
On Error Resume Next
Sheets("veri_tabanı").Select
For i = 3 To [B65536].End(xlUp).Row
Set liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
liste.SubItems(1) = Cells(i, 1).Value
liste.SubItems(2) = Cells(i, 2).Value
liste.SubItems(3) = Cells(i, 3).Value
liste.SubItems(4) = Cells(i, 4).Value
liste.SubItems(5) = Cells(i, 7).Value
liste.SubItems(6) = Cells(i, 8).Value
liste.SubItems(7) = Cells(i, 9).Value
liste.SubItems(8) = Cells(i, 10).Value
liste.SubItems(9) = Cells(i, 13).Value
liste.SubItems(10) = Cells(i, 14).Value
liste.SubItems(11) = Cells(i, 15).Value
liste.SubItems(12) = Cells(i, 16).Value
liste.SubItems(13) = Cells(i, 17).Value
liste.SubItems(14) = Cells(i, 18).Value
liste.SubItems(15) = Cells(i, 19).Value
liste.SubItems(16) = Cells(i, 20).Value
liste.SubItems(17) = Cells(i, 21).Value
liste.SubItems(18) = Cells(i, 22).Value
liste.SubItems(19) = Cells(i, 23).Value
liste.SubItems(20) = Cells(i, 25).Value
liste.SubItems(21) = Cells(i, 26).Value
liste.SubItems(22) = Cells(i, 27).Value
liste.SubItems(23) = Cells(i, 584).Value
Next i
End Sub
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 35
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

Cevap: ListView yerine Listbox kullanma

İleti#2)  ayhan518 » 20 Haz 2020 19:35

Mümkün değil mi?
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 35
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

Cevap: ListView yerine Listbox kullanma

İleti#3)  erseldemirel2 » 20 Haz 2020 21:19

Düzeltmek değilde kolon sayıları ayarlanarak Yeniden yazılması gerekebilir.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 847
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: ListView yerine Listbox kullanma

İleti#4)  ayhan518 » 21 Haz 2020 13:06

Esasında sorumu net yazamadım sanırım. listview yerine listbox ekledim ve bu kod ile istediğim şeyi yapabildim. TEK SORUNUM ColumnCount değerini 22 değil 23 yapmak istiyorum ve 23. sütun değerini örneğin 170. sütun olan "FN" sütunundan almak istiyorum. ColumnWidths satırını 170 e kadar ;0;0;0 gidemeyeceğim için bu nasıl yapılabilir onu merak ediyorum.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 22
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "20;60;60;60;0;0;60;60;60;60;0;0;60,60,60;60;60;60;60;60;60;60;60;0;60;60;60"
ListBox1.RowSource = "veri_tabanı!A2:AA" & Sheets("veri_tabanı").Range("a65536").End(3).Row + 1
End Sub
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 35
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: ListView yerine Listbox kullanma

İleti#5)  Justmag » 22 Haz 2020 08:08

Oraya yazdığınız değerler Listboxtaki kolonların genişliğidir
Kod: Tümünü seç
ListBox1.ColumnWidths = "20;60;60;60;0;0;60;60;60;60;0;0;60,60,60;60;60;60;60;60;60;60;60"

bu şekilde 23 kolonun genişliğini belirlemiş olursunuz.
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 34
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: ListView yerine Listbox kullanma

İleti#6)  ayhan518 » 25 Haz 2020 21:54

MERHABA,
23. sütunun genişliğini bahsettiğiniz gibi ayarlayabiliyorum fakat bu şekilde listbox ın 23. kolonu ilgili excel sayfasının 23. sütunu olan "W" sutunundan alıyor verileri. Ama ben listbox ın 23. kolonunun verilerini ilgili excel sayfasındaki örneğin 170. sütun olan "FN" sütunundan almak istiyorum. Bunu başaramadım. Ayrıca forumda başka bir konuda öğrendiğim bilgiye göre rowsource yerine additem yoluyla istediğim sütunu gösterebildim listboxta, ama bu yolla da sanırım en fazla 10 sütun gösteriliyormuş. sonuç olarak başaramadım henüz :( Biraz daha uğraşıp başaramaz isem örnek dosyamı yükleyip tekrar yardım istemeyi düşünüyorum. İyi geceler.
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 35
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum ListBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe