خالد الرشيدى

السلام عليكم ورحمة الله استاذي شوقي ربيع حقيقة منذ ان رأيت موضوع حضرتك على المنتدي والى اليوم وانا اعمل على تعلمه والالمام به بشكل كامل - وصراحه اسلوب حضرتك فاق في الدقة والسهوله وال functions. المستخدمه كل المنتديات والكتب والشروحات حتى الاجنبيه - فزادك الله علما وجزاك عنا خيراً - لدرجة اننى حفظت الملف واكواده لانه حقا بمثاله مرجع قوي جدا لهذا الموضوع بحثت في فكره المشاركه على الانترنت وتوصلت لما ذكرته حضرتك ايضاً - --- وان شاء الله في انتظار موضوع حضرتك لانى متاكد تماما انه سيكون ايضا مرجع قوي جدا واسمح لى استاذي القدير - واتمنى ان يسمح وقت حضرتك - فى الموضوع لم يتم طرح ماذا لو كان الموظف مضاف مسبقا - اقصد التاكد من عدم وجود الموظف قبل اضافه جديد - فماذا لو اردت ان اقول - لو ان اسم الموظف وعنوانه موجود مسبقا - ( كمثال - لان فكره الموضوع وايضا فكره العمل القائم انا عليه ليس شرط عدم تكرار الكود يعنى عدم تكرار الموظف لهذا اريد التاكد بدلاله اسمه وعنوانه كمثال - ) - هل ساحتاج الى فتح Recordest للتاكد من ذلك قبل INSERT INTO ??? جزاك الله خيراً

السلام عليكم ورحمة الله استاذي / شوقي ربيع الحقيقه عمل رائع.. واسلوب تسطير الاكواد اكثر من رائع واسمح لي ان اسال حضرتك علي حد علمي انه من السهل جدا استبدال الاكسيس ليكون sql من خلال تغيير ال provider وسؤالي لحضرتك هل يمكن ربط الاكسيل ب SQL او اكسيس وجعلها علي الانترنت .. بحيث يمكن الوصول الي قاعده البيانات من اي جهاز اخر تقبل مروري وتحياتي

السلام عليكم اخى الكريم قم بفك حمايه الشيت كي يمكن العمل عليه

السلام عليكم ورحمه الله كل عام وكل اساتذتي واخوتي بخير وسعاده اعاد الله علينا وعليكم الايام بخير عيد سعيد

السلام عليكم جرب الملف التالى جيداً وابدي ملاحظاتك دفتر ديون محل.rar

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

السلام عليكم اهلا بك اخى الكريم بين إخوانك بالمنتدي - ويرجي فضلاً ليس امراً الاطلاع على رابط التوجيهات الخاصه بالمنتدي بالنسبه لطلبك - ان لم تجده من خلال البحث بالمنتدي - قم بادراج ملف موضح به المطلوب وان شاء الله ستجد المساعده تقبل مرورى وتحياتى

السلام عليكم اليك الطريقه

السلام عليكم استبدل الكود السابق بهذا الكود Option Explicit Sub Button1_Click() Dim ws As Worksheet, wb As Workbook Dim NextRow As Long, LastRow As Long On Error Resume Next Set wb = Workbooks("الصادر.xlsx") Set ws = ThisWorkbook.Sheets("قاعدة البيانات") NextRow = ws.ListObjects("Table2").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row If wb Is Nothing Then Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "الصادر.xlsx") Else wb.Activate End If With wb.Sheets("الصادر العام") LastRow = .ListObjects("الجدول1").Range.Columns(3).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 .Range("C" & LastRow).Value = Format(Date, "yyyy/mm/dd") .Range("D" & LastRow).Value = "طلاب" .Range("E" & LastRow).Value = ws.Range("E" & NextRow).Value .Range("C" & LastRow).Select End With End Sub khaled.rar

ليس لاصدار الاوفيس تأثير ولكن هل الملفين موجودين بمكان واحد علي الكمبيوتر .. وهل اسماءهم 1-2 كما ارسلتهم .. ان كانوا كذلك ولم يتم تنفيذ الكود اذن هل الاعمده بالملفين مثل الاعمده بالملفات الاساسية تماماً.. لا يهم عدد الصفوف ان كانوا كذلك ولم يتم تنفيذ الكود.. عندها ارسلي صوره الخطأ الذي يظهر عند التنفيذ

اخي ناصر سعيد جزاك الله خيرا علي تشحيع حضرتك الدائم جمعني الله واياكم في مستقر رحمته تقبل خالص تحياتي وتقديري لشخصكم المحترم

ماذا تقصد بتحدث بشكل تلقائي؟ -هل بها معادله ما؟ عليك التوضيح اخي الكريم لكي يكون الحل من مره واحده.. الاكواد تكون حسب طبيعه الملف.. لا يوجد كود ثابت ينفذ اي شيء

طريق لغه البرمجه VBA - اين انت منه ؟ فارق السرعات بين التعامل مع خلايا ورقة العمل والمصفوفات رابط الجزء الاول من سلسله من اين ابدأ -انتظروا الجزء الثاني من هذه السلسله قريباً ان شاء الله - المرفقات VBA Road.rar

السلام عليكم اخى الكريم ادرج ملف مشروح به المطلوب للعمل عليه

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