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

[علي بطيخ سالم]

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

مسلمة.xls

[علي بطيخ سالم]

السلام عليكم ورحمة الله وبركاته .... حيث أن الدوال لا تقبل البحث والاستبدال أريد أن تكون هذه الطريقة بالأكواد من أجل البحث والاستبدال في عمود الديانة من مسلم إلى مسلمة بدلالة النوع 

ترحيل بيانات Salim (1).xlsx

[سليم حاصبيا]

عليك بهذا الماكرو

Option Explicit

Sub tahweel()
Dim my_rg
Dim i%
Dim my_st: my_st = Chr(201)
Set my_rg = Sheets("Salim").Range(Range("a2"), Range("a2").End(4))
  my_rg.Offset(, 2).ClearContents
    
 For i = 1 To my_rg.Rows.Count
    With my_rg.Cells(i)
        If .Value = "انثى" Then
           .Offset(, 2).Value = _
            my_rg.Cells(i).Offset(, 1) & my_st
         Else
          .Offset(, 2).Value = _
           my_rg.Cells(i).Offset(, 1)
        End If
     End With
 Next
    End Sub

الملف

 

Mouslm.xlsm

[علي بطيخ سالم]

كيف أطبقها في حالتي هذه بصراحة لا خبرة لي بعمل الأكواد إلا قليل

ترحيل بيانات Salim (1).xlsx

[علي بطيخ سالم]

كلمة (مسيحية تظهر مسيحىة بدون ياء قبل التاء المربوطة فهل لها من حل علماً بأن هذه البيانات تأخذ من موقع وزارة التربية والتعليم

[سليم حاصبيا]

يجب كتابة مسيحي هكذا و ليس مسيحى

[علي بطيخ سالم]

الان, سليم حاصبيا said:

يجب كتابة مسيحي هكذا و ليس مسيحى

أعلم ذلك استاذنا لكن الإشكالية في أن موقع الوزارة يتم أخذ البيانات منه بشكل خام وهم يعتمدون على تلك الطريقة في الكتابة ....... عموماً ما أريده الآن هو تطبيق تلك الطريقة على الملف الأخير المرفق وجزاكم الله خيراً 

ياليت يكون التعديل في جدول البيانات الخلايا من (Y) حتى (AH)

[بن علية حاجي]

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

جرب هذا الملف بعد تعديل طفيف على كود أخي الكريم سليم...

بن علية حاجي

Mouslm (1).xlsm

[علي بطيخ سالم]

42 دقائق مضت, بن علية حاجي said:

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

جرب هذا الملف بعد تعديل طفيف على كود أخي الكريم سليم...

بن علية حاجي

Mouslm (1).xlsm

والله إن اللسان ليعجز عن شكركم أستاذ بن عليه كما أتوجه بالشكر الحار إلى الأستاذ سليم بارك الله فيكم جميعاً