البحث بالدالة Find فى نطاق معين للبحث عن معيار موجود فى خلية معينة

البحث عن طريق الدالة FIND



البحث و الحصول على اسم خلية الناتج فى صندوق الرسائل
Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:A22").Find(what:=Sheets("Sheet2").Range("F6").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
msgbox (rng.Address)
Else
MsgBox (" Not in The Range ")
End If



البحث بعد نطاق معين
Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:A22").Find(what:=Sheets("Sheet2").Range("F6").Value, After:=Range("put here cell where search starts"), LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
msgbox (rng.Address)
Else
MsgBox (" Not in The Range ")
End If



البحث و الحصول على قيمة الناتج فى خلية
Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:A22").Find(what:=Sheets("Sheet2").Range("F6").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
msgbox (rng.Address)
Else
Sheets("Sheet2").Range("G6").Value = rng.Value
End If



البحث و الحصول على قيمة الصف فى الخلايا المحددة
Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:A22").Find(what:=Sheets("Sheet2").Range("F6").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
msgbox (rng.Address)
Else
Sheets("Sheet2").Range("G5").Value = rng.Value
Sheets("Sheet2").Range("G6").Value = rng.Offset(0, 1).Value
Sheets("Sheet2").Range("G7").Value = rng.Offset(0, 2).Value
Sheets("Sheet2").Range("G8").Value = rng.Offset(0, 3).Value
End If