Soru ListView yerine ListBox kullanımı

[ayhan518]

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.

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, 1).Value
liste.SubItems(3) = Cells(i, 1).Value
liste.SubItems(4) = Cells(i, 1).Value
liste.SubItems(5) = Cells(i, 1).Value
liste.SubItems(6) = Cells(i, 1).Value
liste.SubItems(7) = Cells(i, 1).Value
liste.SubItems(8) = Cells(i, 1).Value
liste.SubItems(9) = Cells(i, 1).Value
liste.SubItems(10) = Cells(i, 1).Value
liste.SubItems(11) = Cells(i, 1).Value
liste.SubItems(12) = Cells(i, 1).Value
liste.SubItems(113) = Cells(i, 1).Value
Next i
End Sub

 

[Haluk]

Örnek dosyayı size yardımcı olmak isteyenler mi hazırlasın, yoksa siz zahmet edip hazırlayarak google drive falan gibi bir yere yükleyip, burada linkini paylaşır mısınız ?

.

 

[ayhan518]

Bu nasıl bir cümle? Nasıl bir tarz? Okuduğunuzu anlayabilme yeteneğine sahip misiniz? Kullandığım kodu paylaştım. acemiyim bu kodu da başka bi yerden derleyip kullanıyorum dedim. Acemiyim dediğim için bu koda göre listbox1 için bir kod yazılabileceğini ve bunu için örnek dosyaya ihtiyaç olmadığını düşündüm. "İnsan" önce bir karşısındakini anlamaya çalışır, illaki örnek dosyaya ihtiyaç varsa örnek dosyayı yükleyin yardımcı olmaya çalışalım diyebilir. Ya da susar! daha fazla yorum yapmayacağım bu saygısız ve kendini beğenmiş üslup ile yazdığınız cevap için. Eğer soruma yardım edecek kişi sizseniz lüzmu yok yormayınız kendinizi

 

[ayhan518]

Yukarıdaki cevabı yazan sorunlu zihniyet ve o cevaba kahkaha atacak kadar eğlenebilen moderatör dışında yardımcı olabilecek herkesin yardımına açığım.

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

Listview yerine ListBox ekleyip bu kod yardımı ile kullanabiliyorum şu an. 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.

 

[Korhan Ayhan]

Merhaba,

Bence bu kadar alınganlık gösterecek bir durum yok ortada.

Siz yardım talebinde bulunmuşsunuz. Sizden örnek dosya istenmiş.

Forumun genel yapısını incelediyseniz genellikle örnek dosya talebinde bulunuluyor.

Size göre önemsiz gibi görünen detaylar bazen kodlamada ya da formüllerle çözümlerde sıkıntılar yaratabiliyor. Bu sebeple örnek dosya her zaman daha iyi sonuç alınmasına sebep oluyor.

 

[ayhan518]

Teşekkür ediyorum uyarınız için. Keşke en başta sizin bu üslubunuz gibi dile getirilseydi.

 

[Korhan Ayhan]

Forumun genel yapısı kimseyi kırmak ya da incitmek değildir. Ama yönetici olarak bizlerde üyelerimizden forumu iyi incelemelerini bekliyoruz. Bu sizlerin excel konusunda kişisel gelişimine de katkılar sağlayacaktır.

Forumda bu konuyla ilgili bolca örnek var. Arama yaparsanız ulaşabilirsiniz.

Anahtar kelimeler; ListBox + RowSource

 

[cems]

Bu nasıl bir cümle? Nasıl bir tarz? Okuduğunuzu anlayabilme yeteneğine sahip misiniz? Kullandığım kodu paylaştım. acemiyim bu kodu da başka bi yerden derleyip kullanıyorum dedim. Acemiyim dediğim için bu koda göre listbox1 için bir kod yazılabileceğini ve bunu için örnek dosyaya ihtiyaç olmadığını düşündüm. "İnsan" önce bir karşısındakini anlamaya çalışır, illaki örnek dosyaya ihtiyaç varsa örnek dosyayı yükleyin yardımcı olmaya çalışalım diyebilir. Ya da susar! daha fazla yorum yapmayacağım bu saygısız ve kendini beğenmiş üslup ile yazdığınız cevap için. Eğer soruma yardım edecek kişi sizseniz lüzmu yok yormayınız kendinizi

Sayın @ayhan518
Üyelik numaranız 424.929 ve 22 mesaj ile forumun yaklaşık 500 000 üyesi içinde kişileri ve yeteneklerini tanımadan anlamadan " ya işimi yapın ya da görünmeyin" tarzınız galiba saygızca olan , zaten örnek dosya eklenmesinin karışık konularda gerekli ve kod adreslemelerini de deneyerek çözümü kolaylaştıracağını da madde madde anlatan forumun kurallarını da esgeçtiğiniz halde okuma anlama ile de ithamınız ilginç bir keşif oldu .

Bilmelisiniz ki ;
yardımını reddettiğiniz @Korhan Ayhan , excel konusuna ve yardıma neredeyse 20 yılından fazlasını vermiş biridir ve bu ortamı da yasalara uygun sağlam zeminler üzerine kuranlardan ve 500 000 kişiye yardıma koşan bir yöneticidir.
yardımını reddettiğiniz @Haluk ise üyelik tarihimde gördüğüm kadarı ile sitenin Microsoft'larından biridir. Çözümleri inanılır gibi değildir, Sorunuzdaki kodlara karşılık aslında 10 satırda koca bir programı eksiksiz çalıştıran bir bilgi dağıdır.

Kendilerinin , bu tür çıkışmalarda kendilerini korumayacağını da bilenlerden biri olarak sizin tarzınıza cevap vermek istedim . Bana cevap hakkınızı anasayfaya dönerek okuyacağınız yasal sınırları belirtilmiş site kuralları içinde tabii ki kullanabilirsiniz.

Bilmenizin iyi olacağı başka bir konu da , ben de naciz bir üye olarak sizin sorunuza cevap vermeyi sessiz kalarak değil ama " seslice " reddediyorum. Burada imece usulü yardımlaşma vardır , işimi görün tarzı ile değil. Burada işinizi yaptırıp gideceğiniz bir kadronuz yok .

 

[ayhan518]

Kusura bakmayın işimi halledin ya da susun demedim. Daha düzgün söylenebilir tıp Kı Korhan beyin yaptığı gibi. Bu fikrimde ısrarcıyım. Burada bu konuyu uzatmaktan da ayrıca rahatsızım. Fakat size de cevap vermek zorundayım. Ben iğneleyici ve aşağılayıcı olunmasına karşı çıktım. Kimse işimi yapsın yapmazsa sussun demiyorum. Ama birinin şahsıma laf dokundurmasına karşıyım. Yardım talebimi Seslice reddetmenize de sonuna kadar saygı gösteriyorum. Sizde beni düzgün bir şekilde uyarmak varken kendini beğenmiş tavırla cevaplayan birinin yardımını istemiyor olmama saygı göstermelisiniz. Zira beyefendinin excel konusundaki bilgisi, donanımı, başka insanlara göstermiş olduğu yardımseverlik benim eleştirebişeceğim şeyler değildir. Tavır gücüme gitti ve tepki gösterdim, göstermemde gerekiyordu. Korhan bey ile ilgili olarak ufacık bir sözüm olmadı çarpıtmayalım lütfen. Başta Korhan bey olmak üzere diğer forum sakinlerinden özür diler iyi günler dilerim

 

[Hüseyin]

Yazılı haberleşme bazen sözlü haberleşmeye göre yanlış anlaşılmalara daha açık olabiliyor.
Haluk uzun yıllar dostluğumuz olan ve diğer üyelerin de belirttiği gibi bilgi birikimi açısından forumda en büyük hazinelerden biridir.

Dosya eklemek bu kadar zor durum değil, zamanını ayırıp size yardımcı olacak birinin daha az zaman ve emek harcamasını sağlamış olursunuz.
Bu da size daha kaliteli çözüm olarak dönecektir.