ياسر خليل أبو البراء

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

أخي الكريم محمد الموافي جرب الكود التالي Sub TransferDataUsingFilterMethod() Dim WS As Worksheet, SH As Worksheet Dim LR As Long, LastRow As Long Dim X As Long, I As Long Set WS = Sheet1: Set SH = Sheet2 LR = WS.Cells(Rows.Count, 1).End(xlUp).Row LastRow = SH.Cells(Rows.Count, 1).End(xlUp).Row + 1 Application.ScreenUpdating = False With WS .AutoFilterMode = False .Range("A3:E3").AutoFilter Field:=5, Criteria1:="<" & 60 .Range("A4:E" & LR).SpecialCells(xlCellTypeVisible).Copy SH.Cells(LastRow, "A").PasteSpecial xlPasteValues .AutoFilterMode = False End With Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "Done...", vbInformation, "YasserKhalil" End Sub وإليك الملف المرفق مع تعديل التنسيق قليلاً تقبل تحياتي Transfer Data Using Filter Method YasserKhalil.rar

أخي الحبيب المتميز رجب بوركت اينما كنت وفي كل وفت .. وجزيت خير الجزاء على كل ما قدمته من خدمة لإخوانك وأحبابك تقبل تحياتي

أخي الكريم ممكن ترفق آخر ملف بالتعديلات التي قام بها أخونا الحبيب رجب للإطلاع عليه ومحاولة تقديم المساعدة

أخي الكريم نايف الكود الذي قدمته يعتمد على اسم ورقة العمل وعنوان الخلية ثم يجلب الرقم .. الكود المقدم من قبل أخونا رجب يقوم بالبحث عن الرقم وجلب اسم ورقة العمل وعنوان الخلية ، وكذلك الفورم الرائع الذي قدمه أخونا حسام يقوم بنفس المهمة يعني تجيبها كدا شغالة وكدا شغالة .. تقبل تحياتي

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

أخي الكريم حامل المسك جرب الكود التالي ويمكن استبدال الحرف الموجود بأي حرف (بدلاً من حرف الفاء الموجود في الكود) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "ف" Then Application.EnableEvents = False With Target Target.Value = Time Target.NumberFormat = "hh:mm:ss" Columns(Target.Column).EntireColumn.AutoFit End With Application.EnableEvents = True End If End Sub تقبل تحياتي

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

أخي الكريم بعد عدة محاولات للبحث هنا وهناك ..يمكنني عمل محاولة بهذا الشكل ..الكلام نظري وما زال تحت التطبيق يمكن الحصول على خطوط الطول والعرض بدالة معرفة سأقدمها لك فيما بعد اعتماداً على الكود ZIP ثم عمل معادلة تحسب المسافة بالميل كما طلبت .. اعتماداً على النتائج التي تم الحصول عليها من خطوط الطول والعرض .. رجاءً حدد كود Zip لكل من المكان البداية والمكان الهدف لبدء المحاولات .. تقبل تحياتي

أخي الكريم سليم هل تقصد أن الخلايا في العمود الأول غير مدمجة وتريد ترقيمها حسب الخلايا المدمجة في العمود الثالث ؟؟؟ أي أن الكود يقوم بالترقيم والدمج معاً ...؟

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

أخي الكريم يرجى تغيير اسم الظهور ليعبر عن شخصكم الكريم (لا أعترض على اسم المسلم العربي فهو بحث اسم رائع ..يمكنك تغيير اسم الظهور ليشمل الاسم الآخر بمعنى لو اسمك محمد عمر غير اسم الظهور ليكون بهذا الشكل ... محمد عمر (المسلم العربي) الحمد لله أن تم المطلوب على خير ... ولا مانع من إرفاق ملفك ليستفيد منه بقية الأعضاء فهناك الكثيرون ممن يريدون التعلم والملفات بالنسبة لهم كنز ثمين ، فلا تبخل على إخوانك كما لم يبخلوا عليك تقبل تحياتي

الصورة تشير إلى أن المتغير غير معرف أي لم يتم تعريفه في بداية الكود ضع اسم المتغير بعد كلمة Dim ثم كلمة As ثم نوع المتغير أي بهذا الشكل Dim Sh as long طالما أنك ستقوم بعد الخلايا التي تحتوي نصوص إذاً فالعدد صحيح فيمكن الإعلان عنه من النوع Interger أو النوع Long ..

إن شاء الله أستكمل غذاً العمل على الملف ..إلا إذا تدخل أحد الأخوة الكرام

الله ينور أخي الغالي رجب ...معلومة جميلة وبسيطة بعيداً عن جو الأكواد تقبل وافر تقديري واحترامي

أخي الكريم رجب ...كيف قمت بنسخ المعادلات من الخلية A3 إلى بقية الخلايا ...أم أنك وضعت معادلة مختلفة لكل مجموعة خلايا ؟؟؟!!

بارك الله فيك أخي الحبيب سليم أيوا كدا رجعنا لأيام الألغاز والفوازير إليك الحل الذي هداني الله إليه Sub NumberingMergedCells() Dim I As Integer, Counter As Integer For I = 2 To Cells(Rows.Count, 2).End(xlUp).Row Cells(I, 1).Value = Counter + 1 Counter = Counter + 1 If Cells(I, 1).MergeCells Then I = I + Cells(I, 1).MergeArea.Cells.Count - 1 Next I End Sub في انتظار مزيد من الحلول من الأخوة المشاركين بالمنتدى

مشكور مروركم الكريم إخواني وأحبابي في الله تم الرفع لأخونا الغالي إبراهيم أبو ليلة تقبل تحياتي

هل يوجد أسماء دوائر لا توجد لا هنا ولا هنا ..لا في دائرة البنين ولا في دائرة البنات ؟؟ حيث أنني أقوم ببعض المحاولات ولكن عدد النتائج لكلا التقريرين يساوي 178 فقط ..بينما الدوائر في الورقة الأولى تساوي 270 وعدد الدوائر الموجودة في كلا الورقتين بنين وبنات يساوي 203 .. تقبل تحياتي

هذا يعني أنك تحتاج لتقريرين وليس لتقرير واحد ..تقرير للبنين وآخر للبنات ...؟؟

أخي الكريم يرجى إرفاق شكل النتائج المتوقعة لمثال أو مثالين لتتضح الصورة

أخي الكريم الدالة المعرفة التي تستخدمها تعتمد على الاتصال بالانترنت وأعتقد أنه كلما كانت سرعة الانرنت عالية كلما تم التنفيذ بشكل سريع .. ومن الطبيعي أن يستغرق وقت مع هذا الكم الهائل من البيانات ... وحتى لو تم استخدام كود آخر ستكون نفس النتيجة تقريباً لأن الكود سيعتمد على الانترنت في استخراج النتائج المتوقعة تقبل تحياتي

صراحة لم أفهم المطلوب ..........بشكل واضح لا أدري أي الأكواد تقصد وما هي شكل المخرجات بالشكل الذي ترغبه عموماً جرب التعدل في هذا الكود لعله يكون المطلوب Sub Copier_Data() Dim Sh As Worksheet: Set Sh = Sheets("data") Dim sh2 As Worksheet: Set sh2 = Sheets("فاتورة") Dim LR As Long: LR = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 1 Sh.Rows("1:5").Copy sh2.Range("A" & LR + 1).Select: ActiveSheet.Paste ActiveSheet.PageSetup.PrintArea = "$A$1:$I" & LR + 5 End Sub

أخي الكريم حامل المسك قم بإرفاق ملفك ليعمل عليه الأخوة الكرام بالمنتدى تقبل تحياتي

أخي وحبيبي في الله رجب متمكن في استخدام الحلقات التكرارية .. رغم أنني لا أفضلها لكن يبدو أنك ستعيدني إليها حباً فيك الأخ العزيز سعيد الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات فيما يخص طلبك الآخر يرجى توضيحه في المكان المناسب ولا تحدث تداخل بين الموضوعات .. وصدقني الموضوع الآخر نسيته ونسيت الكود نفسه فقد أخبرتك أني مصاب بالزهايمر تقبلوا وافر تقديري واحترامي