عبدالله باقشير

السلام عليكم من كثر تكرار السؤال على الترحيلات وكيفية التعديل ومن اجل ان توصل الفكرة الى من يريدون ذلك تفضلوا المرفق وهو ملف طلب لاحدهم في الموضوع http://www.officena.net/ib/index.php?showt...mp;#entry130870 جعلته هنا للفائدة _________________.rar

السلام عليكم تفضل المرفق PLS11.rar

ارسل ملف لنقوم بمعاينة مشكلتك بطريقة مباشرة

Sub ماكرو1() ورقة1.Range("B5:H40").ClearContents End Sub

الاخ العزيز حدد الاعمدة التي تريد ان تمسحها

السلام عليكم الاخ /عمودي ----حفظه الله انت اخي تستاهل ان تكون في مجموعة غير المجموعة الحالية (الاعضاء) وسيتحقق هذا قريبا إن شاء الله

السلام عليكم غير في الكود :هنا من: For T = 5 To 29 الى: For T = 5 To 10000 وبالنسبة للاعمدة غير التسلسل من 1 الى 10 For R = 1 To 10 ثم سجل اي الاعمدة التاي تريدها من الرئيسية CR = Choose(R, 2, 3, 5, 6, 7, 8, 9 ضيف جنبها الاعمدة المتبقية مثلا 10 و11و12 بالنسبة للمسح ضيف نهاية الكود كود المسخ للاعمدة التي تريدها انتبه تمسح عمود فيه معادلات ============================== الاخ / عمودي اذا كانت الخلية غير فارغة طبعا سياخذ المتغير MySheet اسم الورقة من هذه الخلية ولكن اذا كانت فاضية يستخدم الاسم السابق المحفوظ في المتغير MySheet =MySheet

السلام عليكم اخي الفاضل حسب ما فهمت من طلبك انك تريد مسح البيانات السابقة في اوراق الوكلاء اثناء ترحيل البيانات اذا اردت ان يرحل اسفل البيانات السابقة امسح السطر الذي فيه الملاحظة من الكود وهو سطر الانتقال الى كود المسح برضوا عملت لك معادلة للجمع تفضل المرفق ___________2.rar

وجعل الله كل ذلك في ميزان حسناتك

السلام عليكم ساشرح لك جزئية من الكود وستعرف الباقي بنفسك ما عليك سوى حساب المتغير R تسلسليا وعليه ستعرف موقع الخلايا المرحلة Sub kh_start() Dim R As Integer, Last As Integer ' في الورقة اللي كود نمبر بتاعها اسمة ورقة2 ' (.)كذا يصبح اي شي خاص بالورقة يبدا بنقطة With ورقة2 ' بي زايدا الرقم واحد(B)اخر صف في العمود Last = .Range("B" & .Rows.Count).End(xlUp).Row + 1 For R = 1 To 15 ' (R) السلسلة ' (R-1)من الخلية بي في آخر صف يتم تسلسل الاعمدة حسب المتغير .Range("B" & Last).Offset(0, R - 1).Value = ورقة1.Cells((R * 2) + 2, 3) .Range("Q" & Last).Offset(0, R - 1).Value = ورقة1.Cells((R * 2) + 2, 7) Next R .Range("A" & Last).Value = Last - 3 End With End Sub

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

السلام عليكم الاخ الفاضل/ عمر------------حفظه الله الاخ الفاضل/ مسلمي------------حفظه الله الاخ الفاضل/ اكرم الغادي------------حفظه الله الاخ الحبيب/ ابو عبدالله------------حفظه الله الاخ الفاضل/ الفادي------------حفظه الله الاخ الفاضل/ ابوهاجر------------حفظه الله تقبلوا جزيل شكري وتقديري ========================== الاخ الفاضل/ احمد حسين------------حفظه الله يتم كتابتها تقبل تحياتي وشكري

السلام عليكم التحكم بالتاريخ بالزيادة و النقصان بواسطة SpinButton تفضل المرفق ______________________.rar

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

السلام عليكم الاخ الحبيب / ابوخالد --------------حفظه الله بوركت وجزاك الله الف خير تقبل تحياتي وشكري

السلام عليكم الاخ الفاضل/ طارق---------------حفظه الله عمل رائع بارك الله فيك خي الكريم تقبل تحياتي وشكري

السلام عليكم تفضل المرفق مع امكانية التحكم في ادخال التاريخ في التاكست ___________________.rar

السلام عليكم انا فهمت الطلب بشكل مختلف عموما ممكن بالمعادلات باختيار رقم الفاتورة من قائمة منسدلة send_data3.rar

السلام عليكم الاخ الحبيب محمدي -------حفظه الله تقبل تحياتي وشكري =================== الاخ الفاضل طارق-------حفظه الله ما عليك ان كنت انا رديت او غيري نحن مع شعار تقبل تحياتي وشكري

السلام عليكم تفضلي المرفق send_data.rar

السلام عليكم الشكر واصل لجميع المشاركين الاخ عاشق ترابها في الملف الاول في اي خلية استخدم المعادلة: =DATE(F17;E17;D17)-DATE(C17;B17;A17)

السلام عليكم الاخ الفاضل/ ابوخالد-------------------حفظه الله تقبل تحياتي وشكري

السلام عليكم الاخ الفاضل اكرم الغامدي ----------------------------حفظه الله الله يزيدك من فضله تقبل تحياتي وشكري

اسلام عليكم تفضل الملف ____________________.rar