mody_mhashem

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

السلام عليكم و رحمة الله و بركاتة الاخ العزيز ابو عبد البارى أشكرك جزيل الشكر عل متابعة الموضع جزاك الله خيرا و شكرا لك و اوضح لك ما تم من تعديل كما يلى 1 - تحديد نطاق الترحيل قمت بالتعديل علية من Range("p3:s" & last).Copy الى Range("p3:s17" & last).Copy 2 - كود الفلتر من Range("e21:i" & last1).Sort Key1:=Range("g21"), Order1:=xlAscending, Key2:=Range("f21"), Order2:=xlAscending الى Range("e21:i" & last1).Sort Key1:=Range("f21"), Order1:=xlAscending, Key2:=Range("g21"), Order2:=xlAscending 3 - اضافة كود مسح النطاق المرحل و لمسح النطاق المرحل قمت باضافة الكود التالى فى الاخر Range("p3:s17" & last).ClearContents فأصبح الكود Private Sub abo_abary() last = Cells(Rows.Count, "p").End(xlUp).Row last1 = Cells(Rows.Count, "f").End(xlUp).Row Range("p3:s17" & last).Copy Cells(last1 + 1, 6).PasteSpecial xlPasteValues Cells(last1 + 1, 5).Value = last1 - 20 last1 = Cells(Rows.Count, "f").End(xlUp).Row Range("e21:i" & last1).Sort Key1:=Range("f21"), Order1:=xlAscending, Key2:=Range("g21"), Order2:=xlAscending Application.CutCopyMode = False Range("p3:s17" & last).ClearContents End Sub ارجوا من الله ان يكون التعديل الذى قمت بة صحيح ولك حق توجيهى ان كنت اخطئ فى شى جزاك الله خيرا و شكرا لك

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

السلام عليكم و رحمة الله و بركاته هل من مساعدة و شكرا

السلام عليكم و رحمة الله و بركاته جزيل الشكر لك اخى سليم على سرعة الرد و استجابة لمطلبى ملفك المرسل الى جيد و بقوم بالمطلوب ....لكن عند تحميل الملف و تشغيلة لم استطيع تطبيقة علي الملف الاصلى الموجود لدى فقد تغييرت الصفوف و الاعمدة عما كنت قد اشرت اليها بالملف الاول فعند تطبيق ما اضفتة لم تفلح معى ارجو منك تثبيت الصفوف و الاعمدة كما هى موجوده حتى استطيع التطبيق حيث ان باقى الخلايا بها معادلات و عند تغييرها كيف اقوم بذلك ؟ قمت بارفاق ملف به تحديد الاماكن قدر المستطاع ( اللون الازرق بة معادلات من اماكن اخرى بالشيت ) ملحوظة الترتيب بالتاريخ الاول ثم بالاسم مع تثبيت التاريخ جزيت خير الجزاء و شكرا لمجهودك المبذول Book1.rar

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

فى ذر شاشة الدخول استبدل الكود الموجود بالكود الاتى Private Sub CommandButton1_Click() If TextBox1.Value = "محمود" And TextBox2.Value = "1990" Then Unload Me User_Data.Show Exit Sub End If MsgBox "المدخلات غير صحيحة - ادخل المطلوب مرة ثانية" TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub فى ذر الدخول الى صفحة العمل ضع الكود التالى بدل الموجود Private Sub CommandButton4_Click() Unload Me Application.Visible = True Sheet2.Activate End Sub

للرفع

للرفع

للرفع

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

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

السلام عليكم ورحمة الله و بركاتة برجاء المساعدة فى عمل طلب الشراء هذا المرفق به 4 شيت الاول المخزون و الثانى بيان العميل و الثالث طلب الشراء و الرابع بة ملف لتخزين الاوامر المطلوب 1 - عندما ادخل رقم العميل يحضر باقى البيانات 2 - عند أختيار رقم الصنف من قائمة منسدلة يحضر باقى البيانات للصنف وان كان غير متاح يرفض ادخال الصنف 3 - يقوم بأدخال البيانات تلقائى بالشيت رقم 4 عند حفظ الملف ولكم جزيل الشكر PURCHASE ORDER.rar

السلام عليكم ورحمة الله و بركاتة اخى العزيز احمد حمور-ابوعبدالله هل تقصد ان الكود سيصبح هكذا Private Sub CommandButton1_Click() Dim ahmad As String, hamoor As Worksheet, DADA As Integer, MYSH As Worksheet On Error GoTo 1 If ComboBox1.Value = "" Or TextBox2.Text = "" Then MsgBox " ÍÇæá ÇáÏÎæá ÈÔßá ÕÍÍÍ ", 16, "ÊÍÐÍÑ" ComboBox1.Value = "" TextBox1.Text = "" TextBox2.Text = "" ComboBox2.Value = "" Else Set MYSH = Sheets("DATA") DADA = MYSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ahmad = TextBox3.Value Set hamoor = Sheets("CONTROL") With hamoor Application.Range(ahmad).Activate If TextBox2.Text <> .Range(ahmad).Offset(0, 1).Value Then MsgBox "ÇáÑÞã ÇáÓÑÍ ÛÍÑ ÕÍÍÍ", 16, "ÑÓÇáÉ ÊäÈÍå" TextBox2.Text = "" TextBox2.SetFocus Else If TextBox1.Text = .Range(ahmad).Value And TextBox2.Text = .Range(ahmad).Offset(0, 1).Value Then If ComboBox2.Value = "ADMINSTRATIVE" Then .Visible = xlSheetVisible .Application.Sheets("DATA").Visible = xlSheetVisible '.Application.Sheets("CONTROL").Visible = xlSheetVisible '.Application.Sheets("0").Visible = xlSheetVisible '.Application.Sheets("1").Visible = xlSheetVisible '.Application.Sheets("2").Visible = xlSheetVisible '.Application.Sheets("3").Visible = xlSheetVisible '.Application.Sheets("4").Visible = xlSheetVisible '.Application.Sheets("5").Visible = xlSheetVisible '.Application.Sheets("6").Visible = xlSheetVisible '.Application.Sheets("7").Visible = xlSheetVisible '.Application.Sheets("8").Visible = xlSheetVisible '.Application.Sheets("9").Visible = xlSheetVisible '.Application.Sheets("10").Visible = xlSheetVisible Me.Hide Application.Visible = True MYSH.Cells(DADA, 1).Value = Me.TextBox1.Text Sheets("0").Activate MsgBox "Úáì ÈÑßÉ Çááå", vbOKOnly, "ÇáÊÑÍÍÈ" ElseIf ComboBox2.Value = "USER" Then .Visible = xlSheetVeryHidden .Application.Sheets("DATA").Visible = xlSheetVeryHidden '.Application.Sheets("CONTROL").Visible = xlSheetVeryHidden '.Application.Sheets("0").Visible = xlSheetVisible '.Application.Sheets("1").Visible = xlSheetVeryHidden '.Application.Sheets("2").Visible = xlSheetVeryHidden '.Application.Sheets("3").Visible = xlSheetVeryHidden '.Application.Sheets("4").Visible = xlSheetVeryHidden '.Application.Sheets("5").Visible = xlSheetVeryHidden '.Application.Sheets("6").Visible = xlSheetVeryHidden '.Application.Sheets("7").Visible = xlSheetVeryHidden '.Application.Sheets("8").Visible = xlSheetVeryHidden '.Application.Sheets("9").Visible = xlSheetVeryHidden '.Application.Sheets("10").Visible = xlSheetVeryHidden Me.Hide Application.Visible = True MYSH.Cells(DADA, 1).Value = Me.TextBox1.Text Sheets("0").Activate MsgBox "Úáì ÈÑßÉ Çááå ", vbOKOnly, "ÇáÊÑÍÍÈ" End If End If End If End With End If 1 End Sub حيث سيتمكن المستخدم العادى من روئية الورقة رقم صفر فقط و الادمن سيرى جميع الاوراق فى هذة الحالة سأكون شاكر توضيحك بس لى طلب عملت انا شاشتان واحدة للمستخدم العادى و الاخرى للادمن عايز اخلى لما يفتح البرنامج ويدخل المستخدم لية كأدمن تظهر الشاشة بتاعتة و منها يمكن رؤئية الشاشة التانية او الشاشات الاخرى و يمكنة روئية الشيت عن طريق زرار و لما يفتح البرنامج كمستخدم عادى يظهر شاشة اليوزر بس بدون اظهار الشاشة التانية او اى شاشات اخرى او ملف الاكسل او البرنامج .......... ارجوا ان اكون قد اوضحت فكرتى لكم لك رسالة بالمراسلات ارجوا الاجابة عليها و لكم جزيل الشكر

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

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

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

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

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

السلاموا عليكم ورحمة الله و بركاتة تحية طيبة وبعد هذا الكود ادى الغرض بنجاج =INDEX(D:D,MATCH(9.99999999999999E+307,D:D)) و شكرا لكل من ساهم فى المساعدة من الاساتذة الافاضل أ /هشام شلبى أ /يحيى حسين أ / الجزيرة بس لو ممكن الشرح ولكم جزيل الشكر

تم ارفاق الملف و شكرا Book2.rar

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