تعديل سعر صنف

[ابو تيم]

السلام عليكم ورحمة الله وبركاته

 

اخواني الشرح بالمرفقات

 

وشهر مبارك على الجميع

تعديل سعر صنف.rar

تم تعديل يوليو 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

[ياسر خليل أبو البراء]

أخي الكريم أبو تيم

جرب الكود التالي عله يفي بالغرض

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

[ياسر خليل أبو البراء]

اعتذار واجب للباشمهندس طارق

أعتذر إليك أستاذنا الحبيب ومعلمنا الجليل على المداخلة الغير مقصودة فقد أضفت الرد دون أن أرى مشاركتك

والحمد لله كل السبل تؤدي إلى روما أقصد أوفيسنا

تقبل ودي واحترامي وتحياتي

[ياسر خليل أبو البراء]

إضافة بسيطة سطر لتجنب حدوث خطأ حيث أن العمود 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

تقبل تحياتي

[ابو تيم]

الف  شكر اخي طارق واخي أبو البراء على الرد السريع

 

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

[طارق محمود]

اعتذار واجب للباشمهندس طارق

أعتذر إليك أستاذنا الحبيب ومعلمنا الجليل على المداخلة الغير مقصودة فقد أضفت الرد دون أن أرى مشاركتك

والحمد لله كل السبل تؤدي إلى روما أقصد أوفيسنا

تقبل ودي واحترامي وتحياتي :fff:

 

 

 

حبيبي أبا البراء
لابأس ولاإعتذار ولايحزنون
كل عام وأنتم بخير
أنا لاأنزعج أبدا من مداخلات الأحبة بل العكس يزيد ذلك من ثراء الموضوع