مصطفى حسين

انا لله وانا اليه راجعون... وعظم الله أجركم وأحسن عزائكم ... اللهم اغفر لها وارحمها.. وعافها واعفو عنها.. واكرم نزلها ..ووسع مدخلها.. اللهم ارحمنا إذا صرنا إلى ما صاروا إليه،،،

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

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

السلام عليكم ورحمة الله وبركاته اساتذتي الافاضل ... لدي ملف ترحيل وبالكود شرط اذا كان العمود A مطابق للاسم المرحل يظهر ان القيمة مكررة وأيضا على على العمود B ولكن كل شرط منفصل فاذا تطابقة القيمة في العمود A فيصبح مكرر دون النظر للعمود B وايضا يطبق على العمود B فاذا اصبحت القيمة متطابقة فإنه مكرر دون الرجوع الى العمود A فالسؤال هل من الممكن ان اجعله يبحث عن التطابق للعمودين وليس لعمود واحد ؟ فاذا تطابقة قيمة العمود A لابد من تطابق قيمة Bليتم منع التكرار. مرفق الكود وشاكرا لكم الافادة والاستفادة الدائمة من خبراتكم الكود من إفادة الاستاذ أبوحنين جزاه الله خيرا وجعله الله في ميزان أعماله Private Sub CommandButton1_Click() Dim Lr As Long, Val1, Val2 With Sheets("ارشيف") Lr = .Cells(Rows.Count, "B").End(xlUp).Row + 1 Val1 = Application.WorksheetFunction.CountIf(.Range("B2:B" & Lr), B1) Val2 = Application.WorksheetFunction.CountIf(.Range("C2:C" & Lr), C1) If Val1 = 1 Or Val2 = 1 Then MsgBox "هذه القيمة مكررة", vbExclamation, "خطأ" Exit Sub End If

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

أدعوا من الله أن يسدد خطاك وأن لايحرمنا منكم جميعا أشكرك أستاذي الفاضل / أبوحنين فالكود يعمل 100 % ولدي إستفسار عسى ان لا أكون ثقيلا عليكم بطلباتي الاستفسار هو : هل بإستطاعتي ان اعمل قيمتين إفتراضيتين لعدم التكرار ؟ مثلا العمود B والعمود C وأدعو الله أن يوفقنا أجمعين

السلام عليكم ورحمة الله وبركاته اساتذتي الافاضل ... أرغب من سماحتكم التعديل على هذا الكود حيث انني عندما أرحل بالضغط اكثر من مرة يقوم بالاستجابة ويكرر البيانات المرحلة فأرجوا من الله ان يتم طلبي داعيا الله التوفيق للجميع Private Sub CommandButton1_Click() Dim Lr As Long With Sheets("ارشيف") Lr = .Cells(Rows.Count, "B").End(xlUp).Row + 1 ("Cells(Lr, "B").Value = Me.Controls("B1") ("Cells(Lr, "C").Value = Me.Controls("C1") ("Cells(Lr, "D").Value = Me.Controls("D1") ("Cells(Lr, "E").Value = Me.Controls("E1") ("Cells(Lr, "F").Value = Me.Controls("F1") MsgBox ("تم النسخ للارشيف") End With End Sub

شكرا لك أخي أبو عيد على مساعدتك ولكن يوجد خطأ عند تنفيذ الأمر

للرفع

السلام عليكم ورحمة الله وبركاته أساتذتي الأفاضل تحية طيبة ... أرجوا من سماحتكم مساعدتي في زر الترحيل جعله يتخطى اي صف ملون بالاصفر أو خيار آخر وهو إحتساب كل 100 صف يتخطى صف واحد ويبدأ ب 100 صف اخرى وأيضا عدم تكرار الترحيل لنفس المدخل ولكم جزيل الشكر والامتنان مثال.zipمثال.zip

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

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

سلمت يداك استاذي الفاضل / رجب جاويش في ميزان أعمالك بإذن الله

فورم ادخال وتعديل.rarالسلام عليكم أساتذتنا الكرام مرفق ملف عند الفتح تظهر شاشة المستخدم وكلمة المرور المطلوب بعد إدخال المستخدم وكلمة المرور يفتح فورم التعديل UFormChang ولكم جزيل الشكر لمجهودكم اسم المستخدم : acig كلمة المرور 12345

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