[حل شده] نمایش مورد جستجو تو صفحه نمایش اکسل

[mreza]

با سلام
آیا امکان داره وقتی من در یوزرفرم جستجو (فایل پیوست)رو انجام میدم و از لیست باکس روی مورد جستجو کلیک میکنم سلول پیدا شده (سبز رنگ) بصورت اتوماتیک در صفحه نشون داده بشه
منظورم اینه که اگه مورد جستجو تو ردیفهای پایین باشه عمل جستجو انجام میشه ولی وقتی میخوام برم پیداش کنم ممکنه روی سلول های دیگه کلیک بشه و گم بشه (مورد پیدا شده رو بیاره تو صفحه نمایش)

باتشکر

[iranweld]

با سلام

به کدهای لیست باکس سه خط کدهای آخر را اضافه کنید

Private Sub ListBox1_Click()

Application.ScreenUpdating = False
   
  For i = 0 To ListBox1.ListCount - 1
  
    If ListBox1.Selected(i) Then
    
        msg = ListBox1.List(i)
          
    End If
        Next i
          
Range(msg).Select

ActiveWindow.ScrollRow = Range(msg).Row

Unload Me

Application.ScreenUpdating = True
    
End Sub 

[mreza]

ممنون از لطف شما
مشکل حل شد