كمال على طارق قام بنشر April 21 مشاركة قام بنشر April 21 السلام عليكم أساتذتى وأحبائى الكرام , أتمنى للجميع دوام الصحة والعافية .. الرجاء من سيادتكم مساعدتى بتعديل كود الترحيل لكى يقوم بالترحيل للصفحة المحددة والموضحة بالخلية 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 رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر April 21 مشاركة قام بنشر April 21 وعليكم السلام ورحمة الله وبركاته ضع متغير باسم الصفحه التي تريد الترحيل لها هذه بدايه التغييرات ويمكنك اكمال باقي الترحيلات بنفس المنوال عذرا لانى اعمل بالموبايل 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 1 رابط هذا التعليق شارك More sharing options...
كمال على طارق قام بنشر April 21 الكاتب مشاركة قام بنشر April 21 أحسنت استاذ حسونة حل رائع وتعديل ممتاز جعله الله فى ميزان حسناتك وبارك الله فى جهود سيادتكم وجعل تالله هذا العمل فى ميزان حسناتك وأكرمك الله رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسونة حسين قام بنشر April 21 أفضل إجابة مشاركة قام بنشر April 21 تفضل تبسيط للكود نموذج ادخال بيانات الحجاج داخل الشيت.xlsm 1 رابط هذا التعليق شارك More sharing options...
كمال على طارق قام بنشر April 21 الكاتب مشاركة قام بنشر April 21 مجهود ممتاز بارك الله فيك وزادك الله من فضله واختصار رائع للكود رابط هذا التعليق شارك More sharing options...
كمال على طارق قام بنشر April 22 الكاتب مشاركة قام بنشر April 22 أستاذ حسونة حسين ...ولأنى حاولت أن أجعل الخلية H4 بصفحة Entry عند البحث بإسم الحاج ان تقوم بكتابة الإسم كاملاً بمجرد كتابة أول حرف أو أى حرف من الإسم فلم أنجح فى ذلك .. فهل يمكنك مساعدتى بذلك بارك الله فيك او جعل الخلية H4 كقائمة منسدلة تأخذ القائمة من جميع أسماء الحجاج من كل صفحات الملف ... ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر April 22 مشاركة قام بنشر April 22 هذا موضوع اخر اخي كمال يرجي فتح موضوع اخر بالطلب الجديد 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.