birden fazla veriyi tek textbox içine almak

[tezsen]

Herkes kolay gelsin,

Kitap1
Sayfa1
Hücreler A1, A2, A3 ve A4 yazdığım verilerin textbox 1 içerisine alt alta gelmesi için kodu arıyorum.

Listbox yöntemi ile yapabiliyorum, ancak tümünü seçemiyorum.

Nasıl bir kod kullanmalıyım.

Yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

    Dim i As Byte, s As Byte, ayr As String
    
    TextBox1.MultiLine = True
    
    For i = 1 To 4
        If Cells(i, "A") <> "" Then
            If s = 0 Then ayr = "" Else ayr = Chr(10)
            TextBox1.Text = TextBox1.Text & ayr & Cells(i, "A")
            s = 1
        End If
    Next i

.

 

[tezsen]

Ömer Bey,

Yardımlarınız için teşekkürler.