Soru Change Olayında İki Veriyi Birleştirip Getirme

[TURKOLOG]

Herkese Merhaba aşağıdaki kodlarla Change olayı ile verileri textboxlara cekebiliyorum

Private Sub TextBox9_Change()
Dim bul
        On Error Resume Next
        bul = Sheets("VERİ").Range("B2:B100000").Find(What:=TextBox9, LookIn:=xlValues, lookat:=xlWhole).Row
         TextBox2.Value = Sheets("VERİ").Cells(bul, 3).Value
        TextBox3.Value = Sheets("VERİ").Cells(bul, 5).Value
        TextBox4.Value = Sheets("VERİ").Cells(bul, 2).Value
 
     
End Sub

Benim istediğim olay textbox2 ye veri safasındaki 3 veriyi bir boşluk ve 4. veriyi birleştirerek getirmek .

TextBox2.Value = Sheets("VERİ").Cells(bul, 3).Value

bu satıra veri sayfasındaki 3. veriyi bir boşluk 4 veriyi nasıl getirebilirim.

 

[mustafabilgen]

Private Sub TextBox1_Change()
Dim bul
        On Error Resume Next
        bul = Sheets("VERİ").Range("B2:B100000").Find(What:=TextBox1, LookIn:=xlValues, lookat:=xlWhole).Row
        TextBox2.Value = Sheets("VERİ").Cells(bul, 3).Value & " " & Sheets("VERİ").Cells(bul, 5).Value & Sheets("VERİ").Cells(bul, 2).Value
        TextBox3.Value = Sheets("VERİ").Cells(bul, 5).Value
        TextBox4.Value = Sheets("VERİ").Cells(bul, 2).Value
 
    
End Sub

Eğer yanlış anlamadıysam yukarıdaki kod işinizi görecektir diye düşünüyorum.

 

[TURKOLOG]

TextBox2.Value = Sheets("VERİ").Cells(bul, 3).Value & " " & Sheets("VERİ").Cells(bul, 4).Value

Hocam çok teşekkür ederim elinize emeğinize sağlık. Kod çalıştı.

 

[mustafabilgen]

Hocam çok teşekkür ederim elinize emeğinize sağlık. Kod çalıştı.

Rica ederim. Önemli değil.