saad abed

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

اخى مؤمن جرب الكود التالى عالجت فيه عمود الاساسى فقط وممكن اكمل لو الفكرة صحيحة وها هو الكود 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

استاذى الكبير العلامة // عبدالله باقشير حفظكم الله ** رعاكم الله اسال الله ان يبارك فيكم شرف كبير ان ترد على اى موضوع لانك استاذى الذى اتتبع ردوده وخطواته بارك الله فيكم تخياتى

اخى ابراهيم ابوليلة ربما لا اجيد الشرح لانى لا زلت تلميذ ولكن طلبك غالى اخى الكريم سيكون الشرح بعد سرد الكود Sheets("Sheet1").Select Sheets("Sheet1").Range("f3:h3000").ClearContents Application.ScreenUpdating = False Application.Calculation = xlCalculationManual السطر الاول اثرت ان اختار الورقة التى اعمل عليها السطر الذى يليه الهدف منه وقف اهتزاز الشاشة السطر االتالى هو وقف الحساب التلقائى فى الاكسيل الهدف من السطرين ان يكون نقل البيانات والبحث عن الشروط بسرعة For i = 3 To Range("c3").End(xlDown).Row بداية جمل الدوران تبدا من السطر الثالث وتنزل الى اخر سطر فى العمود c وطبعا تنتهى next كل هذا لم تبدا فكرة الكود ستبدا بدالة if If condition then Statement 1 Statement 2 … .... End if If Sheets("Sheet1").Cells(i, 3) = Cells(2, 6) Then Sheets("Sheet1").Cells(i, 6) = Sheets("Sheet1").Cells(i, 2) الشرط هنا ان تتساوى قيم العمود الثالث مع الخلية الموجودة بالصف الثانى والعمود السادس المطلوب تنفيذه هو نقل القيم التى تتساوى بها فى العمود الثانى الى العمود السادس ثم وجدت مشكلة وهى القيم تنقل فى نفس الاماكن فوجدت وجود خلايا فارغة فوجدت الحل فى الغاءها Range("f3:h300").SpecialCells(xlCellTypeBlanks).Delete وكررت الموضوع ثلاث مرات ثم ارجعت الاعدادات الى ما كانت عليه ارجو ان اكون وفقت تحياتى

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

استاذى ابراهيم ابوليلة استاذى حمادة باشا انا اعلم انكم اساتذة عظماء احاول ان تراجعوا اكوادى لانى احاول رد جميل هذا الصرح العظبم استاذنكم ان اشارككم الاراء والحلول Sub gggg() Sheets("Sheet1").Select Sheets("Sheet1").Range("f3:h3000").ClearContents Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 3 To Range("c3").End(xlDown).Row If Sheets("Sheet1").Cells(i, 3) = Cells(2, 6) Then Sheets("Sheet1").Cells(i, 6) = Sheets("Sheet1").Cells(i, 2) End If If Sheets("Sheet1").Cells(i, 3) = Cells(2, 7) Then Sheets("Sheet1").Cells(i, 7) = Sheets("Sheet1").Cells(i, 2) End If If Sheets("Sheet1").Cells(i, 3) = Cells(2, 8) Then Sheets("Sheet1").Cells(i, 8) = Sheets("Sheet1").Cells(i, 2) End If Range("f3:h300").SpecialCells(xlCellTypeBlanks).Delete Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub استخراج.rar

اخى ابراهيم ابوليلة السلام عليكم هل تريد الارقام فى العمود Bا لتى تقابل الكلمة فى العمود c حتى لو كانت مكرره اكثر من مرة ام لم تصل الى الفكرة

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

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

اخوتى هل هناك مشكلة فى المنتدى اين المواضيع المثبته ومواضيع اخرى هل من تفسير