Combobox kaydında karakter sınırlaması hk.

[balanar]

Merhaba,

ComboBox2'de değişken verilerim var.

Örnek;
2021(3)
2020(15)

gibi gibi. Veriler combobox içersinde böyle görünmek zorunda. Ama sonrasında kaydet yaptırdıgımda Normalde direk burada seçileni excelde ilgili sutuna kaydediyor. Benim amacım ilk 4 hanesini aldırmak yani 2021 i 2020 yi gibi..

Bunu nasıl yapabilirim?

 

[ÖmerFaruk]

Kodlarınızı bilmeden en kısa şekilde şöyle yapabilirsiniz.

Range("A1")=Left(ComboBox1.Value,4)

 

[balanar]

s1.Cells(satir + say, 7) = ComboBox2.Text
Else

SonSatir = WorksheetFunction.CountA(s1.Range("A:A")) + 1
s1.Cells(SonSatir, 1) = SonSatir - 1
s1.Cells(SonSatir, 2) = Trim(ComboBox1.Text)
s1.Cells(SonSatir, 3) = TextBox3.Value
s1.Cells(SonSatir, 4) = CDate(TextBox4.Value)
s1.Cells(SonSatir, 5) = CDate(TextBox5.Value)
s1.Cells(SonSatir, 6) = TextBox6.Value
s1.Cells(SonSatir, 7) = ComboBox2.Text

kayıt kodlarındaki combobox2.text kısmını kullanıyorum hocam

Left(ComboBox2.Value, 4)

teşekkür ediyorum şu şekilde halledildi...