Belirli Karakterden sonrasını Texbox' a almamak

[omeryılmaz]

Sorum, sayısal veride / den sonsasını Makro ile nasıl almayabiliriz...

170 /38/0111 ------> 170 Alınacak vb
200.01 /158 / 4055 ------->200.01
211.03.01 /1350/2062 ------->200.03.01
245.02 /0777 ------->245.02


Böyle bir kod buldum ama olmadı
For sat = 2 To Cells(65536, "C").End(3).Row
TextBox1.Text = Mid(Cells(sat, "C"), 1, InStr(Cells(sat, "C"), " " & Chr(34) & "/" & Chr(34)) - 1)
Next


Yardımlarınız için şimdiden şükranlarımı sunuyorum.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod A1 hücresindeki verinin istediğiniz bölümünü alır.

Say = InStr(Cells(1, "A"), "/")
If Say > 0 Then TextBox1.Text = Trim(Left(Cells(1, "A"), Say - 1))

 

[hamitcan]

Bir tane de benden...

Private Sub CommandButton1_Click()
    For i = 1 To [a65536].End(3).Row
        a = WorksheetFunction.Search("/", Cells(i, 1)) - 1
        TextBox1 = Left(Cells(i, 1), a)
    Next
End Sub

 

[mancubus]

TextBox1'e sütundaki bütün değerler yazılacak, nihayetinde en alttaki hücrenin değeri kalacak.
eğer bu ise, diğer verileri niye alalım. bu değil ise, tam ama nedir?

aranacak ilk / işaretinin hem öncesinde hem sonrasında boşluk var ise:

Mid(Cells(sat, "C"), 1, InStr(Cells(sat, "C"), " / ") - 1)

 

[mancubus]

pardon.
yanlış anladım sanırım.
sütundaki bütün verilerin ilgili kısmını alt alta tek bir textbox'a yazdırmak istiyorsunuz galiba.

 

[mancubus]

Dim metin As String

For sat = 2 To Cells(65536, "C").End(xlUp).Row
metin = metin & Mid(Cells(sat, "C"), 1, InStr(Cells(sat, "C"), " /") - 1) & vbLf
Next

TextBox1.Text = metin

 

[mancubus]

not:
eğer ihtiyaç bu ise. TextBox1'in MULTILINE özelliği TRUE olmalıdır. yoksa aralarında paragraf işareti ile tek bir satıra yazar.