احمدزمان

لا مشكلة في نسخ الكود او حذف الصفوف

hgs السلام عليكم الآن استخدمي اي طريقة لأسماء الفصول سوف يتم الترحيلبأي اسم القواءم.rar

السلام عليكم و رحمة الله وبركاته الف مليون تحية وتقدير اخي الفاضل قصي الف مليون تحية وشكرا على التوضيح' class="bbc_url">@اخي الكريم سالم الشباني الف مليون تحية وتقدير اخي الفاضل قصي الف مليون تحية وشكرا على التوضيح اختي الفاضلة موضوع الترحيل الى عمودين في نفس الصف محتاج وقفة تفكير في الطريقة سواء بالكود او بالدوال ثم ممكن نضع جدول للفصول ورمز كل فصل فهل فكرة الجدول هذه ممكنة او بدل الجدول ممكن يكون العمود الأخضر بدل ادخال رقم الصف يجب كتابة الفصل و الصف معا 1/2 - 1/1 - 1/3

<br><br>وعليكم السلام و رحمة الله وبركاته<br><br>أخي الأستاذ هشام<br>هذا ليس الا قليل جدا من عطائكم الدائم الذي لا ينفذ<br>بارك الله فيك<br>وجزاك الله كل خير<br><br>

السلام عليكم و رحمة الله و بركاته الأخت الفاضلة ممكن توضيح اكثر للمطلوب حيث لم افهم هل مطلوب ترحيل رقم 1 الى ورق 1 و رقم 2 الى ورقة 2 او يتم ترحيل رقم 1 الى ورقة 2 وثم ير حل رقم 2 الى ورقة 2 اسفل رقم 1 جزاكي الله خيرا

السلام عليكم و رحمة الله وبركاته<br><br><br> <br><br>بعد الشكر و التقدير للأستاذ/ هشام شلبي على مجهوداته العظيمة <br>و كذلك الشكر و التقدير للأستاذ الكبير خبور خير<br><br>أخي السائل و أخي ولدطيبة<br><br>هذا الحل على قدر مافهمت من السؤال و المشاركة <br>ادخل في الخلايا الصفراء ارقام الجلوس من و الى و عدد الطلاب في كل لجنة<br><br>تظهر لك النتائج فورا<br><br>يمكنك اخفاء الأعمدة و الصفوف السوداء<br><br><br><br>كشوف مناداه2.rar

السلام عليكم و رحمة الله وبركاته بعد الشكر للجميع اخي السائل في المرفق ضع عدد النسخ التي تريدها في كل طباعة ثم 1 او 2 او 3 في الخلية O2 ثم اضغط طباعة كل الشهادات يتم طباعة كل نسخة حسب العدد الذي حددته تعديل.rar

hglvtr الفلتره.rar

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

و عليكم السلام اخي الكريم طبعا شفت الأعمدة الصفراء التي اضفناها في العمود I الدالة =IF(AND(B9>='الخلاصة المالية'!$D$4;B9<='الخلاصة المالية'!$E$4);H9;"") وهي تقوم بمقانة التاريخ للفترة بحيث اذاكان التاريخ لهذا الصف يقع خلال الفترة المطلوبة في الورقة الثانية نسجل في العمود I اسم اللجنة من العمود H و اذاكان لايقع التاريخ خلال الفترة يعطينا "" فراغ في العمود J وضعنا الدالة =I8&COUNTIF($I$7:I8;I8) وهي تأخذ القيمة الموجودة في العمود I وتضيف عليها عدد مرات تكرارها من اول سطر الى هذا السطر فقط و تضع عدد المرات بجوار اسم اللجنة = = = في ورقة الخلاصة المالية كررنا نفس فكرة الإسم و عدد مرات تكراره السابقة ثم في عمود البيان تم جلب بيانات العمود بالدالة =INDEX('كشف حساب '!$A$1:$H$175;MATCH($A6;'كشف حساب '!$J$1:$J$174;0);3) وهي تنقسم الى قسمين MATCH($A6;'كشف حساب '!$J$1:$J$174;0) وهي تقوم برقم السطر الموجود به القيمة التي تطابق القيمة الموجودة في A6 INDEX('كشف حساب '!$A$1:$H$175; وهي تقوم بجلب قيمة اي خلية وذلك بمعرفة رقم الصف و رقم العمود وحيث اننا عرفنا رقم الصف بموجب الدالة التي سبقتها ورقم العمود معروف طبعا و هو عمود البيان تم معرفة القيمة آمل ان يكون الأمر واضح هكذا دمت بخير

السلام عليكم مرفق الحل مع شرح بسيط Book1.rar

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

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

السلام عليكم اخي الكريم حول الحل بطريقة دوال الإكسل الذي سبق ارفاقة فقط غير رقم الحساب تظهر لك بيانات التي تخص رقم الحسابات المختار فقط = = = = = = = اما دوال الورقة الثانية فهي وبأختصار شديد جدا تقوم بالبحث عن رقم التسلسل الموجود امامها في العمود A لنفس الورقة وتبحث عن نفس الرقم في العمود CC في الورقة الثانية بحيث تأخذ رقم الصف وبموجب رقم الصف تقوم بنقل بيانات هذا الصف الى الصف هذا في الورقة الحالية يتم البحث عن رقم الصف باستخدام الدالة MATCH و يتم الإشارة الى اي عمود في المدى باستخدام الدالة INDEX

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

HGSBL UGD;L , VPLM HGGI السلام عليكم و رحمة الله اخي الكريم في ورقة JOU تم اضافة دالة في العمود CC بحيث يتم عمل ترقيم لكل الصفوف التي بها رقم الحساب المطلوب تم تسمية النطاق المستخدم في ورقة JOU باسم JOU_DATA في ورقة CASH تم عمل تسلسل بحيث لا يتجاوز العدد الموجود في الورقة السابقة بموجب هذا التسلسل تم اضافة الدوال اللازمة لنقل البيانات بموجب رقم التسلسل من كل عمود حسب رقم العمود JANUARY.rar

http://www.officena.net/ib/index.php?app=forums&module=post&section=post&do=reply_post&f=14&t=32848 ‏الاثنين‏، 10‏/7‏/1431هـ الموافق ‏21‏/6‏/2010م السلام عليكم ورحمة الله عمل جدا رائع ومجموعة فورمز فعلا مميزة في التصميم و الأداء جزاك الله كل خير تم عمل التعديل المطلوب بارك الله فيك Sub ãÇßÑæ1() 'ÇáÊÑÍííá Sheets("Inovice").Select Nbr = Sheets("Inovice").Cells(4, 5) 'ÝÇÊæÑÉÑÞã Cst = Sheets("Inovice").Cells(4, 2) 'ÇáÚãíá Dt = Sheets("Inovice").Cells(5, 5) 'ÇáÊÇÑíÎ Cr = Sheets("Inovice").Cells(5, 9) 'äæÚ äÞÏí Çæ ÂÌá BA = Sheets("Inovice").Cells(43, 2) 'ãÏÝæÚÌ TR = Sheets("Inovice saving").Range("b55555").End(xlUp).Row + 1 On Error Resume Next Application.ScreenUpdating = False Sheets("Inovice saving").Range("A3:D" & TR).AutoFilter With Sheets("Inovice saving") .Cells(TR, 12) = BA .Cells(TR, 13) = Sheets("Inovice").Cells(44, 9) For R = 8 To 40 If Cells(R, 1) <> "" Then .Cells(TR, 2) = Nbr .Cells(TR, 3) = Dt .Cells(TR, 4) = Cr .Cells(TR, 5) = Cells(R, 1) .Cells(TR, 6) = Cells(R, 4) .Cells(TR, 7) = Cells(R, 5) .Cells(TR, 8) = Cells(R, 6) .Cells(TR, 9) = Cells(R, 7) .Cells(TR, 10) = Cells(R, 9) .Cells(TR, 11) = Cst TR = TR + 1 End If Next R End With 2 Columns("K:T").Hidden = False Range("A7:C40").AutoFilter Field:=1, Criteria1:="<>" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True QP = MsgBox("åá ÊÑíÏ ØÈÇÚÉ äÓÎ ÇÎÑì ãä ÇáÝÇÊæÑÉ ", vbYesNo, "ÊÃßíÏ ØÈÇÚÉ") If QP = vbYes Then GoTo 2 Range("A7:C40").AutoFilter Columns("K:T").Hidden = True Range("A8:F40,B4:C5,i5:i5,B43:B43,I45:I45").ClearContents Range("E5").Formula = "=TODAY()" Cells(4, 5) = Nbr + 1 Range("a8").Select ActiveWindow.SmallScroll Down:=-99 End Sub

السلام عليكم و رحمة الله وبركاته تم بحمد الله وفضلة انجاز الملف الشرح موجود في المرفقات = = = = = = ‏الاثنين‏، 10‏/7‏/1431هـ الموافق ‏21‏/6‏/2010م تم إضافة ورقة جديدة تعمل كنموذج إدخال وتعديل وبها الخصائص التالية : 1 ـ البحث بواسطة رقم العميل أو إسم العميل . أدخل في خانة رقم العميل أي جزء من رقم العميل سوف يظهر لك في القائمة المسندة حتى 12 رقم اختيار الرقم المطلوب و أختار الإسم المطلوب أو أدخل في خانة إسم العميل أي جزء من أسم العميل للعمل في أوله أو أوسطه أو أخره سوف تظهر لك في القائمة المنسدلة حتى 12 إسم بها هذا الجزء الذي تبحث عنه أختار الاسم المطلوب و الرقم المطلوب 2- نتائج بحث مهمة لإدخال البيانات : ـ في كل الحالتين السابقتين بعد الإختيار يظهر لك عنوان العميل وعدد الخدمات أو الفواتير السابقة وإجمالي المبالغ الموردة من العميل و صافي حساب العميل موجب أو سالب وفي أسفل الصفحة سوف تظهر لك أخر 3 فواتير للعميل المختار مع كامل بياناتها . 3 ـ رقم الفاتورة : بعد إدخال بيانات العميل وفي القائمة المنسدلة لرقم الفاتورة سوف تجد حتى 25 رقم للفواتير المسجلة على العميل . وهنا أيضاً يمكنك البحث برقم الفاتورة كما سبق في إسم العميل بعد اختيار رقم الفاتورة سوف تظهر لك في الخانة فوق رقم الفاتورة عبارة ( جاري تعديل الفاتورة ).... إذا أضفت رقم فاتورة جديد غير موجود من السابق سوف يظهر لك في خانة فوق رقم عبارة (إضافة فاتورة جديدة ) ....... حيث من هنا سوف تعرف إذا كانت هذه الفاتورة سجلت من السابق أو لا 4 ـ متابعة الإدخالات المهمة . في أعلى الورقة سوف تظهر لك أسماء الخانات المطلوب تعبئتها بالشكل الصحيح يختفي أسمها تلقائياً من أعلى الورقة . 5 ـ زر واحد فقط يقوم بالإضافة لفاتورة جديدة أو تعديل الفاتورة السابقة . 6- تم تحديد دبل كليك لنموذج التاريخ لخلايا التاريخ فقط كشف حساب : تم عمل ورقة كشف الحساب خلال فترة محدد من تاريخ إلى تاريخ وبعد إستخراج الفترة يتم تحديد رقم العميل الذي سوف تظهر بياناته تلقائياً وإذا لم يحدد رقم العميل سوف تظهر كل البيانات عن هذه الفترة . .................................................................. طريقة الاستخدام :ـ 1 ـ من الشاشة الرئيسية أختار إضافة أو تعديل سوف تدخل مباشرة إلى ورقة نموذج الإضافة أو التعديل 2 ـ قبل الشروع في العمل يجب الضغط على جديد ثم إدخال البيانات أو تعديل البيانات القديمة 3 ـ بعد إكمال البيانات أضغط على إضافة أو تعديل يتم حفظ البيانات في مكانها ثم يتم السؤال إذا كنت تريد الطباعة أو لا 4 ـ يجب العودة إلى الشاشة الرئيسية باستخدام الزر BACK 5 ـ من الشاشة الرئيسية أختار كشف الحساب سوف تدخل مباشرة إلى ورقة كشف الحساب 6 ـ قبل الشروع في العمل يجب الضغط على كشف جديد 7 ـ قم بتحديد الفترة من تاريخ إلى تاريخ إذا لم يتم تحديد الفترة سوف تظهر أمامك كل العمليات الموجودة لكل العملاء 8 ـ أختار من القائمة رقم العميل المطلوب تلقائياً تظهر لك بيانات العميل المختار فقط 9 ـ أختار طباعة للطبع 4 ـ يجب العودة إلى الشاشة الرئيسية باستخدام الزر BACK تم بحمد الله ذمم.rar

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

في خدمتك في اي وقت

h وآخر دعوانا ان الحمد لله رب العالمين Inovice3.rar

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