رشراش قام بنشر نوفمبر 25, 2019 مشاركة قام بنشر نوفمبر 25, 2019 المطلوب كود او بالمعادلات البحث في جميع الشيت، والترحيل المرفق للتوضيح جازاكم الله خيرا. بحث في نفس الملف في كل الصفحات وترحيل الى شيت.rar رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر نوفمبر 25, 2019 مشاركة قام بنشر نوفمبر 25, 2019 جرب هذا الماكرو ربما يفي بالغرض Set ws = Sheets("الهدف") Dim lr, lr2, X Dim CH As Range Set CH = ws.Range("o2") Dim SH As Worksheet lr2 = 11 Application.ScreenUpdating = False ws.Range("c11:e11").ClearContents For Each SH In Sheets If SH.Name = "الهدف" Then GoTo 1 lr = SH.Range("c" & Rows.Count).End(xlUp).Row For X = 5 To lr If CH = SH.Cells(X, "c") Then ws.[d5] = SH.Name ws.[c7] = SH.Cells(X, "b") ws.Range("c" & lr2).Value = SH.Cells(X, "a").Value ws.Range("d" & lr2).Resize(1, 2).Value = SH.Cells(X, "c").Resize(1, 2).Value lr2 = lr2 + 1 End If Next X 1: Next SH Application.ScreenUpdating = True End Sub 2 رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر نوفمبر 26, 2019 الكاتب مشاركة قام بنشر نوفمبر 26, 2019 استميحك عذرا أخي حسين مامون لم اعرف كيف انفذ الماكرو، فلو سمحت ضمنه في الملف، لاني لم اصل الى نتيحة.. جازاك الله خيرا. رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر نوفمبر 30, 2019 أفضل إجابة مشاركة قام بنشر نوفمبر 30, 2019 المرفق بحث في نفس الملف في كل الصفحات وترحيل الى شيت.xlsm 2 رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر ديسمبر 1, 2019 الكاتب مشاركة قام بنشر ديسمبر 1, 2019 جزاك الله خيرا، جربته ويعمل جيد، . يبقى الان تنقصني إضافة للكود حتى يعمل مباشرة دون الحاجة للضغط على زر، اي بمجرد الانتقل من الخلية O1 نحصل على النتيجة. رابط هذا التعليق شارك 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.