saad abed قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 اخى ابو تصار موهبة تضاف لرصيدك احسنت وجزاك الله خيرا سعد عابد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 الاخ الاستاذ ياسر الحافظ الاخ الاستاذ سعد عابد مااستفدناه منكم اكثر مروركم اسعدني جدا رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 25, 2011 الكاتب مشاركة قام بنشر أكتوبر 25, 2011 السلام عليكم شكرا أخى العزيز على تعبك معى بس للأسف حاولت مرارا وتكرارا تطبيق الكود مع التغيير فيه على الملف المرفق ولم أفلح فى ذلك المطلوب فى هذا الملف أمر صعب مش عارف هل ممكن تطبيقه عليه أم لا نفس الكود الذى تكرمت حضرتك بعمله المره السابقه ولكن مضاف عليه أن يتم إستبعاد كل الخانات التى فى العمود C والتى تحتوى على الأحرف الأوليه من الكود DI وأن يكتفى فقط بطباعة الأكواد التى فى هذا العمود التى تبدأ ب UI والتى تاريخ إصدارها (فى العمود B) أقل من تاريخ اليوم مش عارف هل هذا ممكن أم لا ولو صعب رجاءا لاترهق نفسك فيه وأولا وأخيرا جزاك الله خيرا New_SOP_CODES_10.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 25, 2011 مشاركة قام بنشر أكتوبر 25, 2011 اخي سوف احاول اعمل حل يتوصل لما تريد بأسلوب اخر تحياتي رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 28, 2011 الكاتب مشاركة قام بنشر أكتوبر 28, 2011 السلام عليكم أخى أبو نصار لا تنسانى جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 اخي طلبك غير واضح نوع ما هل تريد الكود الذي يبداء UDI في عمود C التي تاريخ إصدارها (فى العمود B) أقل من تاريخ اليوم يقوم بعمل تقرير لها في ورقة اخرى اذا هذا المفهوم صحيح ماهي الاعمدة التي تريد عملها في التقرير ارجو سرعة الرد تحياتي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 طلب اخير الله لايهينك اذا ماتم شرحة في المشاركة السابقة من قبلي صحيح ارجو منك ارفاق ملف به الورقة المعنية فقط والعمود المراد طباعتة بالشروط المذكورة بلاحظ علية خلايا مدموجة ارجو منك ازالة الدمج في كافة الخلايا وارفق الملف في انتظارك رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 28, 2011 الكاتب مشاركة قام بنشر أكتوبر 28, 2011 أخى العزيز السلام عليكم شكرا لإهتمامك العمود B فيه تواريخ الملفات أريد أن يظهر فى التقرير التاريخ الذى أقل من تاريخ اليوم واسم الملف المقابل له فى العمود A بشرط إذا كان هذا التاريخ الذى تم إلتقاطه يقابل الكود الذى يبدأ ب DI فى العمود C لا يتم وضعه فى التقرير ولاالمقابل له فى العمود A بمعنى أصح الصف الذى يكون فيه كود أوله DI وتاريخه أقل من تاريخ اليوم يتم تجاهله ولا يوضع الصف كله فى التقرير أما أى تاريخ أخر يقل عن تاريخ اليوم وله كود غير DI يتم وضعه وفى هذه الحاله أريد فقط أعمده Aو BوC وشكرا لتعبك رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 السلام عليكم والله توضيحك غير واضح حسب مافهمت اطلع على المرفق وهذا الكود Sub so() Application.ScreenUpdating = False On Error Resume Next Sheets("Sheet1").Range("a1").Value = "u" If Sheets("Sheet1").Range("a1").Value = "u" Then Range("c2:c719").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=LEFT(c2)=LEFT($A$1)" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False [a1].Select On Error Resume Next Dim D_ALI As Date Dim db_ALI As Double [am1].Value = Now() If IsDate(Range("am1")) Then db_ALI = Range("am1") db_ALI = DateSerial(Year(db_ALI), Month(db_ALI), Day(db_ALI)) Range("a1:m1").AutoFilter Sheets("sheet1").Range("$A$1:$j$5000").AutoFilter Field:=3, _ Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor Sheets("sheet1").Range("$A$1:$j$5000").AutoFilter Field:=2, _ Criteria1:="<" & db_ALI End If Dim c As Range With Range("A1:a1") Set c = .Find("u", , LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then c.Select row_1 = ActiveCell.Row [a1].Value = "NAME" Range("a2" & row_1 & ":c" & row_1).Copy Sheets("Sheet2").Range("a3").PasteSpecial Paste:=xlPasteAllUsingSourceTheme Application.CutCopyMode = False Application.ScreenUpdating = True Sheets("Sheet2").Select Columns("a:a").AutoFit ER = WorksheetFunction.CountA(Range("a:c")) + 1 RN = "A2:m" & ER Sheets("Sheet2").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True Application.ScreenUpdating = False Selection.Delete Shift:=xlToLeft Range("a3:m" & Rows.Count).Clear Sheets("Sheet1").Select Sheets("Sheet1").Range("a1").Value = "NAME" Cells.FormatConditions.Delete [a1].Select Application.ScreenUpdating = True Application.Calculation = xlCalc Else Cells.FormatConditions.Delete [a1].Select Exit Sub End If End With Sheets("Sheet1").Range("a1:m1").AutoFilter Field:=2 Sheets("Sheet1").Range("a1:m1").AutoFilter Field:=3 End If End Sub ان شاء الله يكون هو المطلوب واي ملاحظات او تعديل انا موجود TQR_alidroos.rar رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 28, 2011 الكاتب مشاركة قام بنشر أكتوبر 28, 2011 أخى أبو نصار السلام عليكم أنا عرفت المشكله حضرتك بتتكلم على الملف الذى أرفقته فى أول مشاركه لى فى هذا الباب ولكن أنا أتكلم على المشاركه رقم 28 وهى فيه ملف مختلف عن الذى حضرتك كتبت له الكود الأن فهل من الممكن العمل على الملف الذى فى المشاركه رقم 28 مع المطلوب فى المشاركه رقم 33 وهى (العمود B فيه تواريخ الملفات أريد أن يظهر فى التقرير التاريخ الذى أقل من تاريخ اليوم واسم الملف المقابل له فى العمود A بشرط إذا كان هذا التاريخ الذى تم إلتقاطه يقابل الكود الذى يبدأ ب DI فى العمود C لا يتم وضعه فى التقرير ولاالمقابل له فى العمود A بمعنى أصح الصف الذى يكون فيه كود أوله DI وتاريخه أقل من تاريخ اليوم يتم تجاهله ولا يوضع الصف كله فى التقرير أما أى تاريخ أخر يقل عن تاريخ اليوم وله كود غير DI يتم وضعه وفى هذه الحاله أريد فقط أعمده Aو BوC) وشكرا جزيلا لسرعة ردك وإهتمامك رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 تم العمل بموجب مشاركة 33 هذا مافهمته والى الان هذا مافهمته عشان مانقعد نحوس في حلقة ارجو منك التوضيح على الملف وقم باازالة الدمج لان الفلترة لاتعمل مع دمج الصفوف واي ملاحظات او اضافات انا موجود تحياتي رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 29, 2011 الكاتب مشاركة قام بنشر أكتوبر 29, 2011 السلام عليكم أخى الفاضل أبو نصار أنا أسف لإضاعة وقتك ومجهودك وذلك لعدم توضيحى لما أريد بالشكل الكافى أولا يا سيدى أنا ضعيف فى الأكسيل وثانيا الملف الذى أرسلته لحضرتك لست أنا من قام بإنشاؤه ولا أستطيع أن أغير فى الفورمات الخاص به لذلك أرسلت لحضرتك المطلوب موضحا على صوره من الملف أرفقتها بملف ورد وموضح عليها بالأسهم المطلوب عمله والمطلوب طباعته فى التقرير مرفق لسيادتكم الملف المطلوب العمل عليه فأرجو تحميله من هذه المشاركه وكذلك مرفق ملف الورد الذى به شرح للمطلوب عمله وشكراجزيلا لسSOP.rarيادتكم New_SOP_CODES_10.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 29, 2011 مشاركة قام بنشر أكتوبر 29, 2011 الكود المشاركة السابقة يعمل ماتم شرحة من قبلك في ملف الوورد فرضا تاريخ اليوم هو 29/10/2011 هل الخلية التي بهذا الوضع اسم الملف التاريخ 28/10/2011 الكود UID-140 هي ماتريدها في التقرير والتي في هذا الوضع اسم الملف التاريخ 28/10/2011 الكود ID-101 ماتريدها تظهر في التقرير اما ماذا ؟؟؟؟؟ تحياتي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 29, 2011 مشاركة قام بنشر أكتوبر 29, 2011 والتاريخ هل هو تاريخ اليوم السابق فقط ام اي تاريخ مثلا حتى 2006/04/01 بمعنى اي خلية فيها الكود الذي يبداء U وتاريخه قبل تاريخ اليوم اي تاريخ يكون في التقرير يستثني تاريخ اليوم فقط رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 29, 2011 الكاتب مشاركة قام بنشر أكتوبر 29, 2011 السلام عليكم تمام هذا هو المطلوب فرضا تاريخ اليوم هو 29/10/2011 الخلية التي بهذا الوضع اسم الملف التاريخ 28/10/2011 الكود UID-140 هي ماأريدها في التقرير والتى تاريخها قبل تاريخ اليوم فقط وليس أى تاريخ وشكرا لأهتمامك رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 29, 2011 مشاركة قام بنشر أكتوبر 29, 2011 السلام عليكم تم الغاء جميع الخلايا المدمجة في الشيت لسبب عدم عمل الكود مع الخلايا المدمجة وجرب المرفق وابلغني النتيجة تحياتي New_SOP_CODES_alidroos.rar رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 29, 2011 الكاتب مشاركة قام بنشر أكتوبر 29, 2011 السلام عليكم معلش لا أجد الزرار الذى أضغط ليه ليظهر التقرير ولما ذهبت داخل الكود وضغط على زرار Run اعطى لى رسالة ERROR رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 29, 2011 مشاركة قام بنشر أكتوبر 29, 2011 عفواً New_SOP_CODES_alidroos.rar رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 30, 2011 الكاتب مشاركة قام بنشر أكتوبر 30, 2011 السلام عليكم عمل رائع بس التقرير أظهر لى بعض الملفات التى لها تواريخ بعد تاريخ اليوم وليس قبله وأغفل التقرير الملفات التى تاريخها قبل تاريخ اليوم (أقصد بتاريخ اليوم خاصية Today()) والتى تتحدث تلقائيا بصوره يوميه رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 السلام عليكم الاخ الفاضل المشكلة الصغيرة ذي حوست عليها لين مليت هههه والظاهر الصفوف الفارغة بالكامل كانت عامل عمايل مع الفلترة تم جذف الصفوف الفارغة التي في الداتا والتقرير يطبع مباشر وفي نفس ورقة البيانات ولاكن النتيجة ان شاء الله مزبوطه جرب وابلغني New_SOP_CODES_alidroos.rar رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 30, 2011 الكاتب مشاركة قام بنشر أكتوبر 30, 2011 السلام عليكم اخى الحبيب جزاك الله خيرا أنا حملت الملف بس المشكله إن الأمر يعطى طباعه مباشرة والمشكله إن الطابعه عندى معطله وسوف أقوم غدا إن شاء الله بطباعته فى العمل جزاك الله خيرا على تعبك وإهتمامك وسرعة ردك وكل هذا مع عدم معرفتك بمن تساعده ولا تنتظرمنه مقابل لا أملك لأرد لك هذا الجميل إلا بالدعاء لك بأن يجعل الله هذا العمل فى ميزان حسناتك يوم القيامه حين تكون الحسنات والسيئات هما العملة الرائجة يومئذ وسوف أخبرك غدا بعد عودتى من العمل بالنتيجة إن شاء الله حيث أنى لا أملك الدخول إلى المنتدى من موقع العمل رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 السلام عليكم اخي الفاضل avogadrow جمل الله حالك عطيتنى المراد نسألك الدعاء وفقك الله وبالنسبة للطباعة اذا تريد يكون استعراض دون الطباعة Sheets("Sheet1").Range(RN).PrintOut Copies:=1, Preview:=False, Collate:=True استبدل من هذا السطر كلمة Preview:=False, الى هكذا Preview:=True, ليصير هكذا Sheets("Sheet1").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True واي ملاحظات او اضافات انا موجود موفق رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 31, 2011 الكاتب مشاركة قام بنشر أكتوبر 31, 2011 السلام عليكم أخى الكريم جربت أن أعمل عرض للطباعة بس للأسف أعطى لى تقرير فاضى ليس به أى نتائج مش عارف ليه كده رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 31, 2011 مشاركة قام بنشر أكتوبر 31, 2011 لاااعتقد انه بيظهر فاضي اسحب شريط التمرير حق العرض الى فوق وسوف تشوف البيانات في اعلى المعاينة انا ظهر عندي كذا سحبت السكرول الى اعلى في حالى البيانات قليلة بيعمل كذا ارجو التأكد تحياتي رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر نوفمبر 1, 2011 الكاتب مشاركة قام بنشر نوفمبر 1, 2011 السلام عليكم أخى الفاضل أنا أسف على التأخير المشكله مازالت قائمه أنا قمت بتعديل أمر الطباعه بحيث أستعرضها قبل الطباعه كما أوضحت لى فى المشاركه 47 ولكن للأسف التقرير يخرج بدون أى نتائج ولا يظهر به إلا صفحتين فقط فى أعلى الصفحة الأولى عناوين بلون أحمر وفى الثانية أيضا عناوين أنا أرفقت لحضرتك صوره من الصفحة الأولى والثانية اللتان تظهران لى وقد قمت بتجرية السكرول لمنتهاه لأسفل ولم يظهر شئ ويتضح ذلك فى الصفحة الثانيه ستجد الأسكرول قارب على النهايه ولم تظهر أى بيانات كما فى الصورة المرفقة رابط هذا التعليق شارك 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.