مساعدة في فاتورة ترحيل واستدعاء

**محمد الورفلي1** · يوليو 26, 2016

السلام عليكم

اريد ترحيل واستدعاء فاتورة والتعديل عليها

فاتور مع ترحيل واستدعاء.rar

**سليم حاصبيا** · يوليو 27, 2016

جرب هذا لملف

للترحيل فقط

فاتور مع ترحيل واستدعاء salim.rar

يوليو 27, 2016

جزيت خيرا

للدقة - عدم ترحيل نفس الفاتورة عند الضغط على الترحيل مرة ثانية

**محمد الورفلي1** · يوليو 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** · يوليو 27, 2016

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

يوليو 27, 2016

جزيت خير

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

**محمد الورفلي1** · يوليو 27, 2016

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

Sub مسح()

    Range("C9:F28,c7,c6").ClearContents
    

End Sub

يوليو 27, 2016

خير ان شاء الله

**محمد الورفلي1** · يوليو 27, 2016

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

**محمد الورفلي1** · يوليو 27, 2016

11 ساعات مضت, محمد الخازمي said:

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

للرفع

**محمد الورفلي1** · يوليو 27, 2016

للرفع

**سليم حاصبيا** · يوليو 28, 2016

جرب هذا الملف الجديد

فاتور مع ترحيل واستدعاء salim2.rar

**محمد الورفلي1** · يوليو 28, 2016

السلام عليكم

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

**سليم حاصبيا** · يوليو 28, 2016

56 دقائق مضت, محمد الخازمي said:

السلام عليكم

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

هذا لأنك وافقت على نسخ فاتورة ثانية من خلال الرسالةالتي ظهرت عندما ضفطت على الزر ترحيل

الحل مسح الفاتورتين (اضغط مرتين على الزر DElete ثم اعد كتابة الفاتورة)

أو امسح الفاتورتين يدوياً من خلال تحديد صفوفهما ثم right click ثم Delete row

تم تعديل يوليو 28, 2016 بواسطه سليم حاصبيا

**محمد الورفلي1** · يوليو 28, 2016

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

**سليم حاصبيا** · يوليو 28, 2016

26 دقائق مضت, محمد الخازمي said:

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

1-عليك اولا مسح الفاتورة من الارشيف من خلال الزر Delete (عدة مرات)حتى تظهر لك رسالة تفيد ان كل بيانات هذه الفاتورة قد تم مسحها

(اذ يمكن ان تكون الفاتورة مسجلة اكثر من مرة في الارشيف)

2- قم يتعديل ما تريد على الفاتورة( اضافة او حذف بعض البيانات أو تعديل التاريخ الخ....)

3-اضغط على ترحيل

مرفق ملف جديد للعمل عليه

فاتور مع ترحيل واستدعاء salim2.rar

**محمد الورفلي1** · يوليو 28, 2016

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

**سليم حاصبيا** · يوليو 28, 2016

تم معالجة الامر

Fatoura-Final 2.rar

**محمد الورفلي1** · يوليو 28, 2016

هذا هو امطلوب ياريت علي اوفيس 2003

عند تحويل الملف الي 2003 اصبح الملف معطوب

محمد لؤي · يوليو 28, 2016

حيا الله استاذ سليم - بارك الله في عمرك

ممكن استاذ درج رقم الفاتورة تلقائيا

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

جزيتم خيرا

السلام عليكم

ومبارك للأخ محمد انجاز المطلوب

تم تعديل يوليو 28, 2016 بواسطه محمد لؤي

**سليم حاصبيا** · يوليو 28, 2016

2 ساعات مضت, محمد الخازمي said:

هذا هو امطلوب ياريت علي اوفيس 2003

عند تحويل الملف الي 2003 اصبح الملف معطوب

تفضل على 2003

القائمة المنسدلة في C5 مطاطة كل رقم يدرج فيها يتم حفظه تلقائياً والمكرر لا يسجل الا مرة واحدة

Fatoura-Final 2003.rar

محمد لؤي · يوليو 29, 2016

جزيت خيرا استاذ سليم

استاذ : هذا الملف استفاد منه في عملي

ولكن محتاج عند الترحيل تحذف البيانات من الفاتورة

**محمد الورفلي1** · يوليو 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

السلام عليكم

ممكن عند الضغط على زر الترحيل تحذف البيانات تلقائيا

عند اضافة الكود لم تمسح البيانات

Range("C9:F28,c7,c6").ClearContents

تسجيل الدخول

مساعدة في فاتورة ترحيل واستدعاء

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information