دالة البحث VLookup مع الأوراق المخفية

[سعيد 1428]

السلام عليكم ورحمة الله  ..أخوتي 

مرفق لكم ملف يتضمن دالة البحث vloocup والمشكلة هي أن الدالة لا تعمل في حالة إخفاء الشيت الذي يتضمن مرجع البيانات وهذا جعلني أقوم بإظهار الشيت (sheet1) وتنشيطه عند فتح اليوزر فورم 

وحيث أني ارغب في بقاء هذا الشيت مخفي دائما فإني ارجو منكم المساعدة بحث تعمل دالة البحث حتى ولو كان الشيت مخفي  وشكرا

Private Sub ComboBox1_Change()
Dim NAT As Long
Dim sh As Sheets
Dim Name As String
Dim myrange As Range
On Error Resume Next
    Sheets("sheet1").Visible = True
Sheets("sheet1").Active
Name = Me.ComboBox1.Value
With Sheets("sheet1")
Set myrange = Range("B3:M9")
TextBox1.Value = Application.WorksheetFunction.VLookup(Name, myrange, 2, False)
TextBox2.Value = Application.WorksheetFunction.VLookup(Name, myrange, 3, False)
End With
End Sub
Private Sub UserForm_Initialize()
Sheets("sheet1").Activate
End Sub

ملف العمل.xlsm

[عبدالفتاح في بي اكسيل]

تقضل اخي  الكريم  ..هذه اعادة  صياغة  الكود  (احذف  الاكواد اللي  عندك)

Private Sub ComboBox1_Change()
Dim Name As String
Dim sh As Worksheet
Dim myrange As Range
Set sh = ThisWorkbook.Worksheets("sheet1")
Name = Me.ComboBox1.Value
Set myrange = sh.Columns(2).Find(Name, LookIn:=xlValues, lookat:=xlWhole)
If Not myrange Is Nothing Then
With myrange
TextBox1.Value = .Offset(, 1)
TextBox2.Value = .Offset(, 2)
End With
End If
End Sub

امل  انه  تم  اصلاح  كل  مشاكلك .

[سعيد 1428]

نعم أخي الكريم تم حل المشكلة بفضل جهودكم  ..بارك الله فيكم ونفع بكم