تغيير محتوى الخلية بناءً على تنزيل البيانات

[نسورالجو]

 المطلوب لو القراءة السابقة والحالية غير موجود بها بيانات تنفذ المعادالة مع العلم يتم تنزيل بيانات القراءة السابقة والحالية والكمية من تكست بوكس ... المشكلة عند تنفيذ زر المعادلة تمسح بيانات قراءة السابقة والحالية والكمية التي تم تنزيلها من تكست بوكس

انتبه من فضلك ... فلابد ان لا تتهاون فى شرح المطلوب هنا أيضاً 

wor.xlsm

[أ / محمد صالح]

24 دقائق مضت, نسورالجو said:

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

لا يوجد في كود زر تنفيذ المعادلة أي مسح للبيانات

فقط وضع المعادلة وتحويلها إلى قيم

With ws
   lr = .Cells(Rows.Count, 4).End(xlUp).Row
   .Range("h5:h" & lr).Formula = "=D5*J5*I5"
   .Range("h5:h" & lr).Value = .Range("h5:h" & lr).Value
End With

 

27 دقائق مضت, نسورالجو said:

المطلوب لو القراءة السابقة والحالية غير موجود بها بيانات تنفذ المعادالة

ولو بها بيانات ماذا تكون المعادلة ؟

نص فارغ مثلا

[نسورالجو]

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

[أ / محمد صالح]

حسب فهمي للمطلوب أنك تريد وضع معادلة مضمونها

إذا كانت القراءة الحالية والسابقة موجودة يقوم بطرحهما

واذا لم يكونا موجودين يضرب D5*J5*I5

ويحولها إلى قيم

في هذه الحالة لا نحتاج لترحيل حاصل الطرح 

ولا نحتاج textbox3 في النموذج 

بالتوفيق 

wor.xlsm

[نسورالجو]

جزاك الله خيرا استاذ محمد