[Yardım]  ListBox.RowSource ve ListBox.Additem

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

ListBox.RowSource ve ListBox.Additem

İleti#1)  Mesut Topal » 04 Haz 2019 23:41

Hayırlı Bayramlar,

ListBox.RowSource ve ListBox.Additem bu iki özelliğin kullanımı ile ilgili bir sorum olacaktı.
Bilgilerini paylaşan Hocalarıma şimdiden teşekkürler.

Örneğin 7 sütunlu bir ListBox'ın ilk 5 sütununu
Kod: Tümünü seç
ListBox.RowSource = Sayfa1!A1:E85


Sonraki 2 sütunu
Kod: Tümünü seç
for i=1 to 85
   ListBox.Additem
   ListBox.List(i-1,5) = Sayfa1.cells(i,8)
   ListBox.List(i-1,6) = Sayfa1.cells(i,9)
next i


Şeklinde doldurabilir miyiz?
Ne kadar uğraştıysam hep hata verdi.
Mevcut bir çalışmayla ilgili değil, sadece öğrenmek için uğraşıyorum.
Gerekli görülürse bir örnek dosya paylaşabilirim.
Şimdiden Allah razı olsun.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#2)  feraz » 05 Haz 2019 05:53

Merhaba.


ListBox1.RowSource = Sayfa1!A1:E85
Diğerlerindede eksiklik var.

Sonuç olarak ListBox1.RowSource = "Sayfa1!A1:E85" gibi olacak.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6200
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#3)  Mesut Topal » 05 Haz 2019 07:55

üstadım, kodları programdan kopyalamak yerine direkt yazdığım için eksik yazmışım.
Aslında sorunumun yazım kurallarında olmadığını düşünüyorum Üstadım
Aşağıdakilere bakabilir misiniz?

Sadece Additem (ÇALIŞIYOR)
Kod: Tümünü seç
Private Sub UserForm_Initialize()
son = Sheets("Öğrenci Listesi").Cells(Rows.Count, 3).End(3).Row
With UserForm1.ListBox1
.ColumnCount = 7
.ColumnWidths = "20;25;25;80;80;37;30"
.Clear
For i = 4 To son
    .AddItem
    .List(i - 4, 0) = Sheets("Öğrenci Listesi").Cells(i, 1)
    .List(i - 4, 1) = Sheets("Öğrenci Listesi").Cells(i, 2)
    .List(i - 4, 2) = Sheets("Öğrenci Listesi").Cells(i, 3)
    .List(i - 4, 3) = Sheets("Öğrenci Listesi").Cells(i, 4)
    .List(i - 4, 4) = Sheets("Öğrenci Listesi").Cells(i, 5)
    .List(i - 4, 5) = Sheets("Öğrenci Listesi").Cells(i, 9)
    .List(i - 4, 6) = Application.WorksheetFunction.RoundUp(Sheets("Öğrenci Listesi").Cells(i, 9) * 100 / 40, 0)
Next i
End With
End Sub




Sadece RoweSource (ÇALIŞIYOR)
Kod: Tümünü seç
Private Sub UserForm_Initialize()
son = Sheets("Öğrenci Listesi").Cells(Rows.Count, 3).End(3).Row
With UserForm2.ListBox1
.ColumnCount = 7
.ColumnWidths = "20;25;25;80;80;37;30"
.Clear
.RowSource = "'Öğrenci Listesi'!A4:E" & son
End With
End Sub




RowSource ve Additem (ÇALIŞMIYOR)
Kod: Tümünü seç
Private Sub UserForm_Initialize()
son = Sheets("Öğrenci Listesi").Cells(Rows.Count, 3).End(3).Row
With UserForm2.ListBox1
.ColumnCount = 7
.ColumnWidths = "20;25;25;80;80;37;30"
.Clear
.RowSource = "'Öğrenci Listesi'!A4:E" & son
For i = 4 To son
    .AddItem
    .List(i - 4, 5) = Sheets("Öğrenci Listesi").Cells(i, 9)
    .List(i - 4, 6) = Application.WorksheetFunction.RoundUp(Sheets("Öğrenci Listesi").Cells(i, 9) * 100 / 40, 0)
Next i
End With
End Sub




Untitled2.gif
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#4)  Mesut Topal » 05 Haz 2019 07:57

Örnek dosya ekte
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

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

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#5)  Feyzullah » 05 Haz 2019 08:24

RowSource ve Additem ikisi bir kullanılamaz. Ayrı bir bilgi RowSource ile listboxa başlık olarak sütün başlıklarını yazdırılabiliyor ama Additem veya redim ile olmuyor.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 775
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#6)  Mesut Topal » 05 Haz 2019 08:46

metehan8001 yazdı:RowSource ve Additem ikisi bir kullanılamaz. Ayrı bir bilgi RowSource ile listboxa başlık olarak sütün başlıklarını yazdırılabiliyor ama Additem veya redim ile olmuyor.

[evet]
Teşekkürler Sayın Metehan.
Müsaadenle bir sorum daha olacaktı.

Peki; RowSource ile yan yana olmayan sütunları, ListBox'ın sütunlarında gösterebiliyor muyuz?
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#7)  Feyzullah » 05 Haz 2019 09:04

RowSource ile yan yana olmayan sütunları Listboxa alamazsın. Aralığı komple listboxa alın gereksiz sütunların genişliğini sıfır yapın veya Additem,redim kullanın.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 775
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#8)  Mesut Topal » 05 Haz 2019 09:14

Teşekkürler Kıymetli Hocam.

Denediğim yapılardan biride şuydu:
Sütunları diziye alıp
.RowSource = Array(...)
.RowSource = Dizim
denemeler yapmıştım, işe yaramamıştı [komik]

olmuyor demek ki.
[TESEKKÜR]
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#9)  Feyzullah » 05 Haz 2019 09:18

Eğer olsaydı en basit yöntem .RowSource = "'Öğrenci Listesi'!B4:E88,G4:I88" bu kod olurdu bence. Rica ederim iyi çalışmalar.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 775
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#10)  Mesut Topal » 05 Haz 2019 10:28

Teşekkürler Sayın Hocam,

.RowSource özelliğine değişken sütun aralığı nasıl girebiliriz?

BaslangıcSutun =15
BitisSutun = 20

.rowsource =" 'Öğrenci Listesi'! ........."

Soru soruyu açtı, kusura bakmayınız [mersi]
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#11)  Feyzullah » 05 Haz 2019 10:39

Estağfurullah ne kusuru hocam, bildiğimiz konular olsun yeter ki. Buyrun hocam aşağıdaki gibi olmalı.


Kod: Tümünü seç
son = Sheets("Öğrenci Listesi").Cells(Rows.Count, 15).End(3).Row
BaslangıcSutun = 15
BitisSutun = 20
.RowSource = "'Öğrenci Listesi'!" & Range(Cells(1, BaslangıcSutun), Cells(son, BitisSutun)).Address
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 775
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#12)  Mesut Topal » 05 Haz 2019 11:14

Allah ilminizi artırsın Kıymetli Hocam. Hayırlı Bayramlar.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#13)  Feyzullah » 05 Haz 2019 11:15

Allah Razı Olsun Hocam. Sİzede iyi bayramlar.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 775
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#14)  Feyzullah » 05 Haz 2019 13:01

Mesut hocam, imzam kısmındaki sitemize beklerim sizi :)
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 775
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: ListBox.RowSource ve ListBox.Additem

İleti#15)  Mesut Topal » 08 Haz 2019 13:13

metehan8001 yazdı:Mesut hocam, imzam kısmındaki sitemize beklerim sizi :)

Hocam, mesaj yazma yetkiniz yok diyor. Ne özelden, ne konu içinde. Bi kontrol eder misiniz?
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 33
İleti: 467
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#16)  Feyzullah » 08 Haz 2019 17:47

Email adresinizi doğruladınız mı hocam. Üye olunca mail gelir o linkten onaylamak gerekiyordur.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 775
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#17)  Feyzullah » 08 Haz 2019 18:26

Admin panelinden onayladık hocam. Artık yazabilirsin.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 775
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: ListBox.RowSource ve ListBox.Additem

İleti#18)  sezgin77 » 24 Şub 2020 10:27

Merhabalar,
Bu konuyu tekrar hortlatmak istiyorum müsadenizle,

Veri tabanımda aradığım bir kelimeyi Do While - Loop döngüsü ile buldurup, listbox' ın Additem fonksiyonu ile Listbox'a alıyorum. Buradan da verileri, başka bir sayfaya kaydetmek suretiyle veri tabanından rapor almış oluyorum.

Ancak;
Additem fonksiyonu ile en fazla 10 sütun çekebiliyorum. Halbuki ihtiyacım olan en az 14 sütun...

Rowsource fonksiyonu ile verileri almayı denedim ama, burada da filtreleme/sorgulama yapamıyorum. Listenin tamamını Listboxa getiriyor. Bu durumda amacıma ulaşamıyorum.

Şöyle ki;
Additem fonksiyonuna daha fazla sütun tanımlamak mümkün mü?
Rowsource fonksiyonu ile birlikte Do while döngüsünü çalıştıramazmıyım?

Yardımlarınız için şimdiden çok teşekkürler,
Kullanıcı avatarı
sezgin77
Yeni Başlamış
 
Kayıt: 08 Ekm 2019 22:11
Meslek: lojistik uzmanı
Yaş: 42
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], selimileri0623 ve 1 misafir

Bumerang - Yazarkafe