أحمد مزهر قام بنشر نوفمبر 21, 2014 مشاركة قام بنشر نوفمبر 21, 2014 السلام عليكم ورحمة الله وبركاته .. اعتقد العنوان واضح .. محتاج كود ترحيل خلايا محددة من شيت الى شيت اخر .. بمعني مثلا :: شيت الفاتورة احتاج الخلايا التالية :: (A1,B1,C1,A3,B,3,C3) وترحيلها الى شيت الجدول في الصف ( A1:F1) ,, حاولت الين انفجر راسي ,, هل ممكن مساعدة رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 21, 2014 مشاركة قام بنشر نوفمبر 21, 2014 الأخ الكريم . نورت منتدانا يسعدني أنا أكون أول من يهنئك بأول مشاركة لك في المنتدى .. ونتمنى أن تكون دائم التواصل .. شعارنا في المنتدى فيد واستفيد .. وصدقني ستسفيد أكثر عندما تعطي وليس عندما تأخذ عموما بالنسبة لطلبك ارفق ملفك للعمل عليه وإن شاء الله تجد العون بعون الله وفضله وتوفيقه رابط هذا التعليق شارك More sharing options...
أحمد مزهر قام بنشر نوفمبر 21, 2014 الكاتب مشاركة قام بنشر نوفمبر 21, 2014 اسعدك الله .. النور نوركم الله يخليك وان شاء الله اكون متواصل معاكم .. في المرفقات ملف اكسل الخلايا اللي باللون الاصفر هي اللي ابيها تترحل على الشيت الثاني .. DATA.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 22, 2014 مشاركة قام بنشر نوفمبر 22, 2014 تفضل أخي الحبيب جرب الملف التالي My Data.rar 1 رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 22, 2014 مشاركة قام بنشر نوفمبر 22, 2014 السلام عليكم ورحمة الله وبركاته بعد إذن اخى الفاضل أ.ياسر، تم تعديل كود الترحيل الخاص بأستاذنا العلامة م.طارق محمود (جزاه الله كل خير) ليتناسب مع طلبك وليكن اكثر ديناميكية فتستطيع كتابة اكثر من ITEM في الفاتورة وليس صف واحد خالص تحياتى DATA1.rar رابط هذا التعليق شارك More sharing options...
أحمد مزهر قام بنشر نوفمبر 22, 2014 الكاتب مشاركة قام بنشر نوفمبر 22, 2014 الله يعطيكم العافية جميعاً الصراحة ما قصرتوا والله يكتبها لكم في ميزان حسناتكم بس عندي مشكلة لما اكتب اكثر من item البيانات الثانية ما تظهر مثلا تاريخ التسليم لل item الثاني والثالث .. فهل ممكن انه يكون كل المعلومات موجودة لكل item .. حاولت اعدل على الكود وجبت العيد رابط هذا التعليق شارك More sharing options...
أحمد مزهر قام بنشر نوفمبر 22, 2014 الكاتب مشاركة قام بنشر نوفمبر 22, 2014 (معدل) السلام عليكم ورحمة الله وبركاته بعد إذن اخى الفاضل أ.ياسر، تم تعديل كود الترحيل الخاص بأستاذنا العلامة م.طارق محمود (جزاه الله كل خير) ليتناسب مع طلبك وليكن اكثر ديناميكية فتستطيع كتابة اكثر من ITEM في الفاتورة وليس صف واحد خالص تحياتى حاولت اعدل بس ما عرفت .. عدلت في الفاتورة خليت فيها 6 item وشيت data برضو عدلت عليه ياليت تشوفه وتعدل لي الكود اذا سمحت DATA1-12.rar تم تعديل نوفمبر 22, 2014 بواسطه Mzmz1 رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 22, 2014 مشاركة قام بنشر نوفمبر 22, 2014 حاولت اعدل بس ما عرفت .. عدلت في الفاتورة خليت فيها 6 item وشيت data برضو عدلت عليه ياليت تشوفه وتعدل لي الكود اذا سمحت تفضل اخى الكريم تم التعديل ومرفق الملف بس بالله عليك بلاش قصة دمج الخلايا دى بتعمل مشاكل كثير خالص تحياتى DATA1-12.rar رابط هذا التعليق شارك More sharing options...
أحمد مزهر قام بنشر نوفمبر 22, 2014 الكاتب مشاركة قام بنشر نوفمبر 22, 2014 الف شكر لك اخوي والله يجزاك الف خير رابط هذا التعليق شارك More sharing options...
amjadsoft قام بنشر نوفمبر 22, 2014 مشاركة قام بنشر نوفمبر 22, 2014 السلام عليكم اخواني الاعزاء ساعدوني بعد ما رحلت البيانات من شيت الى اخر اريد استرجع البيانات واعدل عليها ثم ارحلها بنفس مكانها السابق ما هي الاوامر المستخدمة الي عنده معلومة لايبخل علينا تحياتي للجميع. رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 22, 2014 مشاركة قام بنشر نوفمبر 22, 2014 (معدل) السلام عليكم اخواني الاعزاء ساعدوني بعد ما رحلت البيانات من شيت الى اخر اريد استرجع البيانات واعدل عليها ثم ارحلها بنفس مكانها السابق ما هي الاوامر المستخدمة الي عنده معلومة لايبخل علينا تحياتي للجميع. أخى الفاضل مرفق ملف به نموذج فاتورة -- ترحيل واستدعاء -- لأستاذنا الفاضل م.طارق محمود تستطيع الاستعانة به وان كنا نفضل عند التعديل في بيانات الفاتورة ان يتم التعديل وترحل لتكون اخر فاتورة حتى تتمكن من اضافة بيانات اخرى بها اذا لم تستطع تطبيق الاكواد الموجودة بالملف المرفق على ملفك ... فيرجى ارفاق ملفك وتحديد طلباتك للعمل عليه تحياتى invoice.rar تم تعديل نوفمبر 22, 2014 بواسطه ibn_egypt رابط هذا التعليق شارك More sharing options...
amjadsoft قام بنشر نوفمبر 23, 2014 مشاركة قام بنشر نوفمبر 23, 2014 سلام عليكم ibn_egypt اخي العزيز اشكرك على الملف الذي رفعتة لكن لم استطع دمجة مع ما اريد سوف ارفع لك ملفي الخاص حتى ترى كيف عملتة وماذا اريد تحياتي رابط هذا التعليق شارك More sharing options...
amjadsoft قام بنشر نوفمبر 23, 2014 مشاركة قام بنشر نوفمبر 23, 2014 وهذا هو الملف https://mega.co.nz/#!w5wyBTzR!e4AxWxQn2x5wT-00QQMvhHzBJ_SgscW6MNKZjZ2I4so رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 23, 2014 مشاركة قام بنشر نوفمبر 23, 2014 أخى الفاضل أ.أمجد مرفق ملف به طلبك الاول الا وهو الترحيل الى شيت المبيعات، اما بخصوص الطلب الثانى فهو غير واضح امامى كيف تريد الترحيل الى شيت التقرير وهذا الشيت ليس به اى ارقام فواتير او اسماء مندوبين وغيرها .....!!!!!!! ماذا تريد ان ترحل اليه تحياتى amjadsoft.rar رابط هذا التعليق شارك More sharing options...
أحمد مزهر قام بنشر نوفمبر 30, 2014 الكاتب مشاركة قام بنشر نوفمبر 30, 2014 (معدل) ممكن تعديل على الكود هذا .. ابي اذا كانت الخلية 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 تم تعديل نوفمبر 30, 2014 بواسطه Mzmz1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 30, 2014 مشاركة قام بنشر نوفمبر 30, 2014 (معدل) تفضل أخي الغالي 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 If IsEmpty(Range("B13")) Or IsEmpty(Range("C13")) Then MsgBox "من فضلك أكمل محتويات الفاتورة !!": Exit Sub Else 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 If End Sub تم تعديل نوفمبر 30, 2014 بواسطه YasserKhalil رابط هذا التعليق شارك More sharing options...
أحمد مزهر قام بنشر نوفمبر 30, 2014 الكاتب مشاركة قام بنشر نوفمبر 30, 2014 الله يعطيك العافية ,, بس مو ذا القصد .. انا اقصد اذا كانت الخلية B13 و C13 فارغة ما يرحل البيانات التالية .. A25 - F10 -C9 - F9 - H10 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 30, 2014 مشاركة قام بنشر نوفمبر 30, 2014 (معدل) قم باستبدال هذا السطر > إذا أردت أن ينطبق الشرطين معا استخدم كلمة And ما بين الشرطين ، أما لو أردت أحد الشرطين فاترك Or كما هي بالكود MsgBox "من فضلك أكمل محتويات الفاتورة !!": Exit Sub With WS_Data .Cells(LR, 2).Value = "" .Cells(LR, 3).Value = WS_Invoice.Range("B13") .Cells(LR, 4).Value = WS_Invoice.Range("C13") .Cells(LR, 5).Value = "" .Cells(LR, 6).Value = "" .Cells(LR, 7).Value = "" .Cells(LR, 8).Value = "" End With تم تعديل نوفمبر 30, 2014 بواسطه YasserKhalil رابط هذا التعليق شارك More sharing options...
أحمد مزهر قام بنشر نوفمبر 30, 2014 الكاتب مشاركة قام بنشر نوفمبر 30, 2014 ما فهمتك يا غالي تقدر تكتب لي الكود كامل .. رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 30, 2014 مشاركة قام بنشر نوفمبر 30, 2014 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 If IsEmpty(Range("B13")) Or IsEmpty(Range("C13")) Then With WS_Data .Cells(LR, 2).Value = "" .Cells(LR, 3).Value = WS_Invoice.Range("B13") .Cells(LR, 4).Value = WS_Invoice.Range("C13") .Cells(LR, 5).Value = "" .Cells(LR, 6).Value = "" .Cells(LR, 7).Value = "" .Cells(LR, 8).Value = "" End With Exit Sub Else 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 If End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.