Textbox'daki Verinin Bir Kısmını Başka Bir Textbox'a Aldırmak

[ahmed_ummu]

Günaydın arkadaşlar.

Bir konuda yardım rica edeceğim. Excelde =SOLDAN(A1;3) formülünün yaptığı işlevi Textbox da yapabilir miyiz. Textbox1 deki verinin ilk üç karakteriniTextbox2 ye nasıl aldırabiliriz. Yardımcı olursanız sevinirim.

 

[Muzaffer Ali]

Merhaba.

textbox2.text=left(textbox1.text,3)

 

[ahmed_ummu]

Merhaba.

textbox2.text=left(textbox1.text,3)

Teşekkürler Muzaffer Ali bey çözüldü.

 

[ahmed_ummu]

Arkadaşlar bir sorum daha olacak. Aşağıdaki kod ile yapılan işlem 1 saniyede oluyodu. Hücrelerin yüksekliğini ayarlamak için Kırmızı renkteki satırı ekleyince işlem 15-20 saniye sürüyor, çok kasıyo. Yanlış yere mi ekledim. Bakabilir misiniz.


Private Sub CommandButton2_Click()
Set sh1 = Sheets("veri")
Set sh2 = Sheets("sirkü")

SonSatirsil = sh2.Cells(Rows.Count, "b").End(3).Row
For ssil = SonSatirsil To 7 Step -1
sh2.Cells(ssil, SonSatirsil).EntireRow.Delete
Next ssil

s = 7
For i = 2 To sh1.Cells(Rows.Count, 2).End(xlUp).Row
If sh1.Cells(i, 15).Value = ComboBox5.Value Then
sh2.Range("a2").Value = TextBox1.Value
sh2.Range("b" & s).Value = sh1.Cells(i, 2).Value
sh2.Range("b" & s).Font.Size = 8
sh2.Range("c" & s).Value = sh1.Cells(i, 16).Value
sh2.Range("c" & s).Font.Size = 8
sh2.Cells(i, 15).EntireRow.RowHeight = 20
s = s + 1
End If
Next i

For i = 7 To sh2.Cells(Rows.Count, "b").End(xlUp).Row
sh2.Cells(i, "a").Value = i - 6
sh2.Cells(i, "a").Font.Size = 8
sh2.Cells(i, "a").HorizontalAlignment = xlCenter
Next i

Dim m As Integer
Dim SonSatir1 As Long
SonSatir1 = sh2.Cells(Rows.Count, "B").End(3).Row
For m = 1 To 4
sh2.Range("A6:d" & SonSatir1).Borders(m).LineStyle = 1
Next m
End Sub

 

[Muzaffer Ali]

Kırmızı satırı silip aşağıdaki satırı kodun en sonuna ekleyebilirsiniz.

sh2.Rows("2:" & sh1.Cells(Rows.Count, 2).End(xlUp).Row ).EntireRow.RowHeight = 20

 

[ahmed_ummu]

Kırmızı satırı silip aşağıdaki satırı kodun en sonuna ekleyebilirsiniz.

sh2.Rows("2:" & sh1.Cells(Rows.Count, 2).End(xlUp).Row ).EntireRow.RowHeight = 20

Kırmızı satırı silip aşağıdaki satırı kodun en sonuna ekleyebilirsiniz.

sh2.Rows("2:" & sh1.Cells(Rows.Count, 2).End(xlUp).Row ).EntireRow.RowHeight = 20

Çok teşekkürler Muzaffer Ali bey. Düzeldi.