Çoklu Textboxlara tab sıralı veri kopyalama

[ex912]

selamlar,

userform da 12 adet textbox ile 6*2 formda matris oluşturdum. Elimde birbirlerinden TAB ile ayrılmış 12 adet veriyi notepad ten klavye ile kopyalayıp userfordaki textboxlara sırası bozulmadan yapıştırmak istiyorum. Fakat sadece ilk textboxa veriler kopyalanıyor. Ben notepad teki gibi her bir veri aynı sıradaki textbox a denk gelecek şekilde olmasını amaçlıyorum.

örnek bir data dosyasını ekte gönderiyorum,

yardımlarınız için teşekkürler.

 

[sahir73]

Yıl 2023 benimde buna ihtyacım oldu

 

[alicimri]

Kopyalanmış metinin kelimeleri tab ile ayrılmış ve TextBox ların adları TextBox1, TaxtBox2......... şeklinde gibiyse, Form üzerinde tıklayınca çalışan kod aşağıda

Function kopyalanan()
  Dim obj As Object
  Set obj = CreateObject("HtmlFile")
  kopyalanan = obj.parentWindow.clipboardData.GetData("text")
End Function
Private Sub UserForm_Click()
metin = Split(kopyalanan, Chr(32))
say = UBound(metin)
For i = 0 To say
Me.Controls("TextBox" & i + 1).Value = metin(i)
Next
End Sub

Kaynak:VBA Panoya Kopyala - Excel'i Otomatikleştir (automateexcel.com)