الموسطي قام بنشر مارس 7, 2013 مشاركة قام بنشر مارس 7, 2013 مرفق ملف به ثلاث أوراق , الأولي فاتورة مبيعات والثانية مردودات والثالثة يومية عامة والمطلوب كود ترحيل بيانات فاتورة المبيعات والمردودات إلى اليومية العامة بحسب التاريخ وعند الترحيل يتم مسح بيانات الفاتورة والمردود لتنتقل إلى اليومية العامة التي سيعتمد عليها في استخراج بيانات المبيعات والمردودات وحركة الأصناف ولكم جزيل الشكر Booننk1.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 8, 2013 مشاركة قام بنشر مارس 8, 2013 Sub To_yawmiyah_aamah() Dim FS As Worksheet, TS As Worksheet Dim R, TR Set FS = Sheets(ActiveSheet.Name) Set TS = Sheets("اليومية العامة") TR = TS.Range("Z4") For R = 9 To 25 If FS.Range("AA" & R) = False Then GoTo 9 FS.Range("AB" & R & ":AL" & R).Copy TR = TR + 1 TS.Range("E" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 9 Next R Application.CutCopyMode = False FS.Range("I9:L25").ClearContents MsgBox "تم حفظ اليومية بنجاح ---", , "الحمد لله" End Sub 1 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 8, 2013 مشاركة قام بنشر مارس 8, 2013 السلام عليكم و رحمة الله وبركاته اخي الموسطي هو كود واحد يقوم بعمليتين الترحيل بعد عمل الجداول التي تطابق اليومية ثم تتم عملية نسخ ولصق من هذه الجداول الى اليومية مع التحية Booننk1.rar Booننk1.rar رابط هذا التعليق شارك More sharing options...
hafez81 قام بنشر مارس 8, 2013 مشاركة قام بنشر مارس 8, 2013 الله يعطيك العافية اخي رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر مارس 9, 2013 الكاتب مشاركة قام بنشر مارس 9, 2013 أخي بداية جزاك الله خيرا ، لكن عندما حاولت إضافة فاتورة مردودات في وقت سابق للعمليات التى تم ترحيلها لم يتم إدراجها قبل العمليات المرحلة السابقة حتى تكون العمليات في اليومية العامة تتم بشكل تصاعدي مباشرة تبدأ بالأحداث الأقدم ثم الأحدث فأرجو منك أخي وشكرا على سرعة الاستجابة رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 9, 2013 مشاركة قام بنشر مارس 9, 2013 أخي بداية جزاك الله خيرا ، لكن عندما حاولت إضافة فاتورة مردودات في وقت سابق للعمليات التى تم ترحيلها لم يتم إدراجها قبل العمليات المرحلة السابقة حتى تكون العمليات في اليومية العامة تتم بشكل تصاعدي مباشرة تبدأ بالأحداث الأقدم ثم الأحدث فأرجو منك أخي وشكرا على سرعة الاستجابة وجزاك خيرا لم افهم المقصود او المشكلة رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 9, 2013 مشاركة قام بنشر مارس 9, 2013 الله يعطيك العافية اخي الله يعافيك رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر مارس 10, 2013 الكاتب مشاركة قام بنشر مارس 10, 2013 أخي هناك مشكلتان: الأولى: أريد أن يتم عند الترحيل إلى اليومية العامة أن يتم ترتيب العمليات بالتواريخ بشكل تصاعدي حتى لو تم ترحيل فاتورة جديدة بتاريخ قديم يتم ترحيلها في اليومية قبل التواريخ الجديدة المرحلة ، مثال عندي فاتورة مبيعات أو مردودات بتاريخ 12/02/2013 وتم ترحيلها ثم تبين لي أن أدخل فاتورة بعدها لكن بتاريخ قديم ولنفرض 31/01/2013 فأريد أنه عند الترحيل إلى اليومية العامة يتم إدراج الفاتورة الأخيرة قبل الفاتورة السابقة في اليومية لأنها أقدم منها في التاريخ. الثانية: أريد أن يتم الترحيل بدأ بالصف 6 وليس 9 ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 10, 2013 مشاركة قام بنشر مارس 10, 2013 السلام عليكم و رحمة الله وبركاته كل هذا ممكن باضافة كود تحديث للورقة المرحل اليها يقوم بالتالي فرز حسب التاريخ و ممكن اضافة نسخ التنسيقات رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر مارس 11, 2013 الكاتب مشاركة قام بنشر مارس 11, 2013 ياريت يتم تطبيقه في الملف ويبدأ الترحيل في اليومية العامة من الصف رقم 6 ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر مارس 11, 2013 الكاتب مشاركة قام بنشر مارس 11, 2013 ياريت يا أخي يتم تطبيقه على الملف المرفق حتى أعرف كيفية استخدامه رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 ياريت يا أخي يتم تطبيقه على الملف المرفق حتى أعرف كيفية استخدامه لا ارى ملفا اخي رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 الملف السابق في أول الصفحة الذي تم العمل المبدئي عليه رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 إليك الملف Booننk11.rar رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 أرجو التطبيق على الملف رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 أرجو التطبيق على الملف رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر مارس 12, 2013 مشاركة قام بنشر مارس 12, 2013 السلام عليكم بعد اذن استاذ احمد جرب هذا تحياتي Booننk11+++.rar رابط هذا التعليق شارك More sharing options...
الموسطي قام بنشر مارس 13, 2013 الكاتب مشاركة قام بنشر مارس 13, 2013 أشكرك كثيرا على المداخلة وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 13, 2013 مشاركة قام بنشر مارس 13, 2013 السلام عليكم و رحمة الله وبركاته اشكر اخي احمد عبدالناصر على مساهمته جزاه الله كل خير و اعتذر على التأخير ولكن للضرورة احكام Sub rfrsh() Dim FS As Worksheet Dim TR Set FS = Sheets(ActiveSheet.Name) TR = FS.Range("Z4") + 9 'اضافة تنسيقات FS.Range("E7:O7").Copy FS.Range("E7:O" & TR).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False 'فرز FS.Range("E7:P" & TR).Sort Key1:=Range("E7"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 13, 2013 مشاركة قام بنشر مارس 13, 2013 Booننk11.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان