RowSource

Söz dizimi​

nesne.RowSource = "SayfaAdı!A2:C10"
kaynak = nesne.RowSource

• nesne: Bir ListBox ya da ComboBox denetimi (ör. Me.ListBox1).
• Değer: Sayfa adı, ünlem işareti ve aralık adresinden oluşan metin (ör. Ürünler!A2:D7) ya da adlandırılmış aralığın adı. Özellik isteğe bağlıdır; varsayılanı boş metindir, yani liste herhangi bir aralığa bağlı değildir.
• Dönüş değeri: Atanmış adres metni; bağlantı yoksa boş metin.
• Sayfa adı: Yazılmazsa o anda etkin olan sayfa kullanılır. Form başka bir sayfa etkinken açılabileceği için sayfa adını her zaman yazın. Sayfa adında boşluk ya da özel karakter varsa adı tek tırnak içine alın: 'Ürün Listesi'!A2:D7.

Bağlantının işleyişi​

• Seçilen değer: Value özelliği BoundColumn ile belirtilen sütunun değerini verir (varsayılan 1. sütun). Text görünen metni, ListIndex seçilen satırın sıfırdan başlayan sırasını döndürür.
• Başka sütunlara erişim: Çok sütunlu listede seçilen satırın diğer sütunlarını Column özelliği ile okursunuz; sütun numarası sıfırdan başlar (ör. ListBox1.Column(2) üçüncü sütundur).
• Adres sabittir: Kaynak aralığın sonuna sayfada yeni satır eklerseniz liste otomatik genişlemez. Adresi son dolu satıra göre kodla yeniden hesaplayıp atayın.
• Bağlantıyı kaldırma: RowSource = "" atamasıyla bağlantı kesilir ve liste boşalır.

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim son As Long

    Set ws = ThisWorkbook.Worksheets("Ürünler")
    son = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    With Me.ListBox1
        .ColumnCount = 4
        .ColumnHeads = True
        .RowSource = ws.Name & "!A2:D" & son
    End With
End Sub

Çok sütunlu liste ve başlık satırı​

• ColumnCount: Listede gösterilecek sütun sayısı. Genellikle kaynak aralığın sütun sayısına eşitlenir.
• ColumnHeads: True yapılırsa kaynak aralığın hemen üstündeki satır sütun başlığı olarak gösterilir. Bu nedenle RowSource başlık satırını değil, ilk veri satırından başlayan aralığı göstermelidir. Başlıklar ListBox üzerinde görünür.
• ColumnWidths: Sütun genişliklerini noktalı virgülle ayrılmış biçimde verir (ör. "120;80;60;40"). Genişliği 0 olan sütun gizlenir ama BoundColumn ya da Column ile okunabilir.
• BoundColumn: Value özelliğinin hangi sütunu döndüreceğini belirler.

RowSource ile List ve AddItem farkı​

• RowSource: Sayfadaki aralığa canlı bağlantı kurar; kod kısadır, başlık satırı desteklenir.
• AddItem: Öğeleri tek tek ekler; sayfadan bağımsızdır ve sonradan RemoveItem ile öğe silebilirsiniz.
• List: Bir diziyi ya da aralığın değerlerini listeye kopyalar; bağlantı kurmaz.

1. Son satıra göre RowSource adresi hazırlama​

Option Explicit

' Dinamik RowSource adresini hazırlar ve E2 hücresine yazar
Sub AdresHazirla()
    Dim ws As Worksheet
    Dim son As Long
    Dim adres As String

    Set ws = ThisWorkbook.Worksheets("Ürünler")

    ' A sütunundaki son dolu satırı bul
    son = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Sayfa adı + aralık: ListBox için hazır RowSource metni
    adres = ws.Name & "!A2:D" & son
    ws.Range("E2").Value = adres

    ' UserForm_Initialize içinde şu satır kullanılır:
    ' Me.ListBox1.RowSource = adres
End Sub

2. Adlandırılmış aralığı RowSource olarak kullanma​

Option Explicit

' PersonelListe adını veri aralığına göre (yeniden) tanımlar
Sub AdTanimla()
    Dim ws As Worksheet
    Dim son As Long
    Dim liste As Range

    Set ws = ThisWorkbook.Worksheets("Personel")
    son = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Başlık satırı hariç, A2:C son aralığına ad ver
    ThisWorkbook.Names.Add Name:="PersonelListe", _
        RefersTo:="=" & ws.Name & "!$A$2:$C$" & son

    Set liste = ThisWorkbook.Names("PersonelListe").RefersToRange

    ws.Range("D2").Value = liste.Rows.Count
    ws.Range("E2").Value = liste.Columns.Count
    ws.Range("F2").Value = liste.Address

    ' Formda: Me.ListBox1.RowSource = "PersonelListe"
    '         Me.ListBox1.ColumnCount = liste.Columns.Count
End Sub

3. ColumnCount ve başlık satırı için gerekli değerler​

Option Explicit

' ListBox ayarları için gereken değerleri hesaplar
Sub FormAyarlari()
    Dim ws As Worksheet
    Dim veri As Range
    Dim son As Long

    Set ws = ThisWorkbook.Worksheets("Satışlar")
    son = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Başlık hariç veri aralığı
    Set veri = ws.Range("A2:C" & son)

    ' ColumnCount için sütun sayısı
    ws.Range("D2").Value = veri.Columns.Count

    ' ColumnHeads = True iken başlık olarak kullanılacak satır
    ws.Range("E2").Value = veri.Offset(-1).Resize(1).Address(False, False)

    ' RowSource için tam adres
    ws.Range("F2").Value = ws.Name & "!" & veri.Address(False, False)

    ' Formda:
    ' With Me.ListBox1
    '     .ColumnCount = 3
    '     .ColumnHeads = True
    '     .RowSource = ws.Name & "!" & veri.Address(False, False)
    ' End With
End Sub

Kullanırken dikkat edin​

• Sayfa adını mutlaka yazın: Sayfa adı verilmezse etkin sayfa kullanılır. Form açıldığında başka bir sayfa etkinse liste yanlış veriyle dolar ya da boş kalır. Sayfa adında boşluk veya özel karakter varsa adı tek tırnak içine alın, örneğin 'Ürün Listesi'!A2:D7. Kodla adres kurarken adı ws.Name ile okuyun.
• AddItem ve Clear ile birlikte kullanılamaz: RowSource atanmış bir listeye AddItem, RemoveItem ya da Clear uygulayamazsınız; hata alırsınız. Önce RowSource = "" ile bağlantıyı kaldırın, sonra listeyi yöntemlerle doldurun.
• Aralığı fazla geniş tutmayın: Adres, son dolu satırdan sonraki boş satırları da kapsıyorsa listede boş öğeler görünür. Adresi her zaman End(xlUp) ile bulduğunuz son dolu satıra göre hesaplayın. Başlık satırını aralığa dahil etmeyin; başlıklar için ColumnHeads kullanın.
• ColumnCount'ı unutmayın: ColumnCount varsayılan olarak 1'dir. Aralık birden çok sütun içerse bile yalnızca ilk sütun görünür. Sütun sayısını kaynak aralığın sütun sayısına eşitleyin; sütun genişliklerini ColumnWidths ile ayarlayın.
• Excel tablosu kullanıyorsanız: Veriler bir Excel tablosundaysa (ListObject) adresi tablonun veri gövdesinden üretmek güvenlidir: sayfa adını ve tablonun DataBodyRange adresini birleştirip RowSource özelliğine metin olarak atayın. Tabloya satır eklendiğinde adresi yeniden hesaplamayı unutmayın.
• Canlı bağlantı: Liste, sayfadaki hücrelere bağlıdır; kaynak hücreler silinir ya da sayfa yeniden düzenlenirse liste de etkilenir. Sayfadan bağımsız bir kopya gerekiyorsa aralığı List özelliğine atayın ya da öğeleri AddItem ile ekleyin.
• İlgili konular:
  • ListBox ve ComboBox: RowSource özelliğine sahip denetimler.
  • ColumnCount, ColumnHeads, ColumnWidths, BoundColumn: Çok sütunlu listeyi biçimlendiren özellikler.
  • List, AddItem, RemoveItem, Clear: Listeyi sayfadan bağımsız doldurma ve boşaltma.
  • ControlSource: Seçilen değeri bir hücreye bağlayan özellik.
  • UserForm_Initialize: Listeyi form açılırken doldurmak için kullanılan olay.
  • Names.Add: Adlandırılmış aralık tanımlama yöntemi; Formüller > Tanımlı Adlar > Ad Yöneticisi (Formulas > Defined Names > Name Manager).
  • End(xlUp): Son dolu satırı bulma.
  • KAYDIR ve DOLAYLI: Dinamik aralık adları oluşturmakta kullanılan işlevler.