اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

( موضوع مميز) ادخال بيانات من خلال الفورم وترحيلها الى صفحة اخرى


AbedElkader

الردود الموصى بها

السلام عليكم اخواني الاعزاء

المطلب الاول : عندما دخل اسم الصنف في فورم الادخال اريد ان يعمل بحث حسب الاحرف المدخلة بالترتيب والتصفية حتى يصل الى الصنف المراد معتمداً على اسماء الاصناف المدخلة في الصفحة الثانية (المخزن) العمود الاول ,,, بمعنى عندما ادخل الصنف (راس اكس) بمجرد كتابة الحرف ر تظهر كل الاصناف التي تبدأ بحرف الراء واذا ما قمت بكتابة (را) فيقوم باظهار فقط الاصناف التي تبدأ بحرفي (را) وهكذا وعندما اصل للمطلوب اقوم باختياره فيكتب في الخانية المخصصة لكتابة اسم الصنف .

المطلب الثاني : عندما اقوم بادخال اسم الصنف وبيناته في الصفحة الاولى والتي يسمح بتكرار اسماء الاصناف فيها, اريد ان تدخل البيانات تلقائياً في الصفحة الثانية والتى تعتبر قاعدة بيانات للاصناف بحيث لايمكن تكرار اسماء الاصناف فيها وانما تجميع الارقام في كل الخلايا بحسب المدخل في فورم الادخال في الصفحة الاولى وذلك بحسب اسم الصنف , يعني المفتاح يكون اسم الصنف .

ان شاء الله اكون شرحت المطلوب بشكل مفهوم .

2A0A2000.rar

تم تعديل بواسطه AbedElkader
رابط هذا التعليق
شارك

اخي الكريم

بالنسبه لطلبك الاول

الكود الذي كان لديك بالشكل التالي


Set q = .Range("c4:c" & LastRow).FindNext(q)

وهذا بطبيعة الحال خطأ والصحيح هو

Set q = .Range("a5:a" & LastRow).FindNext(q)

اما طلبك الثاني

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

  • Like 1
رابط هذا التعليق
شارك

الف شكر الاخ العزيز ابو عبد الله على استجابتك لسؤالي وبارك الله فيك

لقد تم تغير الكود ولكن للاسف لم يحدث اي تغير ,,,,

اود تسهيل طلبي ,

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

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

الاخوة الكرام ارجو المساعدة في هذا الموضوع وبارك الله فيكم

رابط هذا التعليق
شارك

اخي الفاضل ارجو منك شرح ماهي الية البرنامج

الذي فهمته انك تريد عند ادخال صنف جديد يقوم بتحقق من الصنف هل هو موجود في قاعدة البيانات

التي هي المخزون اذا وجد الصنف فيها يقوم بإضافة الكمية على الصنف واذا لم يجد الصنف يقوم بإضافته

في شيت DATA_FLDO

اذا هذا ماتقصده اراه صعب في حال الملف حاليا لان شيت المخزون معتمد على معادلات

ولاكن اذا هذه الالية المطلوبة بأذن الله سوف نتوصل الى ماتريده

ارجو منك الرد

رابط هذا التعليق
شارك

اخي الكريم

ارفقت لك نفس ملفك وفيه الحل الذي قلته لك وهو يعمل 100%

ويوجد ايضا شرح فيديو يؤكد صحة العمل

* ارجو التنويه ان الحل المرفق هو خاص بطلبك الاول فقط

My Documents.rar

رابط هذا التعليق
شارك

الاخ الفاضل ابو عبد الله بارك الله فيك وجزاك خيراً على اهتمامك بموضوعي .

الذي فهمته ,تمام فهمته كما يجب ولكن الصنف المضاف يضاف الى المخزون والىDATA_FLDO ايضاً (المهم يمكن تكرار الصنف فيDATA_FLDO اما بالنسبة للورقة الثانية فلا بد الا يتكرر وانما تضاف الكمية الى اسم الصنف وفقط وان لم يوجد الصنف يضاف الى الورقة في صف جديد )

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

رابط هذا التعليق
شارك

الاستاذ القدير احمد حمود ابو عبدالله جزاك الله خير

تعلمت منك الكثير ياكبير

اخي الفاضل عبدالقادر

احاول اعمل المطلوب اذا زبط ولا فالاساتذة موجودين

لاني مشغول ماادخل النت الا يوم يومين في الاسبوع

تحياتي

رابط هذا التعليق
شارك

الاخوة الاعزاء alidroos , ابوعبد الله , اشكر لكم تعاونكم واهتمامكم , فجزاكم الله عني الخير ,

الاخ alidroos بصراحة افتقدك كثير في هذا الموضوع , لانك تعاملت مع الملف في السابق وانت تعرفه جيداً

رابط هذا التعليق
شارك

اخي الاستاذ " احمد حمور " روعة ............... استفدت منه كثيرا جزاك الله كل الخير وفقك الله ابو الحارث

السلام عليكم

نعم كما قال اخي ياسر الحافظ تعديل في محله واكثر من رائع اخي احمد حمور

جزاك الله كل خير :wow::dance1: :dance1: :dance1:

رابط هذا التعليق
شارك

الاخ الفاضل ابو عبد الله

قمت بتغير بسيط في الكود لكي يعرض الاصناف عند ادخال اول حرف في صندوق البحث من الشيت الثاني وليس الاول


Set MYSH = Sheets("المخزن")

الا انه يعرض من الصفحة الثانية في صندوق البحث ولكن العمل يكون في الصفحة الاولى .

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

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

تم تعديل بواسطه AbedElkader
رابط هذا التعليق
شارك

السلام عليكم

هذا المرفق على عجله

ولاكن اريد منك الاطلا ع عليه

هل هكذا الطلب

ماتم اضافتة هو التالي

=====================================

عند اضافة صنف جديد موجود في شيت المخزن يقوم بترحيل الكمية فوق الكمية التي

في المخزن للصنف (حقل الباقي في المخزون)

=====================================

وفي حالة عدم وجود الصنف في المخزن يقوم بإضافة الصنف في كلا من DATA_FLDO و المخزن

=====================================

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

صعبة التحقق من صنف اذا كان يحوي ارقام ونصوص )

=====================================

وبالنسبة لشيت المخزن ارجو ترتيب الاعمدة عملياً بمعنى يكون نفس اعمدة شيت DATA_FLDO

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

واي ملاحظات او اضافات انا موجود (موجود منفطع :blink: )

السموحة منك على التأخير

والسلام عليكم

DATA_RFRE.rar

رابط هذا التعليق
شارك

اخي العزيز " العيدروس " ابو نصار

قبل الاطلاع على تعديلك الجديد

وعلى وجه السرعة حملت الملف ... احببت ان اقول جزاك الله كل الخير ايها الصبور الرائع

وفقك الله

ابو الحارث

رابط هذا التعليق
شارك

السلام عليكم

هذا المرفق على عجله

ولاكن اريد منك الاطلا ع عليه

هل هكذا الطلب

ماتم اضافتة هو التالي

=====================================

عند اضافة صنف جديد موجود في شيت المخزن يقوم بترحيل الكمية فوق الكمية التي

في المخزن للصنف (حقل الباقي في المخزون)

=====================================

وفي حالة عدم وجود الصنف في المخزن يقوم بإضافة الصنف في كلا من DATA_FLDO و المخزن

=====================================

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

صعبة التحقق من صنف اذا كان يحوي ارقام ونصوص )

=====================================

وبالنسبة لشيت المخزن ارجو ترتيب الاعمدة عملياً بمعنى يكون نفس اعمدة شيت DATA_FLDO

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

واي ملاحظات او اضافات انا موجود (موجود منفطع :blink: )

السموحة منك على التأخير

والسلام عليكم

الاخ الكريم alidroos , بارك الله فيك وجزاك خيراً على المجهود الطيب وكما قال الاخ الفاضل ابو الحارث عنك بأنك الصبور , فزادك الله صبراً على صبر :frown3:

الاخ العزيز تظهر رسالة خطأ في الكود الاتي ولا علم لي لماذا هذا الخطأ مع انه عمل عندك الملف جيداً

تظهر الاشارة الصفرا عند بداية الكود Sub MSG_TRHEB() ومؤشر الماوس عند كلمة Date , ترى ما المشكلة برأيك ؟؟؟؟!!!


Sub MSG_TRHEB()

Dim FORMAT

Dim thedate As String, thetime As String, greeting As String, fullname As String, firstname As String, ali As String

	Dim spaceinname As Integer, abood As String, alidroos As String, MY As String, thkr As String, thedat As String _

	, trheb As String, heloo As String

	VBA.Calendar = vbCalGreg

	thedat = FORMAT(Date, "long date")

	VBA.Calendar = vbCalHijri

	thedate = FORMAT(Date, "long date")

	thetime = FORMAT(Time, "medium time")

	trheb = "شركة الأسطل لقطع غيار السيارات"

	heloo = "مرحباً بكم في برنامج حسابات شركة الأسطل لقطع غيار السيارت"

	abood = "التـاريخ هجري"

	ali = "التاريخ ميلادي"

	alidroos = "السـاعه"

	thkr = "لاتنسـى ذكــر الله"

	MY = "عبدالقادر من الأراضي الحبيبه maicl2010ye@gmail.com "

	Select Case Time

		Case Is < TimeValue("12:00"): greeting = "السـلام عليكم  صبــاح الخير"

		Case Is >= TimeValue("12:00"): greeting = "السـلام عليكم  مســاء الخير"

		Case Else: greeting = "تصبح على خير"

		End Select

		fullname = Application.UserName

		spaceinname = InStr(1, fullname, "", 1)

		If spaceinname = 0 Then spaceinname = Len(fullname)

		firstname = Left(fullname, spaceinname)

		greeting = greeting

		MsgBox vbNewLine & "===============================================" & vbNewLine & heloo & vbNewLine & "===============================================" & vbNewLine & vbNewLine & "===============================================" & vbNewLine & abood & thedate & vbNewLine & "=====================" & vbNewLine & vbCrLf & ali & thedat & vbNewLine & "=====================" & vbNewLine & vbCrLf & alidroos & thetime & vbNewLine & "=====================" & vbNewLine & vbCrLf & thkr & vbNewLine & "=====================" & vbNewLine & vbCrLf & MY & vbNewLine & "===================================" & vbNewLine & vbNewLine & "===============================================" & vbNewLine & trheb & vbNewLine & "===============================================" & vbNewLine, vbInformation, greeting

End Sub

تم تعديل بواسطه AbedElkader
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information