الاخ الكريم سليم
ما عرفت اعالج المشكلة
Private Sub CommandButton2_Click()
Dim Last_2 As Integer
Dim cont%, n%, m%, Ro%
Dim ARR
Dim First As Worksheet
Dim Scd As Worksheet
Set First = Sheets("Sheet1"): Set Scd = Sheets("Sheet2")
n = Application.CountA(First.Range("D5"))
m = First.Range("D5").Cells.Count
If n <> m Then
MsgBox "ÈÑÌÇÁ ÅÏÎÇá ÇáÈíÇäÇÊ ßÇãáÉ", vbCritical, "ÊäÈíå"
Exit Sub
End If
ARR = Split(First.Range("D5").Address(0, 0), ",")
Last_2 = Scd.Range("B:B").Find("").Row
cont = Application.CountIf(Scd.Range("B3:B" & Last_2), First.Range("D5").Value)
If cont Then
MsgBox "åÐÇ ÇáÇÓã ãæÌæÏ", vbCritical, "ÊäÈíå"
Exit Sub
End If
For Ro = LBound(ARR) To UBound(ARR)
Scd.Cells(Last_2, 2).Offset(, Ro) = _
First.Range(ARR(Ro))
Next
First.Range("D5").ClearContents
End Sub
استبدلت كل data reg ب العمود والسطر الاول من الشيت الاول وهو D5
ولكن لم يعمل البحث
اخي انا اريد البحث يعمل بمجرد وضع الاسم الاول او الحرف الاول. بحيث تخرج لي جميع الاسماء التي تبدا بالحرف م مثلا اذا كتبت م.