نجوم المشاركات

تفضل أخى هذا شرح مختصر للكود Sub ragab() 'السطور التالية لتعريف المتغيرات Dim cl As Range, LR As Integer Dim sh As Worksheet, R_N As Integer 'تحديد الورقة التى سوف يتعامل المتغير معها Set sh = ورقة3 '=========================================== 'السطر التالى لوقف اهتزاز الشاشة لتسريع عمل الكود Application.ScreenUpdating = False 'تحديد قيمة خلية رقم السند x = [G13] 'تحديد اول سطر فارغ فى العمود الخاص برقم السند فى الورقة 3 LR = sh.[G1000].End(xlUp).Row + 1 'نسخ الخلايا من ورقة الادخال Range("A13:K13").Copy 'حلقى تكرارية لمعرفة هل رقم السند مكرر داخل الورقة 3 ام لا For Each cl In sh.Range("G13:G" & LR) If cl = x Then 'اذا وجد رقم السند مكرر يتم تحديد رقم الصف الخاص به من السطر التالى R_N = cl.Row 'يتم لصق البيانات الجديدة مكان البيانات القديمة فى الورقة 3 sh.Cells(R_N, 1).PasteSpecial xlPasteValues 'وبعد لصق البيانات الجديدة مكان القديمة يتجة الى السطر الخاص بانهاء خاصية القص والنسخ GoTo 1 End If Next 'اذا لم يكن رقم السند مكرر فيتم نسخة فى صف جديد عن طريق السطر التالى sh.Cells(LR, 1).PasteSpecial xlPasteValues 'السطر الخاص بانهاء خاصية القص والنسخ لازالة التحديد الموجود حول الخلايا المنسوخة 1: Application.CutCopyMode = False ' اعادة اهتزار الشاشة كما كان Application.ScreenUpdating = True End Sub

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

أخي العزيز أيمن إبراهيم ضع الكود التالي في موديول Sub Borders() Dim Rng As Range, Cel As Range Set Rng = Range("B5:B20") Application.ScreenUpdating = False Rng.Borders.LineStyle = xlNone For Each Cel In Rng If Cel.Value <> "" Then With Cel.Resize(1, 6) .Borders.Weight = xlThin: .BorderAround Weight:=xlMedium End With Else Cel.Resize(1, 6).Borders.LineStyle = xlNone End If Next Cel Application.ScreenUpdating = True End Sub وقم بوضع الكود التالي في حدث الورقة الأولى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row > 4 Then Call Borders End If End Sub تقبل تحياتي

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

اذا كنت تقصد منع تحريك الشكل او تغيير حجمه انظر الصور التالية

أخى الغالى الشقى الغلاباوى مشرفنا الجميل ياسر العربى حزاكم الله خيرا أخى و حبيبى فى الله حسام ميلكانا جزاكم الله خيرا أسعد بمرورك دائما أستاذنا الكبير الخلوق رجب جاويش يعلم الله أن مرورك شرفنى و أسعدنى كثيرا أخى و حبيبى فى الله ياسر فتحى الأروع مرورك الجميل و الرائع مبروووووووووك الترقية أخى الغالى ومشرفنا الخلوق ابراهيم أبو ليله بارك الله فيك و جزاكم خيرا أسعد بمرورك دائما أخى و أستاذى محمد حسن بداية أشكرك جزيل الشكر على هذه الثقة الغالية لكن اسمح لى أن أقول لك شيئا أننى لا أستطيع تحمل مثل هذا الأمر عن جد فأنا أحب الحرية والاشراف مسئوليه كبيرة تتطلب متابعة مستمرة وهذا لا أقدر عليه و يعلم بعض أحبابى فى المنتدى مثل أخى أبا البراء أننى آخذ كل فترة غطسا بعيدا عن المنتدى أبحث هنا وهناك عن كل غريب و فريد من البرامج والأكواد كما أن منتدانا بسم الله ما شاء الله به مشرفين و خبراء ما أحلاهم و ما أروعهم قادرون على المتابعة أفضل منى و مرة تانيه أشكرك أستاذى الفاضل محمد حسن على الثقة الغالية لكم منى جميعا كل التحية و التقدير و الاحترام

أخي الكريم محمد إثراءً للموضوع ..إليك الكود بشكل آخر بعيداً عن نسخ ولصق البيانات وبعيداً عن الحلقات التكرارية للبحث عن رقم السند يمكنك إزالة رسائل التنبيه في الكود إذ أنني قمت بوضع تنبيه في حالة أ ن خلية رقم السند فارغة أو تساوي صفر ورسالة تنبيه في حالة إذا كانت البيانات جديدة وترحل لصف جديد ورسالة تنبيه في حالة إذا كانت البيانات موجودة بالفعل ..مع تحديد رقم الصف الذي توجد به البيانات القديمة مع تحياتي لمعلمي الكبير رجب جاويش Sub ReTransferData() Dim Ws As Worksheet, Sh As Worksheet Dim X, lRow As Integer, LR As Integer Set Ws = Sheets("ادخال"): Set Sh = Sheets("كشف") X = Val(Ws.Range("G13").Value) LR = Sh.Cells(Rows.Count, "B").End(xlUp).Row + 1 If X <> 0 Then If Application.IsNA(Application.Match(X, Sh.Columns("G:G"), 0)) Then Sh.Range("B" & LR).Resize(1, 10).Value = Ws.Range("B13").Resize(1, 10).Value MsgBox "New Record", 64 Else lRow = Application.Match(X, Sh.Columns("G:G"), 0) Sh.Range("B" & lRow).Resize(1, 10).Value = Ws.Range("B13").Resize(1, 10).Value MsgBox "Editing Exisitng Record At Row " & lRow, 64 End If Else MsgBox "Receipt Number Should Not Be Empty", vbExclamation: Exit Sub End If End Sub تقبلوا تحياتي

أخى محمد جرب الكود التالى Sub ragab() Dim cl As Range, LR As Integer Dim sh As Worksheet, R_N As Integer Set sh = ورقة3 '=========================================== Application.ScreenUpdating = False x = [G13] LR = sh.[G1000].End(xlUp).Row + 1 Range("A13:K13").Copy For Each cl In sh.Range("G13:G" & LR) If cl = x Then R_N = cl.Row sh.Cells(R_N, 1).PasteSpecial xlPasteValues GoTo 1 End If Next sh.Cells(LR, 1).PasteSpecial xlPasteValues 1: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub ترحيل.rar ترحيل.rar

السلام عليكم ورحمة الله وبركاته أخى أحمد الفلاحجى جزاك الله خيرا أخى و أستاذى الفاضل ياسر خليل جزاك الله خيرا وبعد اذن حضرتك أخى محمد الزريعى تفضل تم عمل المطلوب فى المرفق التالى بعد فك الضغط عن المرفق ستجد ملف + مجلد به ملفات 1 و 2 و 3 الخ كل واحد خاص بموظف ضع هذا المجلد فى البارتش d كما طلبت فى مشاركتك افتح الملف و شغل الكود و كرر التجربة مع تعديل بيانات الموظف ستجد ما تنشده بإذن الله أى استفسار سيكون معك أخوك مختار و أستاذنا ياسر خليل الفارس المغوار تحياتى loop through Excel files in a specified folder and perform a set task on them Mokhtar.rar

السلام عليكم ورحمة الله وبركاته كنت بصدد عمل برنامج " دليل هاتف " فصادفتني بعض المشاكل باستخدام القوائم فأردت عمل شئ من التغيير في استعمال القوائم حتى هداني الله الى فكرة بأستخدام الاكواد والحمد لله انجزتها ولكنها تبقى في بدايتها وامكانية تطويرها واردة واحببت ان اشارككم بها لعل اجد من ارائكم بعض الامور التي قد تفيد بهذا الشأن هنا ملف يحتوي على صفحة من البرنامج مع احتوائه على القائمة المذكورة اخوكم عماد الحسامي

الــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــله عليك مبدع حتى في اسمك ابدعت فأمتعت "يا سر" قد حللت الاشكال يا سيد الابطال الحمد لله والله يعطيك اكثر مما تسأله بعونه

أخي الحبيب عبد العزيز السر في الاسم (يا سر ...) تقبل وافر تقديري واحترامي

أخي الحبيب رجب جزيت خيراً على كلماتك الرقيقة وما أنا إلا قطرة في بحر علمكم الكبير أيا معلمي ... بارك الله فيك على الاختصار الرائع بالطبع يمكن اختصار الكود كما قدمته لنا في شكل أجمل .. ولكن لي رجاء ألا تنسى الإعلان عن المتغيرات ..لأنه في التعامل مع البيانات الكثيرة والأكواد الكبير يلزم الإعلان عنها للتخفيف على الذكراة أثناء التنفيذ ..نريد أن نعود أنفسنا الخطوات الصحيحة (والكلام موجه لي ولك ولجميع الأعضاء) أمر بسيط وهو تلافي الترحيل في حالة أن رقم الإيصال فارغ أو غير موجود .. من الأفضل احتواء جميع الاحتمالات في الكود تعمدت استخدام رسائل التنبيه التي يمكن الاستغناء عنها لتنبيه المستخدم إذا ما كان السجل تم ترحيله من قبل وهذا تعديل على السابق أو أنه سجل جديد أو أنه لم تتم عملية الترحيل ..ويمكن كما ذكرت الاستغناء عنها لتخفيف الكود أمر آخر بالنسبة للإعلان عن المتغيرات ..صراحة لا أحبذ استخدام اللغة العربية في أسماء المتغيرات أو تعيين قيم المتغيرات إذ أن اللغة العربية تكون مربكة في التعامل مع الكود فأفضل أن يتم الإعلان عن المتغيرات في بداية الكود ثم بدء التعامل معها .. وأفضل تسمية المتعيرات الخاصة بأوراق العمل بأسمائها البرمجية Sheet1 , Sheet2 إلا إذا كانت باللغة العربية ورقة1 و وورقة2 في هذه الحالة أتعامل مع أسماء أوراق العمل بشكل مباشر .. أمر آخر في الكود الأخير الخاص بك .. ماذا لو تم تنفيذ الكود وأنت في ورقة العمل "كشف" بالطبع سيحدث خطأ إذا أنك لم تشر إلى ورقة العمل التي سيتم جلب البيانات منها وهي ورقة "الإدخال" ولن تتم عملية الترحيل بشكل صحيح إلا إذا كنت محدد ورقة العمل "الإدخال" المناقشة ليست للتعديل عليكم لا سمح الله ، ولكن لتكون الأكواد بشكل أصح ويمكن استخدامها على نطاق أوسع في أي ورقة عمل بشكل مرن تقبل وافر تقديري واحترامي

أخي الكريم خالد حاول أن تستخدم خاصية البحث في المنتدى إليك رابط الموضوع التالي لعلك تجد الإجابة بداخل الموضوع الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده)

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

السلام عليكم ورحمة الله وبركاته تهـــــــــــــــــانينا الحــــــــــــــارة أخي الحبيب م / ياسر فتحي البنا مباركة عليكم الترقية وإلى المزيد من العمل الصالح الذي نرجو أن يكون لنا ذخراً ليوم تشخص فيه الأبصار والسلام عليكم

بعد اذن أخى الفاضل سليم جرب أخى هذه الفكرة تم عمل قائمة غير مكررة من اسم القرية وخطوط العرض والطول الخاصة بها فى الأعمدة J , K , L وتم عمل قائمة منسدلة فى العمود E كما تريد وعند اختيار اسم القرية يظهر خط الطول وخط العرض تلقائيا فى الخلايا المجاورة ملاحظة : عند وجود قرى جديدة يتم اضافتها واضافة خط العرض وخط الطول الخاص بها فى الأعمدة J , K , L وسوف يتم اضافتها تلقائيا الى القائمة المنسدلة المرنة please 1.rar

استعمل هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row >= 5 And Target.Row <= 20 And Target.Count = 1 Then dd End Sub Sub dd() Dim My_range As Range Dim my_2range As Range Set My_range = Range("b5:g20") My_range.Borders.LineStyle = xlNone For i = 1 To My_range.Rows.Count If My_range.Cells(i, 1) <> "" Then Set my_2range = My_range.Range(Cells(i, 1), Cells(i, 6)) With my_2range.Borders .LineStyle = xlContinuous .Weight = xlThick End With End If Next End Sub

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

وتكون النتيجة كما بالملف المرفق spin.rar

السادة الزملاء هل يمكن ادخال تاريخ اليوم تلقائيا في خانة التاريخ بالملف المرفق ولا يجوز تغيره تنسيق القبول.rar

أخي الكريم مهند لما لا تطرح موضوع جديد لتجد استجابة أكثر مع التوضيح التام لطلبك مع إرفاق لشكل النتائج المتوقعة إذا تطلب الأمر أخي الحبيب رجب جاويش حاول أن تبتعد قدر الإمكان عن الحلقات التكرارية لما لها من أثر في بطء عمل الكود خصوصاً إذا كانت البيانات كبيرة ما رأيك بفكر جديد وهو استخدام خاصية الفلترة ..جرب الكود التالي Sub HideRowsUsingFilterMethod() Dim Rng As Range Application.ScreenUpdating = False On Error Resume Next With ActiveSheet .AutoFilterMode = False .Range("C12:C65512").AutoFilter Field:=1, Criteria1:="=0", Operator:=xlOr, Criteria2:="" Set Rng = .Range("C13:C65512").SpecialCells(xlCellTypeVisible) .AutoFilterMode = False Rng.EntireRow.Hidden = True End With Application.ScreenUpdating = True End Sub تقبل تحياتي

المتغير X يشير إلى قيمة الخلية G13 التي بها رقم الإيصال فإذا كان فارغاً أو القيمة صفر ظهرت رسالة بأنه يجب ألا تكون الخلية فارغة وإذا لم لم يكن يساوي صفر ينفذ الكود

أخي الكريم أبو عبد الرحمن على حسب علمي لا يوجد خاصية صناديق الاختيار داخل قائمة الكومبوبوكس جرب الملف التالي عله يكون المطلوب لك ..سيتم إنشاء صناديق اختيار بمجرد تشغيل الفورم .. قم فقط بإنشاء زري أمر أحدهما باسم cmdExit للخروج من الفورم والآخر باسم cmdReport لإظهار الحقول المطلوبة فقط .. أرجو أن يفي بالغرض Private Sub cmdReport_Click() Dim Ctrl As Control, FoundCol Sheet1.Columns("A:T").EntireColumn.Hidden = False Sheet1.Columns("A:R").EntireColumn.Hidden = True For Each Ctrl In UserForm1.Controls If TypeName(Ctrl) = "CheckBox" Then If Ctrl.Value = True Then FoundCol = Application.Match(Ctrl.Caption, Sheet1.Rows(1), 0) If IsNumeric(FoundCol) Then Columns(FoundCol).Hidden = False End If End If Next Ctrl Application.Goto Sheet1.Range("A1") End Sub Private Sub UserForm_Initialize() Dim LastColumn As Long Dim I As Long Dim chkBox As MSForms.CheckBox LastColumn = 18 For I = 1 To LastColumn Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & I) chkBox.Caption = Sheet1.Cells(1, I).Value chkBox.Left = 20 chkBox.Top = 5 + ((I - 1) * 20) Next I End Sub Private Sub cmdExit_Click() Unload Me End Sub تقبل تحياتي Create CheckBoxes On UserForm By Cells In Specific Range YasserKhalil.rar

أخى و أستاذى رجب بارك الله فيك و جزاك خيرا أخى و أستاذى ياسر خليل بارك الله فيك و جزاك خيرا

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

أبى وأستاذى ومعلمى القدير / محمد حسن المحمد كم أنا سعيد جدا جدا بتهنئة حضرتك لى الرجاء الدعاء لى من حضرتك تقبل خالص تحياتى وتقديرى لشخصكم الكريم

شكرا لك أخى الفاضل مهند وجزاك الله خيرا

اخى خالد جرب الكود الاتى On Error Resume Next del = Application.GetOpenFilename("Excel Files (*.xls), *.xls,(*.xlsm), *.xlsm") Kill (del)

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

اذا انت ما تعرف ، واويلاه بما انك قلت "بمجرد فتح البرنامج" ، طيب في البرنامج الاصلي ، 1. هل هناك ماكرو بإسم autoexec ، اذا في ، رجاء ترفقه لي ، 2. وماذا اسم النموذج الاول اللي ينفتح (من خلال هذا النموذج سنرى في الكود اسم الاستعلام) ، وكذلك اريدك ترفقه جعفر

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

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

استاذ جعفر الغالي ربي يحفظك انت وكل افراد عائلتك ويحفظ بلدك الاغر يارب انا من وين اعرف الاستعلام انا مجر عبد فقير تورط بهذا البرنامج يريدون استقطاع 3 % من كل موظف من اي حقل حتى لو كان حقل جديد بما ان حقل رعاية القاصرين موجود في البرنامج اسند له مهمة الاستقطاع مبلغ ال 3 % لكن هل يوجد طريقة يتم الاستقطاع لكل الموظفين بدلا من اختيار موظف واحد تلو الاخر انت صاحب الفضل الاول والاخير استاذ جعفر ومن تضيق به الدنيا يلجأ الى اساتذة هذا المنتدى الاكثر من رائع صدقني كلمة شكرا قليلة في حقكم لكننا ندعو الله عز وعلا ان يمن عليكم بالصحة والعافية يارب اذا كان هناك حل كان بها واذا لم يكن حل فشكرا جزيلا لك استاذي وتاج راسي الغالي استاذ جعفر لما قدمته وتقدمه لكل من يحتاج مساعدة دون استثناء

مشكور حبيبي الغالي الاسم الغالي ياسر لمرورك الكريم حمدا لله على السلامة ايه الغيبة الطويلة دي لعله خير باذن الله اخي الغالي ناصر لك كل الشكر والتقدير لكلماتك الجميلة هذه ولك بمثل ما دعوت اما بخصوص طلبك لم افهمه جيدا يرجى توضيح المطلوب ! تقبل تحياتي اخي الغالي محمد على الطيب جزاك الله كل الخير ولك بمثل ما دعوت تقبل فائق احترامي اخي الغالي أبو عيد كل الشكر و التقدير لشخصكم الكريم ولمروركم الجميل وبالهنا والشفا (هنتف ريشة واسلخه واطبخه ) تقبل تحياتي

أخي الحبيب سليم بارك الله فيك .. لاحظ الكود الخاص بك في حالة قمت بمسح مجموعة من الخلايا .. لن يتم مسح التسطير السابق لأنك حددت شرط Target.Count=1 ..يمكنك إزالة الشرط ليتحصل المطلوب بشكل أفضل

أخى الحبيب وأستاذى الكريم // رجب جاويش بارك الله فيكم ، وزادكم الله من فضله ، حفظكم رب العالمين شاكرا لكم كلماتكم الرقيقة فنحن فى هذا المنتدى المبارك نتعلم منكم ( العلم ، وحسن التعامل) وتقبل منى وافر الاحترام والتقدير الأخ الكريم / مهند الزيدى اليكم بالمرفقات نموذج موجود بالمنتدى قمت ببعض التعديلات عليه ، حتى يتوافق مع طلبكم ، وهذا ما أتمناه والشكر موصول لأستاذى الكريم // ياسر العربى وتقبل منى وافر الاحترام والتقدير Names.rar

تم يا باشا

السلام عليكم اخي ابو فارس أولا شكرا جدا لكل من شارك بالموضوع انا نزلت البرنامج الي انت ارفقته النهاردة و عملت Run و لم يرسل اي ايميل .. لماذا؟

جرب الملف المرفق التالي report.rar

الله يبارك اينا فيكم ولا يحرمنا منكم ابدا ان شاء الله جزاك الله كل خير استاذنا محمود حسين جزاكم الله كل خير

تفضلوا هذا الموضوع للاثراء وتابعو الردود للاخر ستجدو ما يعجبكم http://www.officena.net/ib/topic/64269-لمسة-جمالية-لبرنامجك-ايا-كان-هو-عرض-صور-بطريقة-جميلة/ image & userform_2.rar

أخى الحبيب الخلوق / محمود الشريف المنتدى نور بطلتك المميزة ربنا يبارك فيك ان شاء الله نسعد بوجودك المستمر

ده رابط للاستذاده وجزاك الله خيرا اخى رجب

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

مرحبا بك أخي .. تفضل لعله يفيدك test.rar

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

لابد وأن لديك في موديول آخر إجراء فرعي بنفس الاسم ... قم بدمج الأسطر في كلا الكودين معاً لأن الإجراء خاص بالتنفيذ عند فتح المصنف

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