ابو تيم قام بنشر يوليو 5, 2015 مشاركة قام بنشر يوليو 5, 2015 (معدل) السلام عليكم ورحمة الله وبركاته اخواني الشرح بالمرفقات وشهر مبارك على الجميع تعديل سعر صنف.rar تم تعديل يوليو 5, 2015 بواسطه ابو تيم رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 5, 2015 مشاركة قام بنشر يوليو 5, 2015 الكود التالي سيفي بالغرض Sub nnn() LR = [G9999].End(xlUp).Row For r = 6 To LR Cells(r, "G").GoalSeek Goal:=0.1, ChangingCell:=Cells(r, "F") Next End Sub 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 5, 2015 مشاركة قام بنشر يوليو 5, 2015 أخي الكريم أبو تيم جرب الكود التالي عله يفي بالغرض Sub Goal_Seek() Dim I As Long With Worksheets("Sheet1") For I = 6 To .Cells(Rows.Count, "C").End(xlUp).Row .Range("G" & I).GoalSeek Goal:=0.1, ChangingCell:=.Range("F" & I) Next I End With End Sub وإليك الملف المرفق تقبل تحياتي Goal Seek YasserKhalil.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 5, 2015 مشاركة قام بنشر يوليو 5, 2015 اعتذار واجب للباشمهندس طارق أعتذر إليك أستاذنا الحبيب ومعلمنا الجليل على المداخلة الغير مقصودة فقد أضفت الرد دون أن أرى مشاركتك والحمد لله كل السبل تؤدي إلى روما أقصد أوفيسنا تقبل ودي واحترامي وتحياتي رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يوليو 5, 2015 أفضل إجابة مشاركة قام بنشر يوليو 5, 2015 إضافة بسيطة سطر لتجنب حدوث خطأ حيث أن العمود F لو كان فارغ أو قيمته صفر يؤدي لخطأ فقمت بإضافة سطر يقوم بجعل قيمة الخلية في العمود F قيمته 1 قبل تنفيذ السطر في الكود .Range("G" & I).GoalSeek Goal:=0.1, ChangingCell:=.Range("F" & I) ليصبح الكود بهذا الشكل Sub Goal_Seek() Dim I As Long With Worksheets("Sheet1") For I = 6 To .Cells(Rows.Count, "C").End(xlUp).Row .Range("F" & I).Value = 1 .Range("G" & I).GoalSeek Goal:=0.1, ChangingCell:=.Range("F" & I) Next I End With End Sub تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
ابو تيم قام بنشر يوليو 5, 2015 الكاتب مشاركة قام بنشر يوليو 5, 2015 الف شكر اخي طارق واخي أبو البراء على الرد السريع والله يجعله في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يوليو 6, 2015 مشاركة قام بنشر يوليو 6, 2015 اعتذار واجب للباشمهندس طارق أعتذر إليك أستاذنا الحبيب ومعلمنا الجليل على المداخلة الغير مقصودة فقد أضفت الرد دون أن أرى مشاركتك والحمد لله كل السبل تؤدي إلى روما أقصد أوفيسنا تقبل ودي واحترامي وتحياتي :fff: حبيبي أبا البراء لابأس ولاإعتذار ولايحزنون كل عام وأنتم بخير أنا لاأنزعج أبدا من مداخلات الأحبة بل العكس يزيد ذلك من ثراء الموضوع 1 رابط هذا التعليق شارك 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.