[حل شده] کد vba ارجاع به شیت با نام متغیر ؟

[alisabet]

سلام علیکم :

در vba چگونه میتوان به یک شیت اشاره کرد در صورتی که نام آن شیت متغیر باشد توصیح : من چند تا شیت دارم با نامهای 1392 و 1393 و 1394 که این ها هرکدام حاوی قیمت های کالاهائئ مشخص در سال مورد نظر هستند حالا احتیاج به کد aba دارم که با تو جه به سلولی که حاوی سال مورد نظر است به شیت هم نام با مقدار سلول( سال) رجوع و بهای آن را در سال مربوط استخراج و در سلول مورد نظر درج نماید

جهت روشن شدن موضوع یک فایل هم بپیوست آپلود میکنم خواهشمند است اساتید گرامی در مورد کد کامند باتن آن راهنمائی فرمایند

[iranweld]

با سلام
تقدیم به شما دوست عزیز

Option Explicit

Private Sub CommandButton1_Click()

Dim kala As String, total As Integer, sheet As Worksheet, i As Integer, rng As Range

Set rng = Range("B1").CurrentRegion

total = 0
kala = Range("A2").Value

For Each sheet In Worksheets

    For i = 2 To rng.Count + 1
    
        If sheet.Cells(i, 1).Value = kala And sheet.Name = Range("B2").Value Then
        
            total = total + sheet.Cells(i, 2).Value
                      
   End If
           
    Next i
     
Next sheet

Range("C2").Value = total

End Sub 

[generalsamad]

با سلام اگه فرمولش رو هم خواستید به اینصورت است این فرمول رو توی سلول c3 وارد کنید

=iferror(vlookup(a2;indirect("'"&b2&"'!a:b");2;0);"")