تعديل كود الانتقال الي خلية

[ماجدجلال]

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

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

هذا الكود صممة الاستاذ علي

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RoomNo As String
Dim fndRoom As Range
If Target.Count = 1 And Target.Column = 4 Then
If Target.Value > 0 Then
RoomNo = InputBox("أدخل رقم الشقة المُراد إدخال بيانات النزيل فيها","نموذج إدخال رقم الشقة")
With Columns(3)
Set fndRoom = .Find(RoomNo)
End With
If Not fndRoom Is Nothing Then
fndRoom.Offset(0, -2).Select
Else
MsgBox "رقم الشقة الذي أدخلته غير موجود", vbExclamation, "عفــواً"
End If
End If
End If
End Sub

وهو يعمل علي النتقال الي خلية في العمود C بناء علي الرقم المدخل خلال MSGBOX

المشكلة ان الكود لا يميز بين الرقم 961 والرقم 1 فهو ينتقل الي الرقم 961 بدلا من الرقم 1

الكود مع الشرح المختصر في الملف المرفق ,

http://www.officena.net/ib/index.php?showtopic=11616

[حسام نور]

جرب المرفق

________________.zip

[ماجدجلال]

شكرا للاح حسام

ولكن ليس هذا هو المطاوب , لعل هذا هو اطول كود اشوف في حياتي كلها واعقد انني لان اري اطول منة !!!!!!!!!!!!

وماذا افعل اذا وجدت فجاة ان بيانات اصبحت اكثر من 1000 خلية هل اعدل علي الكود كلما زاد عدد الخلايا ,,

وايضا المطلوب هو ان يتم الانتقال الي الخلية بحسب محتوياتها وليس بحسب رقمها , اي اكتب الرقم الموجود داخل الخلايا فيتم الانتقال اليها ,

في اعتقادي ان كود الاستاذ المشرف الكبير علي سحيب افضل واكثر مرونة بس يحتاج الي تعديل بسيط جدا لكي تنحل المشكلة ,,,

معليش العملية محتاج صبر ,