تعديل كود الترحيل ليقوم بالترحيل إلى الصفحة المحددة

[كمال على طارق]

السلام عليكم أساتذتى وأحبائى الكرام , أتمنى للجميع دوام الصحة والعافية .. الرجاء من سيادتكم مساعدتى بتعديل كود الترحيل لكى يقوم بالترحيل للصفحة المحددة والموضحة بالخلية J4 الموجودة بصفحة Entry  ولكم جزيل الشكر وبارك الله فى جهودكم

Private Sub cmdAdd_Click()
Dim M As Integer
M = Sheet2.Range("B500").End(xlUp).Row + 1
Sheet2.Cells(M, "B").Value = Sheet1.Range("G6").Value
Sheet2.Cells(M, "C").Value = Sheet1.Range("G8").Value
Sheet2.Cells(M, "D").Value = Sheet1.Range("G10").Value
Sheet2.Cells(M, "E").Value = Sheet1.Range("G12").Value
Sheet2.Cells(M, "F").Value = Sheet1.Range("J6").Value
Sheet2.Cells(M, "G").Value = Sheet1.Range("J8").Value
Sheet2.Cells(M, "H").Value = Sheet1.Range("J10").Value
Sheet2.Cells(M, "I").Value = Sheet1.Range("J12").Value
Sheet2.Cells(M, "k").Value = Sheet1.Range("J14").Value
Sheet2.Cells(M, "J").Value = Sheet1.Range("G14").Value
Sheet2.Cells(M, "M").Value = Sheet1.Range("J16").Value
Sheet2.Cells(M, "L").Value = Sheet1.Range("G16").Value
Sheet1.Range("G6").Value = ""
Sheet1.Range("G8").Value = ""
Sheet1.Range("G10").Value = ""
Sheet1.Range("G12").Value = ""
Sheet1.Range("J6").Value = ""
Sheet1.Range("J8").Value = ""
Sheet1.Range("J10").Value = ""
Sheet1.Range("J12").Value = ""
Sheet1.Range("G14").Value = ""
Sheet1.Range("J14").Value = ""
Sheet1.Range("G16").Value = ""
MsgBox "تم ترحيل بيانات الموظف بنجاح"
End Sub

 

نموذج ادخال بيانات الحجاج داخل الشيت.xlsm

[حسونة حسين]

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

ضع متغير باسم الصفحه التي تريد الترحيل لها

هذه بدايه التغييرات ويمكنك اكمال باقي الترحيلات بنفس المنوال

عذرا لانى اعمل بالموبايل 

Private Sub cmdAdd_Click()
Dim WS As Worksheet SH As Worksheet
Set SH  = ThisWorkbook.Worksheets("Entry")
Set WS = ThisWorkbook.Worksheets(Sh.Range("J4").text)
Dim M As Integer
M = WS.Range("B500").End(xlUp).Row + 1
WS.Cells(M, "B").Value = Sh.Range("G6").Value

[كمال على طارق]

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

[حسونة حسين]

تفضل تبسيط للكود

 

نموذج ادخال بيانات الحجاج داخل الشيت.xlsm

[كمال على طارق]

مجهود ممتاز بارك الله فيك وزادك الله من فضله واختصار رائع للكود

[كمال على طارق]

أستاذ حسونة حسين ...ولأنى حاولت أن أجعل الخلية H4 بصفحة Entry عند البحث بإسم الحاج ان تقوم بكتابة الإسم كاملاً بمجرد كتابة أول حرف أو أى حرف من الإسم فلم أنجح فى ذلك .. فهل يمكنك مساعدتى بذلك  بارك الله فيك او جعل الخلية  H4 كقائمة منسدلة تأخذ القائمة من جميع أسماء الحجاج من كل صفحات الملف ... ولكم جزيل الشكر

[حسونة حسين]

هذا موضوع اخر اخي كمال يرجي فتح موضوع اخر بالطلب الجديد