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

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

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

جرب الكود في موديول عادي واربطه بزر أمر سيعمل معك إن شاء الله Sub FilterSpecific() Application.ScreenUpdating = False With Sheets("Quires").Range("B15:G1000") .Offset(1).ClearContents .Borders.LineStyle = xlNone End With With Sheets("SQ") .Rows(1).AutoFilter .Rows(1).AutoFilter 11, "=" & Sheets("Quires").Range("H9") LR = .Range("A" & .Rows.Count).End(xlUp).Row If LR > 1 Then Union(.Range("D2:E" & LR), .Range("G2:G" & LR), .Range("J2:J" & LR), .Range("L2:L" & LR)).Copy Sheets("Quires").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues End If .Rows(1).AutoFilter End With With Sheets("Quires") LRQ = .Range("C" & .Rows.Count).End(xlUp).Row If LRQ > 15 Then For Each Cell In .Range("B16:B" & LRQ) Cell = Cell.Row - 15 Next Cell End If With .Range("B15").CurrentRegion .Borders.Weight = xlThin .BorderAround Weight:=xlThick End With .Range("H9").Select End With Application.ScreenUpdating = True End Sub لا أدر ما السبب في عدم عمل الكود في حدث الورقة لديك .. قد تكون هناك مشكلة في مكان ما أو لربما لأن خلية الشرط مدمجة ...كل الاحتمالات واردة

أخي الكريم 66 محمود (قال يعني إحنا قادرين على محمود واحد ..لما نقابل 66 محمود مرة واحدة) سأقوم بتناول حلول مختلفة واختر منها ما يناسبك .. قمت بإنشاء مصنفين واحد باسم Test والثاني باسم Sample .. في المصنف الثاني قمت بوضع قيمة في الخلية A1 ، وفتحت المصنف الأول ووضعت معادلة في الخلية G7 كما بالصورة إذا نظرت لشريط المعادلات ستجد علامة يساوي يليها علامتين تنصيص مفردة بهذا الشكل ' ... وما بين العلامتين يوجد مسار المصنف المسمى Sample بالكامل ثم \ ثم اسم المصنف ما بين أقواس [ ] ثم يليه مباشرةً ورقة العمل الأولى في المصنف المصدر ...وأخيراً بعد علامة التنصيص المفرة الثانية ' يوجد علامة تعجب ! ثم الخلية المصدر A1 الحل الذي قدمه أخونا الحبيب مختار حسين ..الخطوات كما بالصورة الحل المقدم صحيح 100% ولكن لكي تكتمل الخطوات لابد من تغيير في إعدادات الإكسيل ، من خلال خيارات الإكسيل Excel Options ثم انقر على Trust Center ثم Trust Center Settings ثم اختر من القائمة في الجهة اليسرى External Content واختر الخيار الأول في القسمين الظاهرين في النافذة لديك احفظ وأغلق المصنف و قم بتجربة المصنف المسمى Sample بأن تضع أي قيمة جديدة في الخلية A1 واحفظ المصنف وأغلقة ، ثم قم بفتح المصنف Test ستجد أن البيانات يتم تحديثها ************************ حل آخر بعيداً عن تغيير الإعدادات بكود يوضع في حدث المصنف Test بهذا الشكل ، ويقوم بتحديث الروابط للملفات الخارجية Update All External Links Private Sub Workbook_Open() 'UpdateLinks All Links '--------------------- Dim MyLink As Variant For Each MyLink In ActiveWorkbook.LinkSources(xlExcelLinks) ActiveWorkbook.UpdateLink Name:=MyLink, Type:=xlExcelLinks Next MyLink End Sub لتجربة الكود والتأكد من عمله قم بإرجاع الإعدادات في الصورة الأخيرة إلى الخيار الثاني في القسمين prompt user about Data Connections Prompt user on automatic update for workbook links احفظ المصنف المسمى Test بعد وضع الكود في حدث المصنف ... اذهب للمصنف المسمى Sample وعدل الخلية A1 واحفظ وأغلق افتح المصنف Test لتجد أنه تم تحديث البيانات بدون تغيير في الإعدادات ..فقط بكود يوضع في حدث المصنف أرجو أن أكون قد وفقت في توصيل المعلومة بشكل بسيط يسهل فهمه الرجاء تغيير اسم الظهور للغة العربية والإطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى تقبل تحياتي

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

أخي الكريم سعد يرجى تغيير اسم الظهور بشكل مناسب ليظهر اللقب مع الاسم إليك الكود التالي يوضع في حدث ورقة العمل المسماة Quires ..بمجرد الاختيار من الخلية H9 Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long, LRQ As Long, Cell As Range If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("H9")) Is Nothing Then Application.ScreenUpdating = False With Sheets("Quires").Range("B15:G1000") .Offset(1).ClearContents .Borders.LineStyle = xlNone End With With Sheet1 .Rows(1).AutoFilter .Rows(1).AutoFilter 10, "=" & Sheets("Quires").Range("H9") LR = .Range("A" & .Rows.Count).End(xlUp).Row If LR > 1 Then Union(.Range("D2:F" & LR), .Range("I2:I" & LR), .Range("K2:K" & LR)).Copy Sheets("Quires").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues End If .Rows(1).AutoFilter End With With Sheets("Quires") LRQ = .Range("C" & .Rows.Count).End(xlUp).Row If LRQ > 15 Then For Each Cell In .Range("B16:B" & LRQ) Cell = Cell.Row - 15 Next Cell End If With .Range("B15").CurrentRegion .Borders.Weight = xlThin .BorderAround Weight:=xlThick End With .Range("H9").Select End With Application.ScreenUpdating = True End If End Sub وإليك الملف المرفق تقبل تحياتي Filter Copy Specific Data YasserKhalil.rar

أخي الكريم جرب الكود مرة أخرى (أنا جعلت فترة الانتظار 5 ثواني لتجربة الكود ليس إلا ..يمكنك تغيير فترة الانتظار من هذا السطر Application.Wait (Now + TimeValue("00:00:05"))

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

أخي الكريم رضا جرب الكود التالي عله يفي بالغرض Sub TarhilRanges() Dim R As Range For Each R In Sheet1.Columns("A").SpecialCells(2, 1).Areas Application.Wait (Now + TimeValue("00:00:05")) R.CurrentRegion.Copy Sheets("Sheet2").Cells(R.Row, "C") Next R Application.CutCopyMode = False MsgBox "Done!", 64 End Sub

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

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

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

بارك الله فيك أخي الحبيب مختار على المعلومات القيمة ماذا عن تبويب Number وتبويب Fill جربت التبويبات الأخرى وكلها تعمل بشكل جيد ما عدا هذين التبويبين تقبل تحياتي

أخي وحبيبي في الله أبو يوسف لا أعرف من هو (لوزتين بدخل) .. ولكن يبدو أن عقلي أيضاً مثل عقله بالنسبة لمشكلة الانترنت أقترح استخدام الإضافة المرفقة في المشاركة ... قم بتحميل الإضافة المسماة Mozilla Archiver Format ثم فك الضغط عنها لتجد الملف المسمى Mozilla Archiver Format.xpi من خلال الفايرفوكس روح على قايمة Tools ثم اختر الأمر Add-ons ستجد علامة تشبه الترس وبجانبها سهم .. على أنها قائمة منسدلة اختر الأمر Install Add-on from File ، ستظهر لك نافذة تحدد من خلالها مكان الإضافة التي لها الامتداد xpi ، ثم تظهر رسالة فيها أمرين أحدهما Install لتأكيد تنصيب الإضافة والأخرى Cancel لإلغاء الأمر قم بإغلاق الفايرفوكس ثم أعد فتحه افتح أي موضوع من موضوعات المنتدى التي تريد حفظها لتصفحها في وقتٍ لاحق .. ومن خلال قائمة File في المتصفح الفايرفوكس ستجد الأمر المسمى Save Page In Archive As ستفتح لك نافذة الحفظ التي تسمي فيها الملف الأرشيف وتحدد مكانه .. يمكنك تصفح الصفحة وكأنك داخل انترنت بالضبط جرب الإضافة ولا تنساني من دعائك تقبل تحياتي Mozilla Archiver Format.rar

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

أخي الكريم أعتقد أن الطلب شبه مستحيل (ولن اقول مستحيل فكم من المستحيل تحقق بفضل الله) ولكن لم يمر بي مثل هذا الأمر وهو أن تقوم بالتحكم في نوافذ الإكسيل نفسها وتخفي منها ما تشاء أرجو ان يكون هناك من لديه علم بالأمر

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

ارفق الملف الذي توصلت فيه للحل لإفادة إخوانك والرجاء تغيير اسم الظهور ليكون معبر عن شخصكم الكريم تقبل تحياتي

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

أخي الكريم كريم إليك الكود التالي عله يفي بالغرض Sub CopyData() Dim Rng As Range, xValue, xNum Dim InputRng As Range, OutRng As Range On Error Resume Next Set InputRng = Application.Selection Set InputRng = Application.InputBox("حدد النطاق المراد تكراره", "Officena", InputRng.Address, Type:=8) Set OutRng = Application.InputBox("حدد الخلية التي تريد وضع النتائج بها", "Officena", Type:=8) Set OutRng = OutRng.Range("A1") For Each Rng In InputRng.Rows xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) Next End Sub قم بتنفيذ الكود .. حدد النطاق المراد تكرار قيمه (على أن يكون في الخلية المجاورة عدد مرات التكرار) .. حدد أول خلية في نطاق النتائج .. انتهى Repeat Cell Values X Times.rar

جرب تنصب نسخة أوفيس أخرى أنصح بنسخة أوفيس 2013 ..أو جرب النسخة الجديد 2016

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

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

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

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