الاستاذ القدير هل يمكن التغيير في الكود الي التالي
حتي يعمل علي اي ورقة في الملف دون تحديد الورقة في الكود باستبدال Sheets("Sheet1") بـــ ActiveSheet
Private Sub CommandButton1_Click()
Set Rng = ActiveSheet.Range("A6:A10000")
For Each cl In Rng
If Val(Me.TextBox1.Value) = Val(cl) Then
Cells(cl.Row, 1).Select
Unload Me
End If
Next
End Sub
وفي انتظار الرد بخصوص الرسالة التي تفيد بان الرقم غير موجود بهذه القائمة
جزاك الله خيرا