پرسش انتقال اطاعات تکست باکس به شیت

[younes672]

با سلام
اساتید بزگوار چطور میشه اطلاعات تکست باکس 1 فایل پیوستی را با توجه به لیست کشویی یوزرفرم(کامبوباکس1)به ستون مورد نظر انتقال داد.

یعنی اگر از طریق لیست کشویی یوزرفرم ردیف2 انتخاب شد اطلاعات تکست باکس1 به ستون ردیف2 انتقال داده شود و ...

[iranweld]

با سلام

از این کد استفاده نمایید و در تنظیمات Rowsource کمبوباکس یک را خالی بگذارید

Private Sub UserForm_Initialize()

k1 = Cells(1, Columns.Count).End(xlToLeft).Column

For j = 1 To k1

ComboBox1.AddItem Cells(1, j)

Next

End Sub


Private Sub CommandButton1_Click()

k1 = Cells(1, Columns.Count).End(xlToLeft).Column

For j = 1 To k1

If ComboBox1 = Cells(1, j) Then

For i = 2 To 100000

If Cells(i, j) = "" Then

Cells(i, j) = TextBox1

TextBox1 = ""

Exit For

End If

Next

End If

Next

End Sub