Listbox rowsource gibi, texbox'a excel üzerinden birden çok satır verisini çekme

[wandoie]

ListBox1.RowSource = "veriler!xxx" benzeri kodlamanın textbox için versiyonu mevcut mu? 2 gündür sadece araştırıyorum kayda değer bir kod bulamadım.
var mıdır böyle bir kodlama textboxa multiline veri girme sağlayabiliyoruz fakat çekemiyoruz galiba

 

[Bilgemen]

Merhaba bu şekilde birşey mi

Private Sub UserForm_Initialize()
    Dim lastRow As Long
    Dim dataRange As Range
    Dim cell As Range
    Dim textBoxText As String
    
    ' Sayfanın son satırını bul
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' Verilerin bulunduğu aralığı tanımla
    Set dataRange = Range("A1:A" & lastRow)
    
    ' TextBox için metni başlat
    For Each cell In dataRange
        textBoxText = textBoxText & cell.Value & vbCrLf
    Next cell
    
    ' TextBox'a metni ata
    TextBox1.Text = textBoxText
End Sub

 

[ÖmerBey]

Merhaba,
Alternatif olsun...

TextBox1.MultiLine = True
TextBox1.Text = Join(Application.Transpose([Sayfa1!A1:A10]), vbLf)