ListBox da sütun sayısı

[Altay3555]

Selamlar
....................................
With UserForm3_Doğum.ListBox1
.BackColor = vbYellow
.ColumnCount = 15
.ColumnWidths = "18;80;50;18;30;22;25;28;27;27;27;30;40;42;114"
.ForeColor = vbRed
If Sheets("Dogum").Range("A7") = Empty Then
.RowSource = Empty
Else
.RowSource = "Dogum!A7:S" & [Dogum!A65536].End(3).Row
End If
End With

MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub


15 sütunluk Listbox da 12.ye kadar kaydı alıyor ama sonrası yok.Aslında daha önce okumuştum en fazla 10 sütun diye ama araştırınca bulamadım. Arşivimde çok sütunlu örneklerde olmayınca kalakaldım ortada.
Birde Optionbuttonlardan Erkek/Kadın seçimini yaptığımda 1 verisi geliyor.
Eminim kolay bir kodu var ama iş eyleme gelince uygulayamadım.
Bu da zannedersem kodları copy/paste yapmaktan kaynaklanıyor.Yazabilsek galiba daha da hızlı öğreneceğiz bu işi.
Sevgiler.

 

[fedeal]

Konuyu inceleyin dizi yöntemiyle daha fazla alınabiliyor.

http://www.excel.web.tr/showthread.php?t=73320&highlight=redim

 

[Altay3555]

Teşekkürler Hocam

 

[Orion1]

Selamlar
....................................
With UserForm3_Doğum.ListBox1
.BackColor = vbYellow
.ColumnCount = 15
.ColumnWidths = "18;80;50;18;30;22;25;28;27;27;27;30;40;42;114"
.ForeColor = vbRed
If Sheets("Dogum").Range("A7") = Empty Then
.RowSource = Empty
Else
.RowSource = "Dogum!A7:S" & [Dogum!A65536].End(3).Row
End If
End With

MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub


15 sütunluk Listbox da 12.ye kadar kaydı alıyor ama sonrası yok.Aslında daha önce okumuştum en fazla 10 sütun diye ama araştırınca bulamadım. Arşivimde çok sütunlu örneklerde olmayınca kalakaldım ortada.
Birde Optionbuttonlardan Erkek/Kadın seçimini yaptığımda 1 verisi geliyor.
Eminim kolay bir kodu var ama iş eyleme gelince uygulayamadım.
Bu da zannedersem kodları copy/paste yapmaktan kaynaklanıyor.Yazabilsek galiba daha da hızlı öğreneceğiz bu işi.
Sevgiler.

Bence sizin yanlışınız var.Kulandığınız metodla istediğiniz kadar sütunu listboxa alabilirsiniz.S sütunu 19ncu sütuna tekabül ediyor.Eğer S sütunana kadar verileri alacaksanız columnwidth içine 19 tane kolon genişliği bildirmeniz gerekir.Oysa sizde 15 kolon genişliği var.Ama siz bu 15'ide göstermiyor diyorsunuz.Ben her iddasına girerim.Bu 15 kolonu gösterir.Ama hücrelerin için de veri olacak tabi.İçi boşsa hücrelerin bir şey göstermea.

 

[Altay3555]

Hocam Selam
S ye kadar sütunum var doğrudur,
S de adres bilgisi var.
Ama ondan önce 7 tane boş OptionButtonlar var,
Onların aktarım kodu henüz yazılmadı,yazılamadı,demek ki ondan göstermiyor.
İnceliyorum tabi ki ama zaman alıyor

 

[Orion1]

İşte ispatı.Ekli dosyayı inceleyiniz.

 

[Altay3555]

Çok güzel olmuş,
Step işi
Benim pc de StatusBar yok,onun için sıkıştırmaya çalışıyorum,onun içinde bir iki sütunu OpBut yapmıştım,güya onlardan veri almayacak S (adres kısmını gösterecektim) ama yemedi Bill amcam.
Teşekkürler,Emeğinize sağlık.

 

[Orion1]

Eğer burada görünmesini istemediğiniz sütunlar var ise Bütün kolonlar için counmwith özelliğine görünecek olanların genişiğini verin görünmeyecek olanlara ise 0 (Sıfır) verin.

 

[Altay3555]

Mesele anlaşılmıştır hocam,teşekkürler.

 

[Altay3555]

İşte ispatı.Ekli dosyayı inceleyiniz.

Selam Hocam,
Kodlarınız uyguladım çalıştı,lakin sütun genişlikleri aynı olduğundan hoş görüntü olmadı,benim yazdığım kod ise UserForm mumu göstermemekle tehdit eden hata veriyor.

Private Sub UserForm_Initialize()

'UserForm1.Show
'ListBox1.ColumnCount = 15
'ListBox1.ColumnWidths = "20;30;100;0;100;40;72;20;72;66;50;100;0;30;50"
'ListBox1.RowSource = "A7:O" & Cells("A65536").End(xlUp).Row
ListBox1.ColumnCount = 15
ListBox1.ColumnHeads = True
ListBox1.RowSource = "A7:O" & Cells(65536, "A").End(xlUp).Row
End Sub


Kırmızı olanlar sizin..Bende sistemi kandırayım diye İnitialize olayına formumu göster dedim,gösteriyor ama debug da arkada duruyor.Şimdi sizin kod sıranıza nasıl sütun genişliği vereceğim.

 

[Orion1]

Selam Hocam,
Kodlarınız uyguladım çalıştı,lakin sütun genişlikleri aynı olduğundan hoş görüntü olmadı,benim yazdığım kod ise UserForm mumu göstermemekle tehdit eden hata veriyor.

Private Sub UserForm_Initialize()

'UserForm1.Show
'ListBox1.ColumnCount = 15
'ListBox1.ColumnWidths = "20;30;100;0;100;40;72;20;72;66;50;100;0;30;50"
'ListBox1.RowSource = "A7:O" & Cells("A65536").End(xlUp).Row
ListBox1.ColumnCount = 15
ListBox1.ColumnHeads = True
ListBox1.RowSource = "A7:O" & Cells(65536, "A").End(xlUp).Row
End Sub


Kırmızı olanlar sizin..Bende sistemi kandırayım diye İnitialize olayına formumu göster dedim,gösteriyor ama debug da arkada duruyor.Şimdi sizin kod sıranıza nasıl sütun genişliği vereceğim.

Vermişsiniz zaten ama iptal etmişsiniz.Bu kodlarda bir hata yok.
Pardon aşağıdaki satırda en son verdiğiniz ölçüde 1 boşluk varmış.Tahminimce hataya o sebebiyet veriyor.
ListBox1.ColumnWidths = "20;30;100;0;100;40;72;20;72;66;50;100;0;30;50"

 

[mkbal]

Listbox çoklu kolonlarını bire bir kontrol edebilirmiyiz. 1.satır 2.sütununa veri yazmak veya 1. satır 1.sütunundaki bilgiyi okumak.

 

[Orion1]

Listbox çoklu kolonlarını bire bir kontrol edebilirmiyiz. 1.satır 2.sütununa veri yazmak veya 1. satır 1.sütunundaki bilgiyi okumak.

Evet zaten bizimde yaptığımız o.Listboxtan her kolondan verileri alıp onları textboxlara atıp işlemek.Rowsource ile alınmamışsa listboxa veriler,listboxta istediğimzi kolon ve satıra veride yazabiliriz.Forumda bununla ilgili tonlarca uygulama var.

 

[Altay3555]

Vermişsiniz zaten ama iptal etmişsiniz.Bu kodlarda bir hata yok.
Pardon aşağıdaki satırda en son verdiğiniz ölçüde 1 boşluk varmış.Tahminimce hataya o sebebiyet veriyor.
ListBox1.ColumnWidths = "20;30;100;0;100;40;72;20;72;66;50;100;0;30;50"

Hocam selam,
Dediğiniz doğru,kod çalışıyor amma velakin.
1.Açılışta listbox a veri gelmiyor,formu kapat dediğimizde hata veriyor.
2.Yeni kayıt yaparsam listbox lara veri geliyor.ama yine de hata veriyor.
Gerçi 2 step oldu ama,olsun varsın

 

[Orion1]

Hocam selam,
Dediğiniz doğru,kod çalışıyor amma velakin.
1.Açılışta listbox a veri gelmiyor,formu kapat dediğimizde hata veriyor.
2.Yeni kayıt yaparsam listbox lara veri geliyor.ama yine de hata veriyor.
Gerçi 2 step oldu ama,olsun varsın

Userform1'in Initialize olayı içindeki kodları silin.Aşağıdaki kodları yapıştırın.

ListBox1.ColumnCount = 15
ListBox1.ColumnWidths = "20;30;100;0;100;40;72;20;72;66;50;100;0;30;50"
ListBox1.RowSource = "A7:O" & Cells([B][COLOR="Red"]65536, "A"[/COLOR][/B]).End(xlUp).Row

 

[Altay3555]

Userform1'in Initialize olayı içindeki kodları silin.Aşağıdaki kodları yapıştırın.

ListBox1.ColumnCount = 15
ListBox1.ColumnWidths = "20;30;100;0;100;40;72;20;72;66;50;100;0;30;50"
ListBox1.RowSource = "A7:O" & Cells([B][COLOR="Red"]65536, "A"[/COLOR][/B]).End(xlUp).Row

Hocam Teşekkür Ederim,

 

[Orion1]

Hocam Teşekkür Ederim,

Rica ederim.
İyi çalışmalar.