عملية ترحيل بيانات مبيعات ومردودات

[الموسطي]

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

Booننk1.rar

[احمدزمان]

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

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

 

اخي الموسطي

 

هو كود واحد يقوم بعمليتين الترحيل

بعد عمل الجداول التي تطابق اليومية

ثم تتم عملية نسخ ولصق من هذه الجداول الى اليومية

 

مع التحية

 

Booننk1.rar

Booننk1.rar

[hafez81]

الله يعطيك العافية اخي

[الموسطي]

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

[احمدزمان]

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

وجزاك خيرا

 

لم افهم المقصود او المشكلة

[احمدزمان]

الله يعطيك العافية اخي

الله يعافيك

[الموسطي]

أخي هناك مشكلتان:

الأولى: أريد أن يتم عند الترحيل إلى اليومية العامة أن يتم ترتيب العمليات بالتواريخ بشكل تصاعدي حتى لو تم ترحيل فاتورة جديدة بتاريخ قديم يتم ترحيلها في اليومية قبل التواريخ الجديدة المرحلة ، مثال عندي فاتورة مبيعات أو مردودات بتاريخ 12/02/2013 وتم ترحيلها ثم تبين لي أن أدخل فاتورة بعدها لكن بتاريخ قديم ولنفرض 31/01/2013 فأريد أنه عند الترحيل إلى اليومية العامة يتم إدراج الفاتورة الأخيرة قبل الفاتورة السابقة في اليومية لأنها أقدم منها في التاريخ.

الثانية: أريد أن يتم الترحيل بدأ بالصف 6 وليس 9 

ولكم جزيل الشكر

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

 

كل هذا ممكن باضافة كود تحديث للورقة المرحل اليها

يقوم بالتالي

فرز حسب التاريخ
و ممكن اضافة نسخ التنسيقات

[الموسطي]

ياريت يتم تطبيقه في الملف ويبدأ الترحيل في اليومية العامة من الصف رقم 6 ولكم جزيل الشكر

[الموسطي]

ياريت يا أخي يتم تطبيقه على الملف المرفق حتى أعرف كيفية استخدامه

[احمدزمان]

ياريت يا أخي يتم تطبيقه على الملف المرفق حتى أعرف كيفية استخدامه

لا ارى ملفا اخي

[الموسطي]

الملف السابق في أول الصفحة الذي تم العمل المبدئي عليه

[الموسطي]

إليك الملف

Booننk11.rar

[الموسطي]

أرجو التطبيق على الملف

[الموسطي]

أرجو التطبيق على الملف

[احمد عبد الناصر]

السلام عليكم

 

بعد اذن استاذ احمد 

 

 

جرب هذا 

 

تحياتي

Booننk11+++.rar

[الموسطي]

أشكرك كثيرا على المداخلة وجزاك الله خيرا

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

 

اشكر اخي احمد عبدالناصر على مساهمته

جزاه الله كل خير

 

و اعتذر على التأخير

ولكن للضرورة احكام

 

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

 

[احمدزمان]

Booننk11.rar