كود يقو بالبحث عن قيمه و ادخال التعديلات الجديدة على هذة القيمة من خلال فورم

[MURADALAJORE]

كود يقو بالبحث عن قيمه و ادخال التعديلات الجديدة على هذة القيمة من خلال فورم

 

طبع كود غير  dim i as integer  

اعتقد ان هذا الكود  لا يعل لأكثر من 3000 خلية 

 

هل يوجد كود يقو بالبحث  على كل الخلايا |||؟؟

[الـعيدروس]

السلام عليكم

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

واذا اردت بفورم لامانع

Sub Fd_Ali()
Dim Inx As String
Dim Trg As Range
xn:
    With ActiveSheet.UsedRange
    Inx = Application.InputBox("إدخل كلمة البحث", "بحث", "ادخل الكلمه المراد البحث عنها هنا")
        Set Trg = .Cells.Find(What:=Inx)
        If Not Trg Is Nothing Then
           Inx = Application.InputBox(" وجدت في الخليه " & Trg.Address & " ادخل الكلمه البديله ", Trg.Address, " ادخل الكلمه البديله هنا")
           Trg = Inx
           msg = MsgBox("هل تريد البحث مجدداً عن كلمه اخرى؟", vbYesNo, "بحث جديد")
           If msg = vbYes Then
             GoTo xn
             Else
            Exit Sub
            End If
        End If
    End With
    Set Trg = Nothing
End Sub