الـعيدروس

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

عفواً New_SOP_CODES_alidroos.rar

السلام عليكم تم الغاء جميع الخلايا المدمجة في الشيت لسبب عدم عمل الكود مع الخلايا المدمجة وجرب المرفق وابلغني النتيجة تحياتي New_SOP_CODES_alidroos.rar

جزاك الله خير استاذ عبدالله المجرب

والتاريخ هل هو تاريخ اليوم السابق فقط ام اي تاريخ مثلا حتى 2006/04/01 بمعنى اي خلية فيها الكود الذي يبداء U وتاريخه قبل تاريخ اليوم اي تاريخ يكون في التقرير يستثني تاريخ اليوم فقط

الكود المشاركة السابقة يعمل ماتم شرحة من قبلك في ملف الوورد فرضا تاريخ اليوم هو 29/10/2011 هل الخلية التي بهذا الوضع اسم الملف التاريخ 28/10/2011 الكود UID-140 هي ماتريدها في التقرير والتي في هذا الوضع اسم الملف التاريخ 28/10/2011 الكود ID-101 ماتريدها تظهر في التقرير اما ماذا ؟؟؟؟؟ تحياتي

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

اضن اخي لابد من وجود شرط ثالث واما الاولى والثانية الخ هل هيا اسعار ام ماذا

الاخ الحبيب ياسر الحافظ اسعدني مرورك العطر الاخ الفاضل نادر جزاك الله خير على الاضافات القيمة

دعواتك وزنها غير العمل لاشيئ امامها لك مثلها اضعاف مضاعفه وفقك الله

تم العمل بموجب مشاركة 33 هذا مافهمته والى الان هذا مافهمته عشان مانقعد نحوس في حلقة ارجو منك التوضيح على الملف وقم باازالة الدمج لان الفلترة لاتعمل مع دمج الصفوف واي ملاحظات او اضافات انا موجود تحياتي

انت امر تفضل TEST_ALI_1.rar

الاخ الاستاذ سعد عابد مرورك اسعدني بالعكس انما نجدد ظهور الدالة المركبة بارك الله فيك هذا بعض مالديكم استاذي

تفضل واذا لزم الامر تحديد خلية وكتابة الصنف فيها ويقوم بعمل التصفيه بموجب محتواها انت قول فقط وانما المرفق يفي بالغرض ======== توضيح ======== الدالة المرفقة لاحد الاساتذة لااتذكر من هو جزاه الله كل كل خير عملها لاتجمع الصفوف المخفية ====================== TEST_ALI.rar

اضغط الملف وارفقة

بتقصد ان الصنف مكرر ارجو منك ارفاق ملف بسيط اعمدة الصنف واجمالي التكلفة بأي خلية تكون عشان تتضح الصورة

ان شاء الله تكون زبطت الاكواد معك موفق خلينا نشوفك في ثنايا هذا المنتدى وسوف تستفيد الكثير ان كنت تريد ان تتعلم تحياتي

السلام عليكم والله توضيحك غير واضح حسب مافهمت اطلع على المرفق وهذا الكود 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

الاخ جمال الفار لاعليك كلنا نستفيد من بعض كثر الحلول ليس عيب وانما بناء معلومات تحياتي

الاخ الحبيب جمال الفار عودا حميدايالغالي يامطول الغيبات وين الغنايم

الاستاذ القدير هشام شلبي جزاك الله خير على الملف القيم الاخ الفاضل وهذا كود اخر ولاكن دون شروط يعني كل ماتغير في خلية A1 في كل تغير في الخلية يظهر لون مختلف Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Range("a1").Interior.ColorIndex = Int(Rnd * 56) + 1 End Sub وهذا مرفق color2.rar

السلام عليكم تفضل هذا الكود في حدث الصفحة اعتباراً الخلية A1 هيا التي تكتب فيها الارقام اكتب من 1 الى 6 ولاحظ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Module1.Color_ALI End Sub وهذا في مدويل Sub Color_ALI() Dim color As Long Select Case Range("A1") Case "1" color = &H80FFFF Case "2" color = &HFF& Case "3" color = &HFF80FF Case "4" color = &HFF00& Case "5" color = &HFFFF80 Case "6" color = &HFFC0C0 Case Else color = &H80000009 End Select Sheets("sheet1").Range("A1").Interior.color = color End Sub وهذا المرفق color_alidroos.rar

تقصد مكررة بكل صفحة يعني نفس طريقة التذييل اجدها صعبة لاكن صرح اوفسينا التعليمي يتعدى الصعوبات

الاخ الاستاذ خالد القدس اسعدني مرورك وفقك الله

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