احمد عبد الناصر

السلام عليكم جرب هذه و اعلمني بالنتيجة تحياتي +-+جدول المحاضرين والقاعات.rar

السلام عليكم جرب هذا تحياتي Book011+.rar

السلام عليكم استاذ مجدي , تحياتي لك هذه محاولة اعلم انها لا تفي بالغرض و بها مشاكل , لكن احببت ان اشارككم بها علها تنفع مستقبلا . وهي باستخدام Googel Drive Spreadsheet . هذا ملف يحتوي علي 1000 صف بالطبع ممكن الزيادة . https://docs.google.com/spreadsheet/ccc?key=0AvU3pWCAf64FdFRmYWkybGthaGJUTlYwY1RTWkZHWGc&usp=sharing

السلام عليكم هناك مسلكين لنقل البياتات من اكسيل الي اكسيس , كما اعلم الاول بنقل البيانات دفعة واحدة في حالة كون البيانات كبيرة و هذا له طريقتين : الاولي من خلال الاكسيس عبر external data > Excel الثانية باستخدام كود VBA من الاكسيل كما تفضل الاساتذة الافاضل في هذا الرابط جزاهم الله كل خير http://www.officena.net/ib/index.php?showtopic=44222&hl=%D8%A7%D8%B3%D8%AA%D9%8A%D8%B1%D8%A7%D8%AF كلا الطريقتين يمتازان بالسرعة لكن سوف تحتاج لتكرار خلية التريخ علي مستوى كل سطر في الاكسيل . المسلك الثاني بتصدير البيانات لحظة الادخال سطر سطر و ليس البيانات كلها دفعة واحدة http://www.officena.net/ib/index.php?showtopic=45984&hl=%D8%A7%D8%B3%D8%AA%D9%8A%D8%B1%D8%A7%D8%AF و الله اعلم اختر ما يناسبك و الباقي سهل باذن الله تحياتي

السلام عليكم جرب هذا https://dl.dropboxusercontent.com/u/44618320/Quotation%20Format%2B.xls ممكن ان يكون هناك طريقة اسهل مثلا بعمل عمود جديد في كلا الصفحتين عبارة عن cust.no مضاف عليه sub . تحياتي

السلام عليكم جرب هذه =A2&" "&A3 تحياتي

السلام عليكم اسعد الله صباحكم وبعد اذن استاذ دغيدي فقد كان لي تعامل مع هذا الملف من قبل . استاذ عباس جرب المرفق مع مراعاة ان ارقام المدارس في العمود J يجب ان تكون بتنسيق نصي . تحياتي +كنترول.rar

السلام عليكم جرب هذه ملاحظة : الكود يعمل عند كتابة المبيعات في العمود C . اعتقد ان لا حاجة لاستخدام الاكواد و الافضل كان استخدام المعدلات . تحياتي +المصنف2010.rar

السلام عليكم بعد اذن استاذ حمادة جرب هذه كود الاستاذ حمادة مع اضافة سطر للترتيب . Sub SAMA() Dim LastR1 As Long Dim LastR2 As Long Dim LR As Long Application.ScreenUpdating = False Range("L6:p20").ClearContents LastR1 = Cells(Rows.Count, 7).End(xlUp).Row Range("b5:g" & LastR1).AutoFilter Field:=6, Criteria1:="<>0" Range("c6:g10").SpecialCells(xlCellTypeVisible).Copy Range("L6").PasteSpecial LR = Cells(Rows.Count, 12).End(xlUp).Offset(1, 0).Row LastR2 = Cells(Rows.Count, 12).End(xlUp).Row Range("b14:g" & LastR2).AutoFilter Field:=6, Criteria1:="<>0" Range("C15:g19").SpecialCells(xlCellTypeVisible).Copy Cells(LR + 1, 12).PasteSpecial Range("b6:J19").AutoFilter '* Range("l" & LR + 1 & ":p" & Range("p" & Rows.Count).End(xlUp).Row).Sort key1:=Range("o" & LR + 1), order1:=xlDescending '* Application.ScreenUpdating = True End Sub تحياتي و الشكر موصول لاستاذ جمال

السلام عليكم جرب هذا و معذرة علي التأخر في الرد . حاول التوضيح اكثر في المرات القادمة مثلا بذكر اسم الخلية المراد التعديل فيها او اسم الصفحة . تحياتي +طباعه شيكات.rar

السلام عليكم جربي هذه المحاولة . ملاحظة : للتعديل home > conditional formatting > manage rules تحياتي sec+.rar

السلام عليكم استاذ ضاحي اسعد الله اوقاتكم . صراحة حاولت ان استنتج النتيجة المرجوة من المعادلة بالظبط و لكن لم افلح علي حسب ظني . فوضعت هذا كبداية و الله الموفق . اعتقد ان الموضوع عبارة عن بحث بمعيارين او اكثر ثم استدعاء و لا يحتاج الامر للمعادلة العملاقة في الحجم . والله اعلم تحياتي

السلام عليكم استاذ محمد ارجو ان توضح النتيجة المرجوة من الدالة . ما فهمته ان البدل النقدي يعتمد علي الدرجة من العمود E او العمود D وعدد التذاكر من العمود J . و البيانات التي يستخرج منها القيم المطلوبة هي في الاعمدة AD , AC , AB . ارجو ان تصححلي او توضح الصورة كاملة . عامتا هذا ملف علي حسب تصوري . تحياتي مرتبات محكمة 2013+.rar

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

السلام عليكم استاذ فاروق هناك بيانات في العمود L الي العمود Q هذه يعمل الكود علي اساسها جرب تعديلها بما يناسبك و الاضافة عليها و سيستجيب الكود للتغير . تحياتي وارجو ان تفي بالغرض

السلام عليكم اسعد الله اوقاتكم استاذ مجدي تشرفت بمرورك الكريم تحياتي استاذ رجب شاكر لك مرورك الكريم و تشجيعك الدائم , تقبل تحياتي

السلام عليكم بداية مرحبا بك في المنتدى جرب المرفق باستخدام دالة معرفة تحياتي sum +.rar

السلام عليكم بعد اذن استاذ طارق هذه محاولة باستخدام تعريفة مسبقة و Vlookup . Application.ScreenUpdating = False l = Range("b" & Rows.Count).End(xlUp).Row Range("i2:i" & l).FormulaR1C1 = "=VLOOKUP(RC[-1],C[3]:C[4],2,FALSE)" Range("j2:j" & l).FormulaR1C1 = "=VLOOKUP(RC[-4],C[4]:C[5],2,FALSE)" Range("k2:k" & l).FormulaR1C1 = "=VLOOKUP(RC[-4],C[5]:C[6],2,FALSE)" Range("a2:k" & l).Sort key1:=[i2], key2:=[j2], key3:=[k2] Range("i2:k" & l).ClearContents Application.ScreenUpdating = True End Sub تحياتي ترتيب+-++.rar

السلام عليكم جرب هذا التعديل ,حاولت تطبيق ما ذكرته الاستاذة ام عبدالله . تحياتي +المرتبات الجديدة.rar

السلام عليكم الاستاذ و الاخ عباس تحياتي لك جرب هذه Sub Dahmour() Application.ScreenUpdating = False Dim Target As Range For g = 1 To Range("iv1").End(xlToLeft).Column Set Target = Cells(1, g) l = Target.Offset(10000, 0).End(xlUp).Row Add = Target.Resize(l, 1).Address add2 = Range("Ca1:ca" & l).Address Range(Add).Copy Range(add2) For Each c In Range(add2) c.Offset(0, 1) = c.Interior.ColorIndex Next Range("Ca2:cb" & l).Sort key1:=Range("cb2"), order1:=xlDescending Range("Ca2:ca" & l).Copy Target.Offset(1, 0) Range("Ca1:cb" & l).Clear Next Application.ScreenUpdating = True End Sub هذا الكود يرتب علي حسب colorindex لكل خلية , ارجو ان يفي بالغرض . تحياتي --+--فرز الخلايا حسب الالوان.rar

السلام عليكم عندي استفسار ما هي المعادلة الموجودة في BU ؟

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

السلام عليكم جرب هذه Sub Dahmour() Application.ScreenUpdating = False Dim Target As Range For g = 1 To Range("iv1").End(xlToLeft).Column Set Target = Cells(1, g) l = Target.Offset(10000, 0).End(xlUp).Row Add = Target.Resize(l, 1).Address add2 = Range("Ca1:ca" & l).Address Range(Add).Copy Range(add2) For Each c In Range(add2) If c.Interior.ColorIndex = -4142 Then c.Offset(0, 1) = x + 10000 x = x + 1 Else c.Offset(0, 1) = x + 1 x = x + 1 End If Next Range("Ca2:cb" & l).Sort key1:=Range("cb2") Range("Ca2:ca" & l).Copy Target.Offset(1, 0) Range("Ca1:cb" & l).Clear Next Application.ScreenUpdating = True End Sub تحياتي فرز الخلايا حسب +-+-اللون.rar

السلام عليكم شكرا على كلماتك الجميلة و دعائك ,غفر الله لنا ولكم و سائر المسلمين . arr = Range("e3:" & Cells.SpecialCells(xlCellTypeLastCell).Address) هذا السطر ياتي بنطاق البيانات بداية من الخلية E3 ويتسع حتي عنوان Address اخر خلية مستخدمة في الاكسيل مثلا في الملف اخر خلية هي $AN$38 ربما هذه الطريقة تاتي بنطاق اكبر من الحاجة لكنها والله اعلم افضل طريقة للاحاطة بكل البيانات . وبهذا فتكون الجملة arr = Range("e3:$AN$38") وبهذا يتم تخصيص المجموعة array المسماة arr بقيم النطاق . وهدف هذه الخطوة انه تمكنا من الدوران loop في البيانات علي هيئة عمود عمود من الاعلى للاسفل . اما لو استخدمت loop مع النطاق مباشرة فستكون النتيجة علي صف صف من اليمين لليسار . تحياتي

السلام عليكم استاذ عادل جرب هذه Sub Dahmour() arr = Range("e3:" & Cells.SpecialCells(xlCellTypeLastCell).Address) For Each i In arr If Not IsEmpty(i) Then If IsNumeric(i) Then Cells(r + 3, 2) = i r = r + 1 Else Cells(rr + 3, 3) = i rr = rr + 1 End If End If Next End Sub بالنسبة لموضوع الشرح اعذرني فانا لست جيد في الشروحات ولكن اختر جزئية معينة و سوف احاول شرحها باذن الله تحياتي