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

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

تحية طيبة وبعد

أعضاء المنتدى العظيم لدى سؤال

كيفية ادراج قيمة أخر خلية موجودة بعمود فى خلية اخرى بعمود اخر وعند ادراج قيمة جديدة بنفس العمود اسفل القديمة يتم ادراجها تلقائى؟

جربت ولم افلح تعبت من الموضوع ده

مرفق الملف

ولكم جزيل الشكر