Textbox içinde belli karakterle ayrılmış verileri diziye, döngüye almak.

[walabi]

Merhaba,

Aşağıdaki kodda Textbox8.value yerine, textbox8 içine belli bir karakterle ayıracağım ifadeler girdikten sonra bu ifadeleri sırayla döngüye sokacak kod nasıl olabilir???

Örneğin textbox8 içinde şu şekilde veri girmeyi düşünüyorum. 100, 101, 102, 153 gibi. Yada 100; 101; 102; 153 gibi.

Koddaki Textbox8.Value ifadesi yerine sırayla bu ifadeleri döngüye sokup, eşleşen verileri listelemem gerekiyor.

    For i = 2 To s1.[A65536].End(xlUp).Row


        
        If TextBox3 <> "" And TextBox4 <> "" And TextBox1 <> "" And TextBox2 <> "" And _
        CDate(s1.Cells(i, "E")) >= Tarih_1 And CDate(s1.Cells(i, "E")) <= Tarih_2 And _
        Left(s1.Cells(i, "B"), 3) = TextBox8.Value Then
                Set Liste = ListView1.ListItems.Add(, , s1.Cells(i, "B").Value)
                Liste.SubItems(1) = s1.Cells(i, "B").Value
                Liste.SubItems(2) = s1.Cells(i, "C").Value

                
                      
      
        End If
    Next i

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Metin As Variant
    For Each Metin In Split(textbox8.Text, ";")
        MsgBox Trim(Metin)
    Next
End Sub

 

[walabi]

Merhaba.

Sub test()
    Dim Metin As Variant
    For Each Metin In Split(textbox8.Text, ";")
        MsgBox Trim(Metin)
    Next
End Sub

Sayın Muzaffer Ali teşekkürler,