البحث عن كلمة محددة بالكود ثم مسح القيمة أسفل منها

[أبو أنس حاجب]

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

المطلوب حفظكم الله

كود يقوم بالبحث عن كلمة TOTAL ثم يقوم بمسح القيمة أسفل منها.

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

مسح قيمة أسفل أسم محدد.rar

[أبو حنــــين]

استعمل هذا

Private Sub CommandButton1_Click()

Dim cl As Range, Rn As Range

Set Rn = Range("A1:S30")

For Each cl In Rn

If cl.Value = "TOTAL" Then cl.Offset(1, 0).ClearContents

Next

End Sub

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أبا حنين حفظكم الله

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

أبو أنس

[أبو حنــــين]

جزاك الله خيرا اخي الحبيب : أبو أنس حاجب

[دغيدى]

أبو خديجة وحنين وعبد الرحمن

وحشتنى ولكن مشاركاتكم تعوضنى بعض الشيء

[أبو حنــــين]

*************************

*** أخي الحبيب : / جمال دغيدي ***

********************************

الله يكرمك و يعطيك الصحة و العافية و يبارك لك في ما اعطاك

****************************************

و جزاك الله كل اخير على هذا الشعور النبيل

******************************************