saad abed

اخى رجب جاويش اكواد متقنة ومفيدة بارك الله فيك لى سؤال اخى هل من الممكن تطبيق الكود على عدة اعمدة بدل العمود a فقط اشكرك كل الشكر

اخى هناك فيرس يزيل الاكواد لا تفتح ملفات اخرى حتى 1- ارفع مجموعة الاوفيس من remove program 2- ادخل بروجرم فيل على السى وامسح بقايا الملف اعد التثبيت وستحل المشكلة

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

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

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

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

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

اخى سليم جزاك الله خيرا

استاذ سعيد لم انتبه لردكم عذرا اخى الحبيب ابو سلمى وعبدالرحمن تحياتى

اخى مؤمن جرب الكود التالى عالجت فيه عمود الاساسى فقط وممكن اكمل لو الفكرة صحيحة وها هو الكود Sub saadabed() Application.ScreenUpdating = False For i = 6 To 13 a = Cells(i, 2) / 30 b = a / 4 c = a / 2 Select Case Sheets("sheet1").Cells(i, 17).Value Case 0 Cells(i, 18) = 0 Case 1 Cells(i, 18) = a + b Case 2 Cells(i, 18) = a + c Case Is <= 3 Cells(i, 18) = Cells(i, 17).Value * a * 2 End Select Next Application.ScreenUpdating = True End Sub

اخى ضاحى ابوعمرو ثورة فى عالم الفورم لو حكى لى احد عن ما رايت ما صدقته جزاك الله كل خير وفقكم الله

ابوعمرو جزاك الله كل خير وفقكم الله

اخى ضاحى الغريب اعمالك مميزة جزاك الله خيرا لى سؤال ابوعمر اين تبويب الثلاث صفحات وما هى طريقة الحصول على هذه الالوان

ابوحنين ابداع *ابداع* ابداع *ابداع ابداع *ابداع ابداع *ابداع ابداع *ابداع والله مش كفاية عايز اكتب اكثر ابداع *ابداع ابداع *ابداع

شكرا ابوحنبن جزاك الله خيرا

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

اخى ابواياد عمل ممتاز جزاك الله خيرا ورحم الله والدتك وابنك رحمة واسعة وادخلهم الله فسيح جناته

اخى محمد لم انتبه للموضوع الف الف مبببببببببببببببببررررررررررروك ترقبة مستحقة وفقكم الله

اخى حدد ما هو المطلوب هل تريد ان يظهر الشهر فقط ام السنة ام اليوم ربما لم تصل الفكرة

اخى تم تعديل الكود وتم التجربة قبل الرفع لعله المطلوب استدعاء البيانات1.rar

اخى شوقى ربيع اعمالك رائعه جزاك الله خيرا

اخى شوقى ربيع انت اكثر من خبير بكثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثر اتتبع اكوادك واعمالك بجد حيا الله كل اهل صحراء الجزائر تحياتى

اخى شوقى ابداعاتك واكوادك رائعة جزاك الله خيرا

اخى عبدالله باقشير بارك الله فيك اعمالك كلها ممتازة ونادرة جزاك الله خيرا

اخى ريان استاذن استاذى شوقى ربيع جرب التعديل الاتى Sub Vlokup() Dim Reslt As String Dim Sh As Worksheet Set Sh = ActiveWorkbook.Sheets("bd1") Sh.Range("d2:e5000").ClearContents On Error Resume Next For i = 2 To 20 Cells(i, "d") = Application.WorksheetFunction.VLookup(Sh.Cells(i, 1), Sh.Range("a2:g41510"), 6, 0) Cells(i, "e") = Application.WorksheetFunction.VLookup(Sh.Cells(i, 1), Sh.Range("a2:g41510"), 7, 0) Next End Sub