پیدا کردن جدول با مشخصات مورد نظر

[mohammad_mehr]

با عرض سلام و خسته نباشی

یک فایل دارم که 72 تا sheet دارد در هر شیتی یک جدول است حالا من دنبال دستوری هستم که 6 پارامتر جدولو بگیره و بعد از بین 72 تا جدول , جدولی که اعدادش با پارامترهای وارده برابر است پیدا کند و شماره جدول نمایش دهد.

[iranweld]

با سلام

با استفاده از vb امکان پذیر است . کدهای زیر یا فایل پیوست را ملاحظه بفرمایید

Sub test()

Dim emp1, emp2, emp3, emp4, emp5 As Long, total As Integer, sheet As Worksheet, i As Integer, rng As Range

emp1 = Range("N2").Value
emp2 = Range("P2").Value
emp3 = Range("R2").Value
emp4 = Range("N5").Value
emp5 = Range("Q5").Value

For Each sheet In Worksheets

    
        If sheet.Range("N2").Value = emp1 And sheet.Range("P2").Value = emp2 And sheet.Range("R2").Value = emp3 And sheet.Range("N5").Value = emp4 And sheet.Range("Q5").Value = emp5 Then
        
            
             sheet.Activate
            
   End If
       
Next sheet

End Sub 

[mohammad_mehr]

خیلی خیلی ممنون

[Amir Ghasemiyan]

خیلی خیلی ممنون

لطفا اگه پاسخ مورد نظرتون رو دريافت كردين تاپيك رو به حالت حل شده در بيارين