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

الاستاذ : حمادة عمر الاستاذ :qmaxqmax بارك الله فيكم تحياتي

الاستاذ أبو محمد أشرف جرب الضغط علي الخلايا L6,L7,L8,L9 ثم اضغط علي الخلاية L7,L8 و انظر الي صفحة النموذج سوف تجد صفين فرغين . تحياتي

السلام عليكم الاستاذ ابو ريم هذا حل باستخدام المعادلات + كود بسيط (ليس له اهمية كبرى) . يعمل حتى 100 صف فقط (قابل للتعديل في المعادلة). مع اني افضل استخدام الاكواد بدون معدلات (كان يمكن ترتيب صفحة النكوذج بعد كل استدعاء او ان يتم الاستدعاء بزر في صفحة النموذج) تحياتي تعديلات ++++.rar

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

اخي ريان جرب هذا الكود : يعمل عند ادخال تاريخ جديد في الخلية F5 . ضعه في كود الصفحة Feuil2 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = [F5].Address Then Abu_Ahmed End If End Sub Sub Abu_Ahmed() Dim I As Integer, MyDat1 As Date, MyDat2 As Date Set Mysh = Sheets("Feuil2") Set sh = Sheets("Feuil1") xx = Mysh.Cells(Rows.Count, "a").End(xlUp).Row If xx > 11 Then Mysh.Range("a12:ao" & xx).ClearContents MyDat1 = Mysh.[E5]: MyDat2 = Mysh.[F5] For I = 2 To sh.Cells(Rows.Count, "a").End(xlUp).Row If sh.Cells(I, 5) >= MyDat1 And sh.Cells(I, 5) <= MyDat2 Then sh.Cells(I, 1).Resize(1, 41).Copy Mysh.Range("A" & Mysh.Cells(Rows.Count, "a").End(xlUp).Row + 1) End If Next Set Mysh = Nothing Set sh = Nothing End Sub تحياتي

بالتأكيد اخي تفضل تحياتي درجات طلبة ++ .rar

السلام عليكم بعد اذن الاستاذ عبدالله المجرب . جرب هذا الكود Sub Abu_Ahmed() Dim I As Integer, MyDat1 As Date, MyDat2 As Date Set Mysh = Sheets("Feuil2") Set sh = Sheets("Feuil1") MyDat1 = Mysh.[E5]: MyDat2 = Mysh.[F5] For I = 2 To sh.[A10000].End(xlUp).Row If sh.Cells(I, 5) >= MyDat1 And sh.Cells(I, 5) <= MyDat2 Then sh.Cells(I, 1).Resize(1, 41).Copy Mysh.Range("A" & Mysh.[A10000].End(xlUp).Row + 1) End If Next Set Mysh = Nothing Set sh = Nothing End Sub تحياتي

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

السلام عليكم ملحوظة : وجدت بطء في عمل الملف فعدلت فيه قليلا . الكود يعمل في العمود L بداية من الخلية 5 بالضغت علي الخلية نفسها بدلا من عنصر التحكم لتلافي البطء . تحياتي تعديلات +.rar

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

السلام عليكم هذا بالنسبة ل 2010 تحياتي

اخي احمد اسف و لكن ليس لدي حل . معرفتي في جمل SQL فقط . تحياتي

السلام عليكم الاساتذة : عبد الله المجرب جمال دغيدي أحمد فضيله مبروك علي الترقية تحياتي

السلام عليكم السؤال فعلا غير واضح For i = 1 To 10 هذه الجملة تكرر عمل الكود 10 مرات متلاحقة (بدون جدوى) انت تقارن هذه القيمة Label1.Caption =Sheets("1").Range("a1").Value a123 بخلايا العمود B واحدة تلو الاخري حتي اول خلية الفارغة و ثاني خلية التي تحتوي علي كلمة الرمز حتي B5 If Label1.Caption = Sheets("DB").Cells(T, 2).Value Then فإن تطابقت يضع في الخلية B1 في الصفحة الاولي كلمة تم من الصفحة الثانية و الا يضع لا توجد بيانات في نفس الخلية B1 (يعيد الكتابة فيها) Sheets("1").Range("B1") = Sheets("DB").Cells(T, 3) Else Sheets("1").Range("B1") = "لا توجد بيانات" كودك يضع كلمة تم فعلا و لكن بعدها يضع لا توجد بيانات . فالكود كله غير منطقي فارجو ان توضح ما تريد بالتفصيل كما تكرم الاستاذ عبدالله المجرب تحياتي

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

السلام عليكم جرب المرفق بطريقتين (معادلات و كود) تحياتي xx++.rar

السلام عليكم ملاحظة : هذا مكرو مسجل عن طريق DATA> TEXT TO COLUMNS >DELIMITED>OTHERS "-" > finish تحياتي Book1+.rar

حياك الله اخي احمد

السلام عليكم جرب المرفق تحياتي اسعار البنك المركزي +.rar

اخي ahmad جرب هذا تحياتي Test++.rar

جرب المرفق تحياتي Test+.rar

السلام عليكم جرب هذا SELECT Payment.TrnsID, Payment.Customer, Payment.Total, Payment.Payment, Payment.Paid,iif (paid=-1,[total]-payment,null) AS Raseed FROM Payment تحياتي

الاسم : أحمد عبد الناصر فوزي سنة الميلاد : 1990 م المهنة : محاسب التعليم : بكارولويس تجارة 2011 - جامعة الاسكندرية الحالة الاجتماعية : أعزب بلد الجنسية / الاقامة : مصر / الاسكندرية أقسام الاهتمام فى المنتدي : الاكسيل امتلك دراية بسيطة في : Excel , VBA , Access , SQL , Visual Basic 2010 . و مهتم بربط قواعد البيانات و الاكسيل . تحياتي

الاستاذ رجب جاويش بارك الله فيك , فبمعادلاتك تجل كل موضوع بمثابة مرجع شامل . تحياتي

اخي إبراهيم ابوليله المعادلة تعطي 0 فعلا فكما فهمت ان تريد ان تجمع balance في حالة cood = 1 و code = 8 . و هذا الشرطان لم يجتمعا في البيانات. جرب المرفق تحياتي 1- 2013 GUDE+.rar