أحمد مزهر

اعتقد انك ما فهمتني .. انا عندي جهاز قارئ الباركود .. وابيه يقرأ لي في ملف اكسل .. بمعنى اذا مررت القارئ على اي باركود يكتبه تلقائي في ملف الاكسل في الخليه A1 ..

ممكن شرح عليه لان اعتقد انه في شيء ناقص بالكود ...

السلام عليكم ورحمة الله .. بحثت في المنتدى لكن لم اجد كود معين لقارئ الباركود .. هل فيه اصلا كود له ام لا ؟؟ اذا كان فية فتكفون لا تحيروني كثير ابيها على هذا الموضوع ما ابي احد يقول لي راجع موضوع لاني انحست ..

ما فهمتك يا غالي تقدر تكتب لي الكود كامل ..

الله يعطيك العافية ,, بس مو ذا القصد .. انا اقصد اذا كانت الخلية B13 و C13 فارغة ما يرحل البيانات التالية .. A25 - F10 -C9 - F9 - H10

ممكن تعديل على الكود هذا .. ابي اذا كانت الخلية B13 و C13 فارغه ما يرحل اي بيانات :( ادري اني اقلقتكم لكن انحست :( Sub TransferData() Dim WS_Data As Worksheet, WS_Invoice As Worksheet Dim LR As Long Set WS_Data = ThisWorkbook.Worksheets("Data") Set WS_Invoice = ThisWorkbook.Worksheets("Invoice") LR = WS_Data.Range("B210").End(xlUp).Row + 1 With WS_Data .Cells(LR, 2).Value = WS_Invoice.Range("A25") .Cells(LR, 3).Value = WS_Invoice.Range("B13") .Cells(LR, 4).Value = WS_Invoice.Range("C13") .Cells(LR, 5).Value = WS_Invoice.Range("F10") .Cells(LR, 6).Value = WS_Invoice.Range("C9") .Cells(LR, 7).Value = WS_Invoice.Range("F9") .Cells(LR, 8).Value = WS_Invoice.Range("H10") End With End Sub

الف شكر لك اخوي والله يجزاك الف خير

حاولت اعدل بس ما عرفت .. عدلت في الفاتورة خليت فيها 6 item وشيت data برضو عدلت عليه ياليت تشوفه وتعدل لي الكود اذا سمحت DATA1-12.rar

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

اسعدك الله .. النور نوركم الله يخليك وان شاء الله اكون متواصل معاكم .. في المرفقات ملف اكسل الخلايا اللي باللون الاصفر هي اللي ابيها تترحل على الشيت الثاني .. DATA.rar

السلام عليكم ورحمة الله وبركاته .. اعتقد العنوان واضح .. محتاج كود ترحيل خلايا محددة من شيت الى شيت اخر .. بمعني مثلا :: شيت الفاتورة احتاج الخلايا التالية :: (A1,B1,C1,A3,B,3,C3) وترحيلها الى شيت الجدول في الصف ( A1:F1) ,, حاولت الين انفجر راسي ,, هل ممكن مساعدة