Textbox içi satır numaralandırma

[mehmet dur]

Merhabalar Textbox içerisinde iken enter tuşuna her bastığımda imleç aşağı satıra kayıyor, ben imleç her alt satıra indiğinde sıra numarası eklemesini istiyorum. Acaba mümkün mü?

 

[ÖmerFaruk]

1. Bu textbox sayfadamıdır yoksa formda mı?
2. Sayfadaysa form denetiminden mi yoksa activex denetiminden mi eklediniz?
3. Textboxa ait kullandığınız bir KOD var sa onu da belirtin.

 

[mehmet dur]

Ömer bey textbox formda ve herhangi bir kod yazmadım

 

[ÖmerFaruk]

Şu kodları inceleyin ve kullanın, işinizi görecek mi belirtin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Metin = Me.TextBox1.Value
    Me.TextBox1 = ""
    Satırlar = Split(Replace(Metin, Chr(13), ""), Chr(10))
    For i = 0 To UBound(Satırlar)
        If Len(Satırlar(i)) > 0 Then Me.TextBox1 = Me.TextBox1 & i + 1 & ". " & Satırlar(i)
        If i < UBound(Satırlar) Then
           If Len(Satırlar(i + 1)) > 0 Then Me.TextBox1 = Me.TextBox1 + Chr(13)
        End If
    Next i
End Sub

 

[mehmet dur]

Ömer bey kodlar exit olayında gayet güzel çalıştı. Ama ben textbox'a yazarken her enter tuşuna basınca yani imleç bir alt satıra geçince bu kodların çalışmasını istiyorum.
TextBox1_Enter yordamına yazdığım zaman sadece form açılınca numara veriyor sonradan enter yaptığım zaman çalışmıyor

 

[ÖmerFaruk]

Exit olayında olması neden kötü ki?
Sonuçta Userforma verileri girecek sonra da bir şekilde Excel sayfasına aktarcaksınız.
Amacınızın Excel sayfasına sıra numarası koyarak aktarması olacağını düşünüyorum.
Zira Userform üzerinde sıra numaralı gözükmesi ya da gözükmemesi size bir şey kaybettirmez.

Her enter basışınızda çalışsın diyorsanız kodların revize olması şart.

 

[mehmet dur]

Ömer bey söyledikleriniz doğru ama bu çalışma vardiya defteri olarak kullanılacak ve farklı kişiler kullanacak, bazen cümle bitmeden kendisi alt satıra geçince textboxtan çıkınca sıra numarası verdiğinde sanki yazılan bilgi iki farklı cümle gibi görünecek, bu yüzden mümkünse kodları enter olayına göre revize edebilir miyiz. Ayrıca özel sektörde çalışıyorum ve vardiyam bitmek üzere vereceğiniz cevabı daha sonra deneyebilirim. Şimdiden çok teşekkür ederim.

 

[ÖmerFaruk]

Textboxa ait başka kod varsa silin. Ve aşağıdakileri kopyalayın.
Umarım bu isteğinizi karşılar.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Len(TextBox1) = 0 Then TextBox1 = 1 & ". "
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 8 Or 46
            Exit Sub
        Case 13
            If Len(Me.TextBox1) > 0 Then
                For i = 1 To Len(Me.TextBox1)
                    If Mid(Me.TextBox1, i, 1) = Chr(10) Then Say = Say + 1
                Next i
                TextBox1 = TextBox1 & Say + 1 & ". "
            End If
    End Select
End Sub

 

[mehmet dur]

Merhaba Ömer bey kusura bakmayın mesajınızı az önce gördüm iş yerinde değilim ve telefondan yazıyorum en kısa sürede kodlarınızı deneyeceğim.
Çok teşekkür ederim hayırlı geceler

 

[mehmet dur]

Merhabalar
Sorumun cevabını Ömer bey'in daha önceden verip şimdi denediğim kod ile hallettim, satır başlarına sıra numarası veriyor. Ama satır aralarına boşluk verdiğim zaman imleç tekrar son satıra gidiyor. Boşluk verdiğim satırdan nasıl devam edebilirim.

 

[mehmet dur]

Yardımcı olacak kimse yok mu?

 

[ÖmerFaruk]

Merhaba
TextBox nesnesini amacı dışında farklı ihtiyaçlarınıza göre uyarlamaktan ve bunu sürekli zorlamaktan kaçınmanızı tavsiye ederim.
Farklı yöntemlerle konuyu çözebileceğinizi düşünüyorum.