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 حيث سيتمكن المستخدم العادى من روئية الورقة رقم صفر فقط و الادمن سيرى جميع الاوراق فى هذة الحالة سأكون شاكر توضيحك بس لى طلب عملت انا شاشتان واحدة للمستخدم العادى و الاخرى للادمن عايز اخلى لما يفتح البرنامج ويدخل المستخدم لية كأدمن تظهر الشاشة بتاعتة و منها يمكن رؤئية الشاشة التانية او الشاشات الاخرى و يمكنة روئية الشيت عن طريق زرار و لما يفتح البرنامج كمستخدم عادى يظهر شاشة اليوزر بس بدون اظهار الشاشة التانية او اى شاشات اخرى او ملف الاكسل او البرنامج .......... ارجوا ان اكون قد اوضحت فكرتى لكم لك رسالة بالمراسلات ارجوا الاجابة عليها و لكم جزيل الشكر

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