Textbox ta satır bul

[işsiz123]

Merhabalar,
Textbox1 ve textbox2 olarak 2 adet textbox var ben textbox1 de ne yazarsam textbox2 de boşluk olarak yazılması lazım.
Application.WorksheetFunction.Rept(" ", Len(TextBox1)) tek SATIR oldumu sorum yok güzel çalışıyor. Ama textbox1 de alt satıra geçti mi textbox2 de alt satıra geçmiyor.

Uzunlafın kısası textbox1 de alt satıra geçti mi textbox2 de de alt satıra geçmesini nasıl sağlayabilirim. Teşekkürler

 

[ÖmerFaruk]

Textbox2 bos kalacaksa alt satirin ne anlami var? Zaten bos gozukecek

 

[işsiz123]

Textbox2 bos kalacaksa alt satirin ne anlami var? Zaten bos gozukecek

Alt mesaj

 

[işsiz123]

Tamamen boş gözükmeyecek. ileri zamanlarda işlem tam tersi olacak bundaki maksat satırlar hizalı aynı olsun

Textbox1	Textbox2
​
asdasd sdasd	​
	sdasdasdasd​
hatalı satır burası boş kalması lazım karşısı dolu	Bunun karşısı boş kalması lazım​
Burdan başlaması	​
	​

[TD='bottom']

sadasda

sdasdasd​

[/TD]

 

[ÖmerFaruk]

Bir userform yaptım.
2 tane TextBox ekledim
Her ikisinin de Multiline özelliğini TRUE yaptım.
Genişliklerinin 100 olarak ayarladım
Aşağıdaki kodu ekledim.
Textbox1 de bir şeyler yazdım ve textbox2 dediğiniz gibi değişti.

Private Sub TextBox1_Change()
TextBox2 = WorksheetFunction.Rept("x", Len(TextBox1))
End Sub

 

[işsiz123]

Bir userform yaptım.
2 tane TextBox ekledim
Her ikisinin de Multiline özelliğini TRUE yaptım.
Genişliklerinin 100 olarak ayarladım
Aşağıdaki kodu ekledim.
Textbox1 de bir şeyler yazdım ve textbox2 dediğiniz gibi değişti.

Private Sub TextBox1_Change()
TextBox2 = WorksheetFunction.Rept("x", Len(TextBox1))
End Sub

Elinize sağlık ama textbox1de alt satıra geçince textbox2 de yan yana devam ediyor. altta geçti mi o da geçsin karşılıklı mesajlaşma uygulaması gibi gönderen ve alan gibi

 

[ÖmerFaruk]

Başka bir yol gelmiyor aklıma

 

[işsiz123]

Başka bir yol gelmiyor aklıma

Teşekkürler
Sağdan soldan birkaç kod ile biraz oldu gibi ama fazla alt alta yazı yazdımmı hızlar bozuluyor. Örnek dosya ekledim belki sizin aklınıza bir kaç düzetme gelir başka bir yol gelir .
https://s2.dosya.tc/server18/iiem0p/msm.xlsm.html

 

[Zeki Gürsoy]

Bakınız;

Private Sub TextBox1_Change()
    Me.Caption = Me.TextBox1.CurLine
End Sub

.

 

[işsiz123]

Bakınız;

Private Sub TextBox1_Change()
    Me.Caption = Me.TextBox1.CurLine
End Sub

.

Teşekkürler ,
CurLine oldugunuda öğrendim