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

[عصام_عادل]

السلام عليكم..

سأحاول اختصار طلبي في عدة نقاط

1- لدينا 3 دورات نقيمها خلال السنة كل دورة تتكرر مرتين.

2- طريقة التسجيل: عبر تعبئة نموذج أون لاين ويصل هذا النموذج للمكتب كإيميل (شكله كالذي في ورقة Form في الملف المرفق)

طلبي هو: هل يوجد طريقة لتعبئة جدول المشاركين في كل دورة بسحب بياناتهم من النماذج الخاصة بها؟ سواء كان ذلك بطريقة سحبها مباشرة من الإيميل أو يتم وضع نسخة من النماذج في نفس ملف الإكسل.

مرفق مثال من الملف

شكرا لكم

 

Book1.xlsx

تم تعديل أغسطس 20, 2019 بواسطه عصام_عادل

[ابراهيم الحداد]

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

استخدم هذا الكود وخصص له زر 

Sub TransData()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, ShName As String
Set Sh = Sheets("Form")
ShName = Sh.Range("B9")
For Each ws In ThisWorkbook.Worksheets
LR = ws.Range("A" & Rows.Count).End(xlUp).Row
If ws.Name = ShName Then
ws.Range("A" & LR + 1 & ":G" & LR + 1).Value = _
Application.Transpose(Sh.Range("B2:B8").Value)
End If
Next
Application.CutCopyMode = False
End Sub

 

ترحيل البيانات من نموذج تسجيل الى جميع الصفحات بإسم الصفحة.xlsm

[عصام_عادل]

أشكرك أستاذ إبراهيم .. أبدعت وما قصرت