من اهم دورس الترحيل فى الاكسل | ترحيل بيانات محددة من الليست بوكس الى شيت الاكسل

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

خصوصا اذا كنت تريد ترحيل بيانات معينة فقط من الليست بوكس وليس جميع البيانات الموجودة داخل الليست بوكس

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

نقوم بفتح محرر الاكواد من تابة المطور
نقوم بادراج نموذج المستخدم UserForm
نقوم بدارج عدد 2 تكست بوكس
نقوم بادراج ليست بوكس
نعدل الليست بوكس من نافذة الخصائص الى Multy select
نقوم بادراج زر او Command Button لتنفيذ الكود
ونقوم بكتابة الكود التالى

With Sheet2

.Select

lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1

For i = 0 To Me.ListBox1.ListCount - 1

If Me.ListBox1.Selected(i) = True Then

Range("a" & lr).Value = Me.TextBox1.Value

Range("b" & lr).Value = Me.ListBox1.List(i, 0)

Range("c" & lr).Value = Me.ListBox1.List(i, 1)

Range("d" & lr).Value = Me.ListBox1.List(i, 2)

Range("e" & lr).Value = Me.ListBox1.List(i, 3)

Range("f" & lr).Value = Me.TextBox2.Value

lr = lr + 1

End If

Next i

End With

End Sub

وبعد تنفيذ هذا الكود سترى نتيجة مذهلة

لتحميل ملف العمل كامل بالكود من هنا

قد يعجبك ايضا

كلمات مفتاحية:

ترحيل البيانات,نقل البيانات فى الاكسل,تحويل البيانات من ملف لاخر,شيت اكسيل مرتبات,التحكم في نقل البيانات,ربط البيانات,الاكسل من الصفر للاحتراف,تحديثات البيانات الديناميكية,أهم دوال الاكسل,فى الاكسل,فى برنامج الاكسل,اهم معادلات الاكسيل,اكسيل شيت حضور وانصراف,شيتات,نقل البيانات تلقائيًا بين ملفات excel,شرح مبسط للاكسيل,حل كتاب الحاسب اول ثانوي مسارات الترم الاول 1-1,كيفية التحكم في نقل البيانات تلقائيًا بين ملفات excel,قناة الرؤى التعليمية,شيت مخازن كامل