محمد الورفلي1

للرفع

السلام عليكم اريد كود استبدال فاتورة مكان فاتورة عند التعديل على الفاتورة بعد استدعاءها ولا تنقل الى آ خر صف فا الاستبدال يكون في نفس المكان السابق حتى ولو كان هناك اضافة لصنف جديد بعد التعديل فاتورة ترحيل واستدعاء وتعديل بدون فورم.rar

علي العموم شكرا ً لمجهودك استاذ سليم لقد ارهقتك معي سامحني

للرفع

السلام عليكم الملف ممتاز جداً الان اريد ان يكون عند الترحيل يكون في الخلية c5 رقم فاتورة جديد فا جعلت المعادلة التالية ..... max في الخلية k1 واو ضعت زر موجود به ماكرو يفيد ان c5= k1 واصبح الامر ممتاز ولكن واجهتني مشكلة وهي ..... ان كان آخر فاتورة تم ترحيلها على سبيل المثال هي 45 فا التي بعدها بالطبع 46 .... المشكلة عند استدعاء فاتورة مثلاً قد تم بيعها قبل يومين وعند مراجعتها من قبل الزبون وجد بها خطاء مثلاً هي الفاتورة رقم 40 فا يتم الاستدعاء طبعاً وتعديله وترحيلها وهنا اصبح في صفحة الارشيف في العمود a آخر رقم للفواتير وهو 40 المعدلة وعند ضغط على زر ادراج فاتورة جديدة مع معادلة MAX تكون الفاتورة التالية هي 21 وهنا يحصل الخطاء لان رقم الفاتورة الصحيح هو 46 ......... اسف على الاطالة =MAX(الارشيف!A2:A9997)+1 Sub ماكرو() [c5] = [k1] End Sub

بعد التجربة استاذ سليم " آخر شيت ممتاز جداً ولكن يوجد شى واحد وهو (( عند استداعاء آخر فاتورة تم ترحيلة يحصل خطاء والخطاء هو عدم استدعاء قيم المدفوع وقيم الخصم ..... وللعلم هذا الخطاء يحصل مع آخر فاتورة تم ترحلها فقط

السلام عليكم ساقوم بالتجربة وأن شاء الله اوافيك بالنتائج.......

في نفس الملف الذي ارفقتة ولم اجربة الا بعد وقت طويل وجدت ان الفاتورة رقم 4 عند استدعاءها تستدعي بيانات الفاتورة رقم 4 وكذاك بيانات الفاتورة رقم 5

للرفع

السلام عليكم استاذ سليم اولاً اسف على الازعاج ولكن في نفس الملف الذي ارفقتة ولم اجربة الا بعد وقت طويل وجدت ان الفاتورة رقم 4 عند استدعاءها تستدعي بيانات الفاتورة رقم 4 وكذاك بيانات الفاتورة رقم 5

السلام عليكم شكراً استاذ سليم ممتاز

السلام عليكم استاذ سليم توجد مشكلة آخرى عند استدعاء فاتورة مكونة من ثلاث اصناف او ثلاث صفوف فايتم استدعاء صنفين وترك صنف وهذة الفواتير ممثلة في فاتورة 12 و 14 و 20 و30 ملاحظة عملية الاستدعاء اذا كن صنف او اكثر من ثلاث اصناف فا الاستدعاء ممتاز Fatoura-Final-1 2003.rar

للرفع

السلام عليكم استاذ سليم عند الشروع في التجربة الكاملة للفاتورة وادراج فواتير وصولاً الي الفاتورة رقم ( 4 ) و فاتورة رقم ( 5 ) حدثت مشكلة في استدعاء الفاتورة رقم ( 4 ) حيث عند الاستدعاء يتم استدعاء بيانات الفاتورة رقم 4 ومعها بيانات الفاتورة رقم 5 وعند استدعاء الفاتورة رقم 5 تظهر رسالة خطاء Fatoura-Final 2003.rar

لقد رجرب الكود وهو يمسح جميع البيانات اكد مرة آخر وتأكد من وضع الكود في Sub Tarhil_salim1()

اضف هذ السطر في نهاية كود الترحيل Range("C9:F28,c7,c6").ClearContents ليصبح Sub Tarhil_salim1() Dim lrb, lrg, My_Max, Name_count, Date_count As Integer Dim S_Sh As Worksheet Dim T_Sh As Worksheet Set S_Sh = Sheets("الفاتورة"): Set T_Sh = Sheets("الارشيف") Name_count = Application.CountIf(T_Sh.Range("A:A"), S_Sh.Range("c5")) 'Date_count = Application.CountIf(T_Sh.Range("b:b"), S_Sh.Range("c6")) If Name_count >= 1 Then Message = MsgBox("هذه الفاتورة يمكن ان تكون مكررة! تأكد من ذلك" & Chr(10) & "اذا أردت الاستمرار إضغط نعم", 68) If Message <> 6 Then Exit Sub End If My_Max = Application.Max(S_Sh.Range("b9:b28")) lrg = T_Sh.Cells(Rows.Count, "G").End(3).Row If lrg = 1 Then lrg = 2 If lrg = 2 Then S_Sh.Range("c9" & ":f" & 9 + My_Max - 1).Copy Destination:=T_Sh.Range("g" & lrg) Else S_Sh.Range("c9" & ":f" & 9 + My_Max - 1).Copy Destination:=T_Sh.Range("g" & lrg + 2) End If T_Sh.Range("H:j").Value = T_Sh.Range("H:j").Value lrg = T_Sh.Cells(Rows.Count, "G").End(3).Row lrb = lrg - My_Max + 1 With T_Sh .Cells(lrb, 1) = S_Sh.Range("c5").Value .Cells(lrb, 2) = S_Sh.Range("c6").Value .Cells(lrb, 3) = S_Sh.Range("c7").Value .Cells(lrb, 4) = S_Sh.Range("c38").Value .Cells(lrb, 5) = S_Sh.Range("c39").Value .Cells(lrb, 6) = S_Sh.Range("c36").Value Range("C9:F28,c7,c6").ClearContents End With End Sub

هذا هو امطلوب ياريت علي اوفيس 2003 عند تحويل الملف الي 2003 اصبح الملف معطوب

بالنسب للترحيل تمام ان شاء الله الان استاذ سليم هل ممكن استدعاء اي فاتورة عن طريق رقمها بوضع رقمها في خلية c5

هل ممكن الرسالة عند الظغط علي نعم تقوم تغيير البيانات الجديدة بدل من البيانات القديمة حيث من الممكن بعد ترحيل الفاتورة والشروع في الطابعة يكون هناك خطاء او نريد بيع صنف اخر ونريد اظافته الي نفس الفاتورة .هل يجوز ذلك ام لا......وشكر استاذ سليم

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

للرفع

للرفع

شكراً لك لتفهمك

السلام عليكم الاستاذ ابو عبد الرحمن هذا كود لمسح الفاتورة ولكن بعد اذنك طلبي لم يكتمل ارجو ان تقوم بفتح موضوع جديد حتى لا نشتت الافكار والخروج بحل Sub مسح() Range("C9:F28,c7,c6").ClearContents End Sub

استاذ سليم هل يمكن استبدال الفاتورة المرحلة اذا كانت موجود بالقديمة وبالذات ان وجد خطاء فيها --- بمعنى تغيير البيانات فقط والمرجع هنا هو (( رقم الفاتورة )) وعدم تكرارها واعطاهاء رقم جديد