طارق محمود

السلام عليكم أخي العزيز Sheets(1) هو ورقة "دليل الحسابات" وهذه لابها دمج ولاأي شيء بعد العمود الثالث فلاتقلق ولاداعي للتغيير فقط يمكنك تغيير الـ 99 بـ 999 إحيث أنك قلت " فانا عندي صفحات بها أكثر من مائة حساب والترحيل يتم والحمد لله" أو لنبحث عن سبب آخر

السلام عليكم رائع ولكن مازال ليس 100% تنقصي 1% لعدم تحديد عرض الطباعة لتقف عند العمود P وليس V وتنقصي كمان 1% لعدم ضبط الورقة الخامسة قبل طباعتها (راجعي Print Preview ستجدي بهذه الورقة سطر بالأعلي أتي من إطار الخلايا التي نسختي منها الورقة الخامسة) المراجعة لابد أن تكون مضبوطة تماما قبل أن تعرضي العمل وقريبا إن شاء الله سأري مشاركاتك ترد علي السائلين وفقنا الله وإياكم

السلام عليكم أخي العزيز المشكلة في السطر التالي For p = 13 To 40 Step 9 أنظر في الشيت إلي أرقام الأعمدة المكتوب بالسطر 202 حيث العمود 13 هو M ستجد أن عندك حسابات حتي العمود 49 فقط غيره إلي For p = 13 To 49 Step 9 أو استبدله تماما بالتالي LstC = [iV204].End(xlToLeft).Column For p = 13 To LstC Step 9

السلام عليكم عندك حق If nLR = 6 Then nLR = 7 Range("A6:A" & LR).Copy Sheet2.Cells(nLR, 1).PasteSpecial Paste:=xlPasteValues Range("B6:F" & LR).Copy Sheet2.Cells(nLR, 3).PasteSpecial Paste:=xlPasteValues Range("A6:F" & LR).ClearContents End Sub إستبدل السطرين الملونين بالأحمر بالسطرالتالي nLR = Sheet2.[A9999].End(xlUp).Row+1 ليكون الكود كاملا كالتالي Sub shiftt() LR = [A9999].End(xlUp).Row If LR < 6 Then MsgBox ("No records to shift, Will EXIT"): Exit Sub nLR = Sheet2.[A9999].End(xlUp).Row+1 Range("A6:A" & LR).Copy Sheet2.Cells(nLR, 1).PasteSpecial Paste:=xlPasteValues Range("B6:F" & LR).Copy Sheet2.Cells(nLR, 3).PasteSpecial Paste:=xlPasteValues Range("A6:F" & LR).ClearContents End Sub وإن شاء الله ستحل المشكلة

السلام عليكم جميل ولكن ليس 100% تنقصي 5% لعدم تحديد الطباعة لتشمل الخمس شهادات ولكن المعادلات مضبوطة تماما وإن شاء الله تكوني فاهمة كل حرف من حروف المعادلات

الفكرة واضحة تفضل المرفق Book11_3.zip

السلام عليكم أخي العزيز تفضل المرفق وبه ماطلبت Book11_2.zip

نعم أخي ممكن تفضل المرفق به ماطلبت وأرجو الالتزام بقواعد المنتدي مستقبلا (راجع بند العنوان) Row_Col_color.rar

السلام عليكم أخي الكريم ستجد بالمرفق أن الجزء العلوي المكتوب بالأحمر هو الديون المرحلة من الشهر السابق لجميع العملاء المدينين وتجد أن المعادلة الموجودة حاليا في عمود صافى المكسب ، تعكس مقدار الربح في العملية الواحدة بإعتبار آخر سعر للصنف في المخزن ، مثلا صنف الصيني ستجده في المخزن بـ 15 ثم 20 إذا بعته بـ 20 تجد صافي المكسب =0 وستجد عمودا جديدا سميته "سداد دفعات" تضع فيه مايسدده العميل مع إمكانية أن يسدد في نفس يوم لشراء مثل العميل في صف الإكسل 19 أو بدون شراء مثل العميل في صف الإكسل 21 هذا صحيح: وقد صححت معادلتهما وإن ظهرت مرة أخري نتائج سالبة فيهما فهذا معناه أن عدد المبيعات أكبر مما في المخزن ، وهذا غير طبيعي لتنتبه أن هناك خطأ إما في كمية المبيعات أو في الكمية بالمخزن أو تم بيع شيء لم يتم تسجيله بالمخزن وستجد في ورقة المخزن أيضا الجزء العلوي المكتوب بالأحمر هو رصيد كل صنف المرحل (المتبقي) من الشهر السابق (أو المدة السابقة) لجميع الأصناف لكيلا تبدأ ملف جديد بدون تدوين الأرصدة المرحلة من كل صنف في هذا الجزء العلوي الأحمر وضعت لك فيها تصور يدوي (ليس بالكود) حيث أنني طلبت منك أن تحسب ماتريد يدويا ولكنك لم تفعل إن كان هذا ماتريد وإلا فلتضع تصورك وكيف ستحكم علي صنف اشتريته في شهر ثم بعت منه جزء في شهر لاحق أو بعد عدة أشهر لابد ان تضع أنت التصور لطريقة الحساب ثم انا أو غيري يتدخل تفضل المرفق صافى الكمية آخر تعديل5.rar

http://www.officena.net/ib/index.php?showtopic=47288

السلام عليكم أخي الحبيب إنقلها وستعمل بإذن الله تذكر أن التصدير ثم الإستيراد هما الأفضل لنقل الفورم Export - Import بالنسبة للشرح ، ستجد بكود الفورم بعض العبارات تساعد علي ذلك سأحاول عندما يكون لدي وقت في هذا إن كنت تتعجل النتيجة فضعها في موضوع مستقل الواقع أني أحب الشعر جدا وهذان البيتان ﺃﺣﺐ ﺍﻟﺼﺎﻟﺤﻴﻦ ﻭﻟﺴﺖ ﻣﻨﻬﻢ :: ﻭﺃﺭﺟﻮ ﺃﻥ ﺃﻧﺎﻝ ﺑﻬﻢ ﺷﻔﺎﻋﺔ ﻭﺃﻛﺮﻩ ﻣﻦ ﺗﺠﺎﺭﺗﻪ ﺍﻟﻤﻌﺎﺻﻲ :: ﻭﺇﻥ ﻛﻨﺎ ﺳﻮﺍﺀ ﻓﻲ ﺍﻟﺒﻀﺎﻋﺔ هما في الحقيقة للإﻣﺎﻡ ﺍﻟﺸﺎﻓﻌﻲ ﺭﺣﻤﻪ ﺍﻟﻠﻪ وقد رد عليه الإﻣﺎﻡ ﺃﺣﻤﺪ ﺑﻦ ﺣﻨﺒﻞ ﺭﺣﻤﻪ ﺍﻟﻠﻪ قائلا :- ﺗﺤﺐ ﺍﻟﺼﺎﻟﺤﻴﻦ ﻭﺃﻧﺖ ﻣﻨﻬﻢ :: ﺭﻓﻴﻖ ﺍﻟﻘﻮﻡ ﻳﻠﺤﻖ ﺑﺎﻟﺠﻤﺎﻋﺔ ﻭﺗﻜﺮﻩ ﻣﻦ ﺑﻀﺎﻋﺘﻪ ﺍﻟﻤﻌﺎﺻﻲ :: ﺣﻤﺎﻙ ﺍﻟﻠﻪ ﻣﻦ ﺗﻠﻚ ﺍﻟﺒﻀﺎﻋﺔ

السلام عليكم أخي العزيز أضفت بعض البيانات الوهمية في صفحة قيوداليومية (لونتها بالأصفر) للتأكد من الأكواد وأضفت لك فورم صغير يتيح لك إختيار بعض الورقات أو الكل تفضل الملف وبه المطلوب ترحيل لأكثر من حساب2.zip

السلام عليكم أخي الكريم تفضل المرفق قاعدة المستخدمين.rar

السلام عليكم أخي العزيز أرجو البحث اولا ، فهناك الكثير من المووضوعات التي بها مثل هذا منها http://www.officena.net/ib/index.php?showtopic=31814&hl=%D8%B5%D9%88%D8%B1%D8%A9 أو http://www.officena.net/ib/index.php?showtopic=31655&hl=%2B%D8%A5%D8%AF%D8%B1%D8%A7%D8%AC+%2B%D8%B5%D9%88%D8%B1%D8%A9

نعم أخي يمكن لك ولكني سأحتاج الملف كاملا لأعمل عليه عموما ستكون نفس فكرة الحلقات For Next سنضع للكود حلقة أكبر تحتويه تتحرك بالورقة ثم تعيد الكود بالكامل للورقات واحدة تلو الأخري

السلام عليكم تفضل أخي هذا الكود وقد جربته بلامشاكل Public Sub الرواتب() ' الرواتب ماكرو ' لعمل كشوف حساب الرواتب Application.ScreenUpdating = False Sheets("الرواتب").Select d = Range("f7", Range("f7").End(xlDown)).Count a = 13: b = 19 'رقم 13 تمثل العمود m , رقم 19 تمثل العمود s For i = 1 To d Range(Cells(208, a), Cells(450, b)).ClearContents a = a + 9 b = b + 9 Next i Dim s, p, k As Integer dat1 = Sheets("الرواتب").Range("e1").Value ' شهر البداية dat2 = Sheets("الرواتب").Range("e2").Value ' شهر النهاية rng1 = Sheets("قيوداليومية").Range("m11").Value 'عدد الادخالات موجودة في هذه الخانة For p = 13 To 40 Step 9 s = 208 x = Cells(204, p).Value ' رقم الحساب المطلوب الكشف له For i = 6 To rng1 + 6 ' ستة لأن البيانات في قيود اليومية من السطر السادس x1 = Sheets("قيوداليومية").Cells(i, 3).Value date9 = Sheets("قيوداليومية").Cells(i, 5).Value ' تاريخ الحساب المتواجد في جدول القيود If x <> x1 Or dat1 > date9 Or dat2 < date9 Then GoTo out1 'اذا الحساب ليس هو أو التاريخ ليس بين التاريخ الأدنى والأعلي فلا تنفذ Dim m, c, e As Integer e = 4 c = p For m = 1 To 7 Cells(s, c).Value = Sheets("قيوداليومية").Cells(i, e).Value e = e + 1 c = c + 1 Next m s = s + 1 out1: Next i Next p Application.ScreenUpdating = True End Sub ومرفق الملف أيضا وبه الكود المعدل ترحيل لأكثر من حساب2.rar

السلام عليكم أخي ضاحي فكرة جميلة ورائعة بعد إذنك طورتها قليلا أعتقد أن هذا مايريده أخونا الحسام تفضل المرفق المعادلات المساعدة بالعمودين المخفيين H،I تغيير مع التصفية2.rar

السلام عليكم أخي العزيز حل مؤقت إلي أن أجد لها وقت أكبر تفضل المرفق New ورقة عمل.rar

السلام عليكم أخي العزيز تفضل المرفق وبه الشرح مثال الترحيل.rar

السلام عليكم أخي الكريم ، يصعب هذا بدون الملف المرفق حاول مع الكود التالي ، إن لم ينجح لابد من إرسال الملف Application.ScreenUpdating = False Sheets("الرواتب").Select Dim d, a, b, s, p, k, m, c, e As Integer d = Range("f7", Range("f7").End(xlDown)).Count For T = 1 To d a = 13: b = 19 For i = 1 To d Range(Cells(208, a), Cells(450, b)).ClearContents a = a + 9 b = b + 9 Next i dat1 = Sheets("الرواتب").Range("e1").Value ' شهر البداية dat2 = Sheets("الرواتب").Range("e2").Value ' شهر النهاية rng1 = Sheets("قيوداليومية").Range("m11").Value 'عدد الادخالات موجودة في هذه الخانة s = 208: p = 13 'x = Sheets("الرواتب").Range("m204").Value ' رقم الحساب المطلوب الكشف له x = Cells(204, p).Value ' رقم الحساب المطلوب الكشف له For i = 6 To rng1 + 6 ' ستة لأن البيانات في قيود اليومية من السطر السادس x1 = Sheets("قيوداليومية").Cells(i, 3).Value date9 = Sheets("قيوداليومية").Cells(i, 5).Value ' تاريخ الحساب المتواجد في جدول القيود If x <> x1 Then GoTo out1 If dat1 > date9 Then GoTo out1 ' اذا التاريخ أكبر من التاريخ الأعلى لا تنفذ If dat2 < date9 Then GoTo out1 ' اذا التاريخ أصغر من التاريخ الأدنى لا تنفذ e = 4: c = 13 For m = 1 To 7 Sheets("الرواتب").Cells(s, c).Value = Sheets("قيوداليومية").Cells(i, e).Value e = e + 1: c = c + 1 Next m s = s + 1 out1: Next i Next T Application.ScreenUpdating = True End Sub

السلام عليكم أخي الكريم إن شاء الله يكون المرفق هو ماتريد (بتنسيق 2003 ، 2007) مستخلصات.rar

في صفحة المحل في العمودين (دين العميل) ، (صافى المكسب) (دين العميل): ناقص معلومات مثل هل يدفع العميل دفعة من الفاتورة أم أعتبرها كلها دين عليه إحسب انت ماتريد يدويا وأنا سأفهم إن شاء الله

السلام عليكم أخي / هاني ستجد بالمرفق أنني عدلت فورم الإستدعاء (من زر "إستدعاء بيانات فاتورة من المحل") الآن يمكنك رؤية إسم العميل مع رقم الفاتورة ======================= في صفحة المحل في العمودين (دين العميل) ، (صافى المكسب) (دين العميل): ناقص معلومات مثل هل يدفع العميل دفعة من الفاتورة أم أعتبرها كلها دين عليه إحسب انت ماتريد يدويا وأنا سأفهم إن شاء الله (صافى المكسب) أيضا إحسب انت ماتريد يدويا وأنا سأفهم إن شاء الله ===================== وبعدها ليس باقيا إلا صفحة الجرد قريبا إن شاء الله صافى الكمية آخر تعديل4هانى.rar

إرسل الملف ليتم دراسته

السلام عليكم أخي العزيز من الأفضل إستحداث الشهادة وتنسيقها وكل مايلزم فيها بالإكسل فهذا سيوفر الوقت ويعطيك مساحة أوسع في الحركة والتغيير والتنسيق شاهد الرابط التالي وحاول قراءة الموضوع كله http://www.officena.net/ib/index.php?showtopic=47097&hl=