عمر عبد الرحمن قام بنشر أبريل 2, 2009 قام بنشر أبريل 2, 2009 اطلب كود ترحيل من صفحة لأخرى أنا في إنتظار مساعدتكم الملف للرفع Book1.rar
احمدزمان قام بنشر أبريل 2, 2009 قام بنشر أبريل 2, 2009 السلام عليكم ممكن نخلي شرط الترحيل اي كلمة او حرف تختارة بدلا من خانة الإختيار حيث انني لم يسبق لي التعامل مع خانة الإختيار سابقا
احمدزمان قام بنشر أبريل 2, 2009 قام بنشر أبريل 2, 2009 و هل تريد مسح البيانات المرحلة من الصفحة الرئيسية بعد الترحيل
عادل حنفي قام بنشر أبريل 2, 2009 قام بنشر أبريل 2, 2009 السلام عليكم اخي جرب هذا الملف تم وضع list تختار منها كلمة رحل بدلا من التشك بوكس و اخبرني النتيجة تحياتي omarphoto1.rar
عمر عبد الرحمن قام بنشر أبريل 3, 2009 الكاتب قام بنشر أبريل 3, 2009 السلام عليكم بارك الله فيكم على هذا الرد والاهتمام وأنا مقدر للمجهودات المبذولة في منتدانا بالنسبة لتساؤلات الاخ يعقوب فيمكن وضع كلمة بدل خانة الاختيار اما بالنسبة للورقة الرئيسية فالرجاء ترك البيانات وعدم مسحها ولي طلب اخر هل يمكن الترحيل إلى عدة صفحات ووضع ذلك في قائمة منسدلة وبارك الله في الاخ aah-aah2008 لي طلب إخر كيف يمكن إخفاء قوائم أكسل في ملف محدد وأيضا صفحات محددة وشكرا لكم جميعا
عادل حنفي قام بنشر أبريل 3, 2009 قام بنشر أبريل 3, 2009 السلام عليكم اولا انا اعتذر في تدخلي السابق دون استئذان من اخي الحبيب احمد يعقوب فارجو قبول اعتذاري اخي الفاضل هل يمكن الترحيل إلى عدة صفحات ووضع ذلك في قائمة منسدلة ممكن كيف يمكن إخفاء قوائم أكسل في ملف محدد وأيضا صفحات محددة ارسل ملفا يشرح ما تريد ان تخفيه تحياتي
احمدزمان قام بنشر أبريل 3, 2009 قام بنشر أبريل 3, 2009 السلام عليكم اخي aah-aah2008 بدون اذن تتفضل في اي وقت حيث هدفنا واحد اخي omarphoto1 جرب المرفق بدون زر في صفحة حوصلة الفواتير اكتب ماتريد في الخلايا اخضراء ماتريد ويظهر معاك فورا omarphoto2Book1.rar
ابو اسامة العينبوسي قام بنشر أبريل 3, 2009 قام بنشر أبريل 3, 2009 السلام عليكم الاخوه الاحباب ممكن اشاركم لانى مقصر قليلا في حق المنتدى و ذلك لانشغالى بعمل جديد cheque.rar
عادل حنفي قام بنشر أبريل 3, 2009 قام بنشر أبريل 3, 2009 (معدل) السلام عليكم اخي ابو اسامة بارك الله فيك الاخوه الاحباب ممكن اشاركم لانى مقصر قليلا في حق المنتدى و ذلك لانشغالى بعمل جديد الله يوفقك المهم انك معنا ونطمأن عليك خالص تحياتي و تقديري تم تعديل أبريل 3, 2009 بواسطه aah_aah2008
عمر عبد الرحمن قام بنشر أبريل 3, 2009 الكاتب قام بنشر أبريل 3, 2009 السلام عليكم ورحمة الله وبركاته بارك الله فيكم جميعا أحمد يعقوب -ابو اسامة العينبوسي-aah-aah2008 مساعداتكم قيمة جدا واكثر من المطلوب وجزاكم الله خيرا ارسل ملفا يشرح ما تريد ان تخفيه الرجاء ضع الطلب في نفس الملف يأخواستاذنا aah-aah2008
عمر عبد الرحمن قام بنشر أبريل 3, 2009 الكاتب قام بنشر أبريل 3, 2009 استاذ أبو اسامة الرجاء الصفحة المرحل إليها البيانات هل يمكن مسح البيانات قبل كل عملية ترحيل وشكرا
عادل حنفي قام بنشر أبريل 3, 2009 قام بنشر أبريل 3, 2009 (معدل) السلام عليكم اخي لم تدلنا علي ماتريد اخفائه و ما المقصود بالقوائم نود استيضاح عن ما تريد اخفاؤه تحياتي تم تعديل أبريل 3, 2009 بواسطه aah_aah2008
احمدزمان قام بنشر أبريل 4, 2009 قام بنشر أبريل 4, 2009 السلام عليكم و صبحكم الله بالخير استاذنا ابو اسامة جزاك الله كل خير و الله لا يحرمنا من ابداعاتك و لمساتك الرائعة اخي و حبيبي الأستاذ عادل الله يعطيك العافية متابعاتك دائما رائعة
يحيى حسين قام بنشر أبريل 4, 2009 قام بنشر أبريل 4, 2009 ما شاء الله حلول جميلة جدا من الاساتذة و ابداع رائع من اخونا ابو اسامة بصراحة ابهرتني بطريقة حلك ربنا يوفقك و يوفق جيمع الاخوة
ابو اسامة العينبوسي قام بنشر أبريل 4, 2009 قام بنشر أبريل 4, 2009 السلام عليكم شكرا لكل الاساتذه و الاخوه هذا شعار اوفسينا التطور و التقدم دائما بخصوص طلب الاخ مسح البيانات السابقه استخدم الكود التالى بدى الاول Sub test() Dim Mrng As Range Dim cell As Range Dim Mysum As Long Set Mrng = Sheets(1).Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)) Sheets(2).Select Range(Cells(2, 1), Cells(ActiveSheet.UsedRange.Rows.Count, 6)).ClearContents Sheets(1).Select For Each cell In Mrng x = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1 If cell.Value = Chr(252) Then Sheets(2).Cells(x, 1) = Cells(cell.Row, 2) Sheets(2).Cells(x, 2) = Cells(cell.Row, 3) Sheets(2).Cells(x, 3) = Cells(cell.Row, 4) Sheets(2).Cells(x, 4) = Cells(cell.Row, 5) Sheets(2).Cells(x, 5) = Cells(cell.Row, 6) Sheets(2).Cells(x, 6) = Cells(cell.Row, 7) Sheets(2).Cells(x, 7) = Cells(cell.Row, 8) End If Next cell Mysum = Application.WorksheetFunction.SumIf(Mrng, Chr(252), Range(Cells(2, 4), Cells(Cells(Rows.Count, 4).End(xlUp).Row, 4))) MsgBox "مجموع الفواتير المرحلة هو " & Mysum, vbMsgBoxRight, "تم الترحيل " End Sub
نزار سليمان عيد قام بنشر أبريل 4, 2009 قام بنشر أبريل 4, 2009 السلام عليكم الاخوه الاحباب ممكن اشاركم لانى مقصر قليلا في حق المنتدى و ذلك لانشغالى بعمل جديد كان الله في عونك ووفقك بالعمل الجديد اخوك ابو خالد
ابو اسامة العينبوسي قام بنشر أبريل 4, 2009 قام بنشر أبريل 4, 2009 السلام عليكم اخى ابو خالد لكل كل الشكر و التقدير اخوك عمر(ابو اسامة)
عمر عبد الرحمن قام بنشر أبريل 4, 2009 الكاتب قام بنشر أبريل 4, 2009 بارك الله في كل من مد يد العون والمساعدة لنا وشكرا لكم جميعا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.