userformda 50 satırlık textbox

[osmanfenerli1907]

merhaba
çalışmamda userformda 50 satır textbox kullanmam gerekiyor.ve her satırda 5 textbox olacak.yani toplam 250 adet textbox.bu görevi yapabilecek başka bir nesne varmı?.nesne bilgileri hücrelere kaydetmeye yarayacak.

 

[ynmcan]

merhaba
çalışmamda userformda 50 satır textbox kullanmam gerekiyor.ve her satırda 5 textbox olacak.yani toplam 250 adet textbox.bu görevi yapabilecek başka bir nesne varmı?.nesne bilgileri hücrelere kaydetmeye yarayacak.

Syn. Osmanfenerli;
Direk hücredn hücreye aktarılması daka mantıklı. Ancak konuyu daha açıklayıcı biçimde örnek bir dosya ile desteklerseniz daha kolay yardım alabilirsiniz.

 

[Orion1]

merhaba
çalışmamda userformda 50 satır textbox kullanmam gerekiyor.ve her satırda 5 textbox olacak.yani toplam 250 adet textbox.bu görevi yapabilecek başka bir nesne varmı?.nesne bilgileri hücrelere kaydetmeye yarayacak.

Textboxın propertiesten multiline özellğini true yapın.Ve satır satır yazınızı yazın satır bittiğinde ctrl+enter tuşuna basın.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim deg, i As Integer, deg2 As String
Range("A:A").ClearContents
deg = Split(TextBox1.Text, vbLf)
For i = LBound(deg) To UBound(deg)
    deg2 = Replace(deg(i), Chr(13), "")
    Cells(i + 1, "A").Value = deg2
Next
End Sub

 

[cemal18]

Çok satırlı textbox içeriğini çalışma sayfasına aktarmak

Birkaç satırdan oluşan bir metni (Multiline true) yapmış olduğum textbox dan A sütunundaki hücrelere aktarmak istiyordum.
Sayın Orion1'in başka bir soruya yanıt olarak yazdığı aşağıdaki kodu kullanarak sorunumu çözdüm teşekkür ederim.


Private Sub CommandButton1_Click()

Dim deg, i As Integer, deg2 As String

Range("A:A").ClearContents
deg = Split(TextBox1.Text, vbLf)
For i = LBound(deg) To UBound(deg)
deg2 = Replace(deg(i), Chr(13), "")
Cells(i + 1, "A").Value = deg2
Next
End Sub