Textbox Karekter sınırlama

[ridvan2111]

Merhaba,

TextBox1.Text = WorksheetFunction.Max(Sheets("Siparis_Girisi").Range("A:A")) + 1

Yukarıdaki kod ile userform initializede Textbox1 e A sutununda en büyük sayının bir üstünü aldırıyorum.

Benim istediğim kodlarda yaptığım değişiklik nedeni ile A sutunundaki rakkamların sağdan sola 4 sayıyı almayacak. veya sodan sağa 4 sayıyı alacak ( A sutununsa 8 karekter var )

2. sorum. listview cilick olayında da

TextBox2.Text = ListView1.ListItems(X).ListSubItems(2).Text

Textbox2 ye yine sağdan sola 4 karekteri almayacak veya soldan sağa 4 karekteri alacak.

 

[Orion1]

buyurun.
soldan 4 karakteri alıyor.

msgbox left(textbox1.text,4)

 

[ridvan2111]

buyurun.
soldan 4 karakteri alıyor.

msgbox left(textbox1.text,4)

Merhaba Evren Bey,

m = WorksheetFunction.Max(Sheets("Siparis_Girisi").Range("B:B"), (Sheets("Bekleyen_Siparisler").Range("B:B")))
 Left(TextBox2.Text, 4) = m + 1

Bu şekilde yazdığımda hata veriyor.
Doğrusu nasıl olmalı?

 

[ridvan2111]

Merhaba Evren Bey,

m = WorksheetFunction.Max(Sheets("Siparis_Girisi").Range("B:B"), (Sheets("Bekleyen_Siparisler").Range("B:B")))
 Left(TextBox2.Text, 4) = m + 1

Bu şekilde yazdığımda hata veriyor.
Doğrusu nasıl olmalı?

TextBox2.Text = WorksheetFunction.Max(Sheets("Siparis_Girisi").Range("B:B"), (Sheets("Bekleyen_Siparisler").Range("B:B")))
 
 TextBox2.Text = Left(TextBox2.Text, 4) + 1

bu şekilde oldu