ترحيل البيانات من التكيست بوكس الي الليست بوكس ومن الليست بوكس الى الشيت

[Ashraf Ehab]

السادة الاساتذه

السلام عليكم ورحمة الله وبركاته

 هل يوجد حل لترحيل البيانات من التيكيست بوكس الي الليست بوكس بالضغط علي زر اضافة للقائمةمع العلم ان عدد التيكست بوكس 14 بمعدل 14 عمود

ومن الليست بوكس الي الشيت بعد الضغط علي زر  اضافة القائمة  في Purchasesform

الموضوع ده ممكن صعب لكن مش مستحيل فلو حد عنده فكرة او طريقة تانيةاو مساعدة يكتبهالي انا عموما وصلت لحل جزئي في مشكلة ترحيل البيانات من التيكست بوكس الي الليست بوكس بالكود ده 

بس طبعا ده بيضيف مرة واحدة بس ولو مليت بيانات تانية بيشيل القديم مش بيزود عليه وانا شاكر جدا للجميع 

Private Sub cmdaddlist_Click()
Dim xx(1, 14)
xx(0, 1) = Me.TextBox1
xx(0, 2) = Me.TextBox2
xx(0, 3) = Me.TextBox3
xx(0, 4) = Me.TextBox4
xx(0, 5) = Me.TextBox5
xx(0, 6) = Me.TextBox6
xx(0, 7) = Me.TextBox7
xx(0, 8) = Me.TextBox8
xx(0, 9) = Me.TextBox9
xx(0, 10) = Me.TextBox10
xx(0, 11) = Me.TextBox11
xx(0, 12) = Me.TextBox12
xx(0, 13) = Me.TextBox13
xx(0, 14) = Me.TextBox14
ListBox1.List() = xx
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
End Sub

dwork.xlsm

[Ashraf Ehab]

تم بنجاح حل مشكلة الترحيل الي الليست بوكس وقد تم كالتالي

من اليوزر فورم قمت بكتابة هذا الكود

Private Sub UserForm_Initialize()
With Me.ListBox1
       .ColumnCount = 14
       .List = Range(Cells(1, 1), Cells(1, .ColumnCount)).Value
       .ColumnWidths = "100,100,100,150,100,100,100,100,150,100,100,100,100,100"
End With
End Sub

وبعدها في زر اضافة للقائمة قمت بهذا الكود

Private Sub cmdaddlist_Click()
With Me.ListBox1
 .AddItem Me.TextBox1
 .List(.ListCount - 1, 1) = Me.TextBox2
 .List(.ListCount - 1, 2) = Me.TextBox3
 .List(.ListCount - 1, 3) = Me.TextBox4
 .List(.ListCount - 1, 4) = Me.TextBox5
 .List(.ListCount - 1, 5) = Me.TextBox6
 .List(.ListCount - 1, 6) = Me.TextBox7
 .List(.ListCount - 1, 7) = Me.TextBox8
 .List(.ListCount - 1, 8) = Me.TextBox9
 .List(.ListCount - 1, 9) = Me.TextBox10
 .List(.ListCount - 1, 10) = Me.TextBox11
 .List(.ListCount - 1, 11) = Me.TextBox12
 .List(.ListCount - 1, 12) = Me.TextBox13
 .List(.ListCount - 1, 13) = Me.TextBox14
 Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
End With
End Sub

والان يوجد مشكلة بسيطة ان رؤس الاعمدة الخاصة بالمشتريات لا تظهر الا علي الشيت المفتوح حاليا 

بمعني لو كنت فاتح شيت تاني غير المشتريات يجبلي رؤوس المشتريات

اكون شاكر جدا لو حد حللي المشكلة دي وشكرا

 

 

[Ashraf Ehab]

تم حل المشكلة 

شكرا للجميع الحل كان في هذا الكود 

Private Sub UserForm_Initialize()
With Me.ListBox1
       .ColumnCount = 14
       .RowSource = Empty
        Sheets("PURCHASES").Select
       .List = Range(Cells(1, 1), Cells(1, .ColumnCount)).Value
       .ColumnWidths = "100,100,100,150,100,100,100,100,150,100,100,100,100,100"
End With
End Sub

ممكن ينفع حد وقع في نفس المشكلة وشكرا