أب مارية قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 السلام عليكم لدي مشكل أثناء الترحيل حيث يقوم باضافة سطرين في أول الجدول بالاضافة إلى الترقيم المستمر إلى غاية 990 في أخر الجدول، أرجو من الاخوة الكرام افادتي بالحل. STOCKS.rar
عبد الله بولنوار قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 المشكل ليس في كود الترحيل فهو يعمل بكفاءة الاشكال في اعادة الترقيم لم تخبرني في الموضوع الاول بوود ترحيل كنت اعتقد انه ادخال يدوي ساحاول تصحيح العمل
عبد الله بولنوار قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 (معدل) جرب و معذرة ان كانت اخطاء في باقي الفورمات لاني لم اجرب تشغيلها عملت على المطلوب فقط ما هو درة التاريخين المكتوبين في اسفل الجدول لانه عندادخال جديد سيختفيا STOCKS.rar تم تعديل يناير 26, 2015 بواسطه عبد الله بولنوار
أب مارية قام بنشر يناير 26, 2015 الكاتب قام بنشر يناير 26, 2015 السلام عليكم أخي عبد الله وبارك الله فيك على العمل جاري التجريب وسأوافيك بالجديد ان شاء الله
أب مارية قام بنشر يناير 31, 2015 الكاتب قام بنشر يناير 31, 2015 السلام عليكم لقد قمت باضافة زر للحذف بالكود التالي: Private Sub CommandButton11_Click() Sheet2.Activate If TextBox77 = "" Then MsgBox ("Il faur choisiser un numéro pour la suppression") Exit Sub End If Q = 0 xxx = 11 Do Until Sheet2.Cells(xxx, "A").Text = "" If Me.TextBox77.Text = Sheet2.Cells(xxx, "A").Text Then Q = 1 KK = MsgBox("Vous étes sur de supprimé cette article", vbYesNo) If KK = vbYes Then TextBox77 = "" ActiveCell.EntireRow.Delete MsgBox ("Article supprimer avec succée !!") Else MsgBox ("La supprission ne pas faite !!") End If End If xxx = xxx + 1 Loop Range("A12").Select ActiveCell.FormulaR1C1 = "1" Range("A13").Select ActiveCell.FormulaR1C1 = "2" Range("A12:A13").Select Selection.AutoFill Destination:=Range("A12:A[a7]"), Type:=xlFillDefault End Sub لكن المشكل الذي وقعت فيه هو عند أحد الأرقام التالية للحذف لا يقوم باستدعاء الامعلومات الخاصة بالعنصر وهذه الأرقام هي :(1، 3، 10، 13) أما بقية الأرقام فيقوم باستدعائها وتتم عملية الحذف بشكل عادي. أرجو المساعدة في ايجاد الخلل
أب مارية قام بنشر يناير 31, 2015 الكاتب قام بنشر يناير 31, 2015 بارك الله فيك أخي عبد الله لو تكرمت لقد نسيت رفع الملف المطلوب العمل عليه فأرجو المعذرة وتطبيق المطلوب على الملف المرفق كما أرجو افادتي بالخلل الذي كان موجود. اسالك اللهم بقدرتك التي حفظت بها بها يونس في بطن الحوت ......ورحمت بها أيواب بعظيم الابتلاء .........أن لا تبقى له هما .........ولا حزنا ....ولا ضيقا ...ولا سقما ....وأن أصبح في حزن فاأمسة على فرح ....وأسالك اللهم .............أن كان مهموما ..............................تمنحه فرحا . وأن تحفظه لمن يحب ........................... وأن تحفظ من يحب له .اللهم أنك لا تحمل نفسا فوق طاقتها ...........................فلا تحمله من كرب الحياة مالا طاقة لة .وباعد بينه وبين مصائب الدنيا ........................كما باعدت بين المشرق والمغرب .اللهم من أرد به شرا ً...................................فأشغة في نفسة .ومن أرد به غدراً...........................................فر د كيده في نحره.ومن أرد به مكراً........................................فأمكر به وأنت خير الماكرين .اللهم بشره بالخير كما بشرت .....................يعقوب بيوسف .وبشره بالفرح كما بشرت ........................... زكريا بيحيى .اللهم يامن لاتضيع لديك الودائع أني خباتها كاالامانة لديك .فأحفظ اللهم أمانتي من كل شر و سواء .وأنت خير الحافظين .اللهم أمين stoks_5.rar
عبد الله بولنوار قام بنشر يناير 31, 2015 قام بنشر يناير 31, 2015 اللهم آمين جزيت بالمثل جرب فيه خلية في الصف 7 تم حذفها و تمديد عمود الترقيم الى 1000 ما انا الا متعلم و مبتدا اذا فيه اخطاء نتبهنب ممكن اصلحا stoks_5.rar
أب مارية قام بنشر يناير 31, 2015 الكاتب قام بنشر يناير 31, 2015 بارك الله فيك أخي عبد الله أسأل الله الكريم رب العرش العظيم أن ينور قلبك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.