بحث واستبدال

[skyblue]

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

ولكم خالص تحياتي

[حمدى]

السلام عليكم

الاخ العزيز skyblue

استخدم دالة mid

=(mid(b3,1,2

ثم استخدم if

ارجو انني قد افدتك

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

[علي السحيب]

شاهد المرفق،

__________________________.rar

[خالد نور]

اولا تحية كبيرة جدا لأستاذى على السحيب بارك الله فيه وبمشاركته المتعددة القوية جدا وحلولة التى تجىء بالضربة القاضية على المشكلات ولا أدرى لماذ هو مقل فى الفترة الاخيرة فى المشاركات

اللهم بارك فى جميع القائمين على هذا المنتدى وجميع المشرفين والاعضاء والضيوف

[skyblue]

اخوي علي يعطيك العافية هل بالامكان التكرم بعمل البرنامج عن طريق الكود .

تحياتي لك ...

[علي السحيب]

الكود التالي ينفذ ما تريد:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row > 2 And Target.Row < 8 Then

For R = 3 To 7
If Left(Cells(R, 2), 2) = 65 Then
Cells(R, 7) = 20
Else: Cells(R, 7) = 14
End If
Next

End If
End Sub

شاهد المرفق،

__________________________.rar