skyblue

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

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

برنامج رائع ولكن توجد مشكلة في الاضافة

السلام عليكم ورحمة الله وبركاته وبعد الاساتذة المشرفين والاعضاء الافاضل المحترمين في الملف المرفق ارجوا المساعدة في الترحيل من االعمودي الى الافقي مع الاستمرار في الترحيل باستخدام باستخدام NEXT تحياتي ترحيل من العمودي الى الافقي.rar

اشكرك مهندس طارق على الرد الرائع ولكن توجد ملاحظة بسيطة جدا اريد ان تتكرم علي بتنفيذها : اريد ان يفوم الكود بانزال بانزال بيانات الاسطر كماهي بدون جمع . فمثلا البيان معالجة امانت اتكررت 3 مرات .في الجانب المدين ومرتين في الجانب الدائن فلااريد من ان الكود ان يجمع المتشابه بل اريد ان يرحليها كما هي 3 اسطر مدين وسطرين دائن . الترحيل الي بدون زر . اكرر شكري وتقديري لك . book12_2.rar

السلام عليكم ورحمة الله وبركاته وبعد برجاء المساعدة في الملف المرفق وتقبلوا تحياتي book12.rar

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

up

يابو احمد الله يخليك ويسعدك اليوم طبقت الكود على برنامج لدي في العمل فاعطى نتيجة مذهلة ولكن على السطر الاخير فقط . فهل يمكن ان نجعاه عاى جميه الاسطر سواءا اتعدلت ام لا . فقد حاولت بهذا الكود ولكن لم يضبط معي Sub ss1() For i = 3 To 10 If Sheets("1").Cells(i, "c") <> 0 Then Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 6) = Cells(i, "a") Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 7) = Cells(i, "b") Sheets("2").Cells(Sheets("2").[f10].End(xlUp).Row, 8) = Cells(i, "c") End If Next i End Sub تقبل تحياتي Book19.rar

up

اتستاذي علي العيدروس مرفق ملف به البيانات book13.rar

الاساتذة المشرفين والاعضاء الافاضل المخترمين السلام عليكم ورحمة الله وربكاته وبعد : الملف المرفق ارجوا التكرم منكم المساعدة في الملف المرفق تقبلوا تحياتي book13.rar

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

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

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

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

الاساتذة المشرفين والاعضاء الافاضل السلام عليكم ورحمة الله وبركاته وبعد برجاء التكرم بالمساعدة بحيث استطيع ان اظهر الجدول اللي في ورقة البيانات من خلال النموذج تحياتي ALI_CH.rar

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

الاساتذة المشرفين والاعضاء الافاضل السلام عليكم ورحمة الله وبركاته برجاء المساعدة في الملف المرفق تحياتي لكم Book188.rar

السلام عليم ورحمة وبركاته وبعد برجاء المساعدة في الملف المرفق تحياتي لكم Book1.rar

السلام عليكم ورحمة الله وبركاته وبعد برجاء التكرم بوضع كود في الملف المرفق يودي الى الخروج بدون حفظ تحياتي book122.rar

لمزبدا من التوضيح : من زر الترحيل اللي في ورقة5 يتم ترحيل اجمالي الرةقة 2 واجمالي الورقة3 واجمالب الورقة4 الى ورقة 1 يعني لو دخلت على صفحة 5 ثم ضغطت زر الترحيل فان الاجماليات الخاصة بالورق2 والورقة3 والورقة4 ترحل على طول للورقة1 والمعذرة على انني لم اوضح المطلوب في السابق .

up

الاستاذ الفاضل العيدروس المرفق يوضح المطلوب حيث انني وضعت زر الامر في الورقة 5 تحياتي لك book18.rar

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