محمد عبد الناصر قام بنشر أكتوبر 21, 2020 مشاركة قام بنشر أكتوبر 21, 2020 اريد ترحيل بيانات السطر بالكامل على حسب اسم الطبيب المعالج فمثلا الطبيب المعالج اسمه "احمد" ينقل بيانات الطبيب احمد الى شيت الدكتور احمد وكذلك الدكتور حاتم ينقل جميع بيانات الدكتور حاتم الى شيت الدكتور حاتم الملف المرفق موضح المطلوب جعله الله في موازين حسناتكم fik.xlsm رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أكتوبر 22, 2020 مشاركة قام بنشر أكتوبر 22, 2020 جرب هذا الكود ولكن يجب ان تكون مسميات الشيتات كما في العمود (i) Sub Envoier_donner() Dim sh As Worksheet Dim ws As Worksheet Set ws = Sheets("التقرير") Dim lr1, lr2, x, x2 Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets lr1 = ws.Cells(Rows.Count, 2).End(3).Row For x = 11 To lr1 If ws.Cells(x, "i").Text = sh.Name Then lr2 = sh.Cells(Rows.Count, 2).End(3).Row + 1 sh.Range("b" & lr2).Resize(1, 12).Value = ws.Cells(x, 2).Resize(1, 12).Value End If Next x Next sh Application.ScreenUpdating = True End Sub fik.xlsm 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر أكتوبر 22, 2020 أفضل إجابة مشاركة قام بنشر أكتوبر 22, 2020 جرب المرفق fik.xlsm 1 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أكتوبر 22, 2020 الكاتب مشاركة قام بنشر أكتوبر 22, 2020 نعم هذا هو المطلوب تماما بوركت وبارك الله في علمك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان