خالد الرشيدى

السلام عليكم ورحمة الله استاذي شوقي ربيع حقيقة منذ ان رأيت موضوع حضرتك على المنتدي والى اليوم وانا اعمل على تعلمه والالمام به بشكل كامل - وصراحه اسلوب حضرتك فاق في الدقة والسهوله وال 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

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

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

السلام عليكم تفضل اخي الكريم عل هذا ما تقصد Sub K_print() 'C من الصف 9 الى اخر صف به بيانات بالعمود D9:K طباعة النطاق 'printpreview بـــ PrintOut ان اردت المعاينه قبل الطباعه استبدل Range("D9:K" & Cells(Rows.Count, "c").End(xlUp).Row).PrintOut End Sub

السلام عليكم ضع الكود التالى فى حدث الصفحه علة المطلوب Private Sub Worksheet_Change(ByVal target As Range) If target = [C7] Then [D7] = [D7] + 1 End If End Sub

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

وعليكم السلام والرحمة جرب المرفق التالى عله المطلوب =AND(D4<>"",TODAY()-D4>=30) Test.rar

السلام عليكم أ . صلاح الصغير هناك امور غير واضحه بالنسبه لى ( ترحيل كلمة طلاب الى اخر سجل بالعمود d ) - ( ترحيل اخر سجل لاسم الام الى اخر سجل بالعمود e ) هل تقصد ترحيل اخر ادخال ل عمود اسم الطالب - واسم الام امامهم تاريخ اليوم بصيغة yyyy/mm/dd ؟؟؟؟؟؟؟

السلام عليكم ضعي هذا الكود بشيت رقم 1 وراجعي النتائج - عله المطلوب تماماً ( قمت بتنفيذ ذلك بالملف المرفق ) Sub Button1_Click() Dim rw As Long, x As Range Dim extwbk As Workbook, twb As Workbook Set twb = ThisWorkbook Set extwbk = Workbooks.Open(ThisWorkbook.Path & "\" & "2.xlsx") Set x = extwbk.Sheets("ورقة1").Range("A1:C752") With Application .ScreenUpdating = False .Calculation = xlManual .DisplayAlerts = False .AskToUpdateLinks = False End With With twb.Sheets("ورقة1") For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row .Cells(rw, 4) = Application.VLookup(.Cells(rw, 1).Value2, x, 3, False) Next rw End With extwbk.Close savechanges:=False With Application .AskToUpdateLinks = True .DisplayAlerts = True .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub merge.rar

السلام عليكم قم بتحديد كلاً من العمود A - B ثم من قائمة Date - اختر Remove Duplicates تقبل مرورى وتحياتى

اخي / ناصر سعيد شكرا جزيلا علي اهتمام حضرتك.. جزاك الله خيرا ا. morestudy جزاكم الله خيراً علي هذا المرور الطيب كل عام وانتم بخير

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

السلام عليكم ا. نوف حضرتك لم تدرجي الملفات للعمل عليها ومع ذلك الامر بسيط يمكن ببساطه نسخ قيم ملف ولصقها بداخل الاخر اما وعن حذف المتكرر حددي عمود الرقم الوظيفي بالكامل ثم من قائمه home اختاري conditional formatting. ثم من highlight cells rules. اختاري duplicate values ثم ok. عندها ان كان هناك من متكرر سيظهر بتعبئه حمراء ويمكنك عندها تحديدها وحذفها ان لم يكن هذا المطلوب تمام قومي بادراج الملفات واشرحي فيها المطلوب بشئ من التفصيل