[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ş: 32
İleti: 425
 
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ş: 40
İleti: 5993
 
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ş: 32
İleti: 425
 
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ş: 32
İleti: 425
 
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: 666
 
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ş: 32
İleti: 425
 
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: 666
 
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ş: 32
İleti: 425
 
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: 666
 
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ş: 32
İleti: 425
 
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: 666
 
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ş: 32
İleti: 425
 
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: 666
 
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: 666
 
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ş: 32
İleti: 425
 
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: 666
 
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: 666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe