uzun text'i traşlamak(31karakterle sınırlamak)

[ffesto]

İyi günler,

Arkadaşlar bir fatura programı oluşturuyorum,cari hesap için sekme eklemem gerekiyor. Sekmenin adını comboboxtan alıyorum fakat müşteri isimleri 31 karakterden uzun oldugu için hata mesajı geliyor. Bana comboboxın değerini 31 karakterden sonrasını traşlıyabileceğim bir kod lazım,bilen var mıdır yada kaynak gösterebilecek olan? şimdiden teşekkür ederim.

örnek: ORPK OTOMOTİV YEDEK PARÇA SERVİS HİZM. NAK. TURZ. GIDA HAY.
son hali: ORPK OTOMOTİV YEDEK PARÇA SERVİ
(kelimenin ortasından kesilmesi problem değil yeterki 31 karakteri geçmeyeyim)

 

[Ömer]

Merhaba,

combobox1.value = left(combobox1.value, 31)

Gibi kullanabilirsiniz.

 

[ffesto]

Çok teşekkür ederim Ömer bey, anında görüntü dedikleri bu olsa gerek karakter sayısıyla da oynayabilmem çok güzel oldu.

 

[Orion1]

kelime a1 hücresinde.

Sub kelime()
MsgBox Left(Range("A1").Value, 31)
End Sub