طلب كود استدعاء بيانات فاتورة وتعديل عليها وترحيلها

[محمد عبدالسلام]

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

في هذا الملف يوجد فيه كود ترحيل قام باضافته الاخ الفاضل محمد صالح جزاك الله خيرا

طلب كود استدعاء بيانات فاتورة من شيت ترحيل الفواتير / الاستعلام وتعديل عليها وترحيليها

ترحيل(1).xlsm

[أحمد يوسف]

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

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

[محمد عبدالسلام]

المرجو مساعده في كود استدعاء  الفاتورة العامل عندكتابه رقم الفاتوره في الخانة G3 او اسم العامل  في الخانة  E5 يتم جلب بيانات الفاتوره العامل من شيت الترحيل الفواتير .. لقد قمت بعده محاولات في تعديل الكود ولم انجح

 

Sub استدعاء()
lr1 = Sheets("invoice").Cells(Rows.Count, 4).End(xlUp).Row
lr2 = Sheets("invoice").Cells(Rows.Count, 4).End(xlUp).Row
For n = 1 To lr1 - 9
Sheets("invoice").Range("a" & n + lr2) = Sheets("ترحيل الفواتير").Range("g3")
Sheets("invoice").Range("b" & n + lr2) = Sheets("ترحيل الفواتير").Range("e3")
Sheets("invoice").Range("c" & n + lr2) = Sheets("ترحيل الفواتير").Range("e5")
For r = 4 To 9
Sheets("ترحيل الفواتير").Cells(n + lr2, r) = Sheets("invoice").Cells(n + 9, r - 1)
Next r
Next n
Sheets("invoice").Range("e5").ClearContents
Sheets("invoice").Range("d10:d" & lr1).ClearContents
Sheets("invoice").Range("f10:f" & lr1).ClearContents
Sheets("invoice").Range("g3") = Sheets("invoice").Range("g3") + 1
Sheets("invoice").Range("e5").Select
MsgBox "استدعاء"
End Sub

ترحيل(1)(2).xlsm

[محمد عبدالسلام]

السلام عليكم اخوتي الكرام

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

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

فقدالاجزاء الاخير في صورة

ممنوع تكرار نفس المشاركات والا ستحذف جميع المشاركات تـــم الدمج

ترحيل.xlsm