محمد الورفلي1 قام بنشر يوليو 26, 2016 قام بنشر يوليو 26, 2016 السلام عليكم اريد ترحيل واستدعاء فاتورة والتعديل عليها فاتور مع ترحيل واستدعاء.rar
سليم حاصبيا قام بنشر يوليو 27, 2016 قام بنشر يوليو 27, 2016 جرب هذا لملف للترحيل فقط فاتور مع ترحيل واستدعاء salim.rar 1
ابو عبدالرحمن البغدادي قام بنشر يوليو 27, 2016 قام بنشر يوليو 27, 2016 جزيت خيرا للدقة - عدم ترحيل نفس الفاتورة عند الضغط على الترحيل مرة ثانية
محمد الورفلي1 قام بنشر يوليو 27, 2016 الكاتب قام بنشر يوليو 27, 2016 السلام عليكم شكراً استاذ سليم هل يمكن عدم ترحيل نفس الفاتور-------- حيث ان الترحيل يتم ترحل نفس الفاتورة برقم فاتورة جديد ياريت يكون مسج بعد اذنك يفيد ان الفاتور موجودة من قبل فيقوم استبدال الفاتور السابقة ==== حيث من الممكن يكون هناك خطاء معين في الفاتور فيسمح لنا الترحيل مره اخرى بالاستبدال وليس التكرار اعتذر على الاطالة في الشرح
سليم حاصبيا قام بنشر يوليو 27, 2016 قام بنشر يوليو 27, 2016 يمكن استبدال الكود بهذا الذي يجعلك تختار في جال موجود اسم او تاريخ مشترك بين نعم او لا Sub Tarhil_salim() 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("c:c"), S_Sh.Range("c7")) Date_count = Application.CountIf(T_Sh.Range("b:b"), S_Sh.Range("c6")) If Name_count + Date_count >= 2 Then Message = MsgBox("هذه الفاتورة يمكن ان تكون مكررة! تأكد من ذلك" & Chr(10) & "اذا أردت الاستمرار إضغط نعم", 68) If Message <> 6 Then Exit Sub End If My_Max = Application.Max(S_Sh.Range("b:b")) 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, 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 End With End Sub 1
محمد الورفلي1 قام بنشر يوليو 27, 2016 الكاتب قام بنشر يوليو 27, 2016 استاذ سليم هل يمكن استبدال الفاتورة المرحلة اذا كانت موجود بالقديمة وبالذات ان وجد خطاء فيها --- بمعنى تغيير البيانات فقط والمرجع هنا هو (( رقم الفاتورة )) وعدم تكرارها واعطاهاء رقم جديد
ابو عبدالرحمن البغدادي قام بنشر يوليو 27, 2016 قام بنشر يوليو 27, 2016 جزيت خير ممكن مسح البيانات بعد الرحيل من الفاتورة
محمد الورفلي1 قام بنشر يوليو 27, 2016 الكاتب قام بنشر يوليو 27, 2016 السلام عليكم الاستاذ ابو عبد الرحمن هذا كود لمسح الفاتورة ولكن بعد اذنك طلبي لم يكتمل ارجو ان تقوم بفتح موضوع جديد حتى لا نشتت الافكار والخروج بحل Sub مسح() Range("C9:F28,c7,c6").ClearContents End Sub
محمد الورفلي1 قام بنشر يوليو 27, 2016 الكاتب قام بنشر يوليو 27, 2016 11 ساعات مضت, محمد الخازمي said: استاذ سليم هل يمكن استبدال الفاتورة المرحلة اذا كانت موجود بالقديمة وبالذات ان وجد خطاء فيها --- بمعنى تغيير البيانات فقط والمرجع هنا هو (( رقم الفاتورة )) وعدم تكرارها واعطاهاء رقم جديد للرفع
سليم حاصبيا قام بنشر يوليو 28, 2016 قام بنشر يوليو 28, 2016 جرب هذا الملف الجديد فاتور مع ترحيل واستدعاء salim2.rar
محمد الورفلي1 قام بنشر يوليو 28, 2016 الكاتب قام بنشر يوليو 28, 2016 السلام عليكم استاذ سليم لازال يوجد ترحيل لنفس الفاتورة ونفس البيانات من نسختين ارجو ا ان يتم تفادي هذه المشكلة والترحيل يكون حتى مرة ثانية بتغيير الفاتورة التي تحمل نفس الرقم ولا يتم تكرار ها بمعنى آخر استبدالها انظر الصورة
سليم حاصبيا قام بنشر يوليو 28, 2016 قام بنشر يوليو 28, 2016 (معدل) 56 دقائق مضت, محمد الخازمي said: السلام عليكم استاذ سليم لازال يوجد ترحيل لنفس الفاتورة ونفس البيانات من نسختين ارجو ا ان يتم تفادي هذه المشكلة والترحيل يكون حتى مرة ثانية بتغيير الفاتورة التي تحمل نفس الرقم ولا يتم تكرار ها بمعنى آخر استبدالها انظر الصورة هذا لأنك وافقت على نسخ فاتورة ثانية من خلال الرسالةالتي ظهرت عندما ضفطت على الزر ترحيل الحل مسح الفاتورتين (اضغط مرتين على الزر DElete ثم اعد كتابة الفاتورة) أو امسح الفاتورتين يدوياً من خلال تحديد صفوفهما ثم right click ثم Delete row تم تعديل يوليو 28, 2016 بواسطه سليم حاصبيا
محمد الورفلي1 قام بنشر يوليو 28, 2016 الكاتب قام بنشر يوليو 28, 2016 هل ممكن الرسالة عند الظغط علي نعم تقوم تغيير البيانات الجديدة بدل من البيانات القديمة حيث من الممكن بعد ترحيل الفاتورة والشروع في الطابعة يكون هناك خطاء او نريد بيع صنف اخر ونريد اظافته الي نفس الفاتورة .هل يجوز ذلك ام لا......وشكر استاذ سليم
سليم حاصبيا قام بنشر يوليو 28, 2016 قام بنشر يوليو 28, 2016 26 دقائق مضت, محمد الخازمي said: هل ممكن الرسالة عند الظغط علي نعم تقوم تغيير البيانات الجديدة بدل من البيانات القديمة حيث من الممكن بعد ترحيل الفاتورة والشروع في الطابعة يكون هناك خطاء او نريد بيع صنف اخر ونريد اظافته الي نفس الفاتورة .هل يجوز ذلك ام لا......وشكر استاذ سليم 1-عليك اولا مسح الفاتورة من الارشيف من خلال الزر Delete (عدة مرات)حتى تظهر لك رسالة تفيد ان كل بيانات هذه الفاتورة قد تم مسحها (اذ يمكن ان تكون الفاتورة مسجلة اكثر من مرة في الارشيف) 2- قم يتعديل ما تريد على الفاتورة( اضافة او حذف بعض البيانات أو تعديل التاريخ الخ....) 3-اضغط على ترحيل مرفق ملف جديد للعمل عليه فاتور مع ترحيل واستدعاء salim2.rar
محمد الورفلي1 قام بنشر يوليو 28, 2016 الكاتب قام بنشر يوليو 28, 2016 بالنسب للترحيل تمام ان شاء الله الان استاذ سليم هل ممكن استدعاء اي فاتورة عن طريق رقمها بوضع رقمها في خلية c5
محمد الورفلي1 قام بنشر يوليو 28, 2016 الكاتب قام بنشر يوليو 28, 2016 هذا هو امطلوب ياريت علي اوفيس 2003 عند تحويل الملف الي 2003 اصبح الملف معطوب
محمد لؤي قام بنشر يوليو 28, 2016 قام بنشر يوليو 28, 2016 (معدل) حيا الله استاذ سليم - بارك الله في عمرك ممكن استاذ درج رقم الفاتورة تلقائيا وعند ترحيل الفاتورة مسح البيانات من الفاتورة جزيتم خيرا السلام عليكم ومبارك للأخ محمد انجاز المطلوب تم تعديل يوليو 28, 2016 بواسطه محمد لؤي 1
سليم حاصبيا قام بنشر يوليو 28, 2016 قام بنشر يوليو 28, 2016 2 ساعات مضت, محمد الخازمي said: هذا هو امطلوب ياريت علي اوفيس 2003 عند تحويل الملف الي 2003 اصبح الملف معطوب تفضل على 2003 القائمة المنسدلة في C5 مطاطة كل رقم يدرج فيها يتم حفظه تلقائياً والمكرر لا يسجل الا مرة واحدة Fatoura-Final 2003.rar 2
محمد لؤي قام بنشر يوليو 29, 2016 قام بنشر يوليو 29, 2016 جزيت خيرا استاذ سليم استاذ : هذا الملف استفاد منه في عملي ولكن محتاج عند الترحيل تحذف البيانات من الفاتورة
محمد الورفلي1 قام بنشر يوليو 29, 2016 الكاتب قام بنشر يوليو 29, 2016 (معدل) 4 ساعات مضت, محمد لؤي said: جزيت خيرا استاذ سليم استاذ : هذا الملف استفاد منه في عملي ولكن محتاج عند الترحيل تحذف البيانات من الفاتورة اضف هذ السطر في نهاية كود الترحيل 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 تم تعديل يوليو 29, 2016 بواسطه محمد الخازمي
محمد لؤي قام بنشر يوليو 29, 2016 قام بنشر يوليو 29, 2016 السلام عليكم ممكن عند الضغط على زر الترحيل تحذف البيانات تلقائيا عند اضافة الكود لم تمسح البيانات Range("C9:F28,c7,c6").ClearContents
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.