[حل شده] برگرداندن مقادیر یک سلول از چند شیت جدا

[iranianhero]

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

[generalsamad]

با سلام
شما با استفاده از 3 تابع sumif و جمع این سه تابع میتونید به جواب برسید
این فرمول رو در سلول B2 در شیت Index قرار دهید و فرمول رو به پائین درگ کنید.

=SUMIF('Data 1'!A$1:A$50;A2;'Data 1'!B$1:B$50)+SUMIF('Data 2'!A$1:A$54;A2;'Data 2'!B$1:B$54)+SUMIF('Data 3'!A$1:A$44;A2;'Data 3'!B$1:B$44) 

[iranweld]

با سلام

از این ماکرو هم میتوانید در شیت INDEX استفاده کنید

Private Sub CommandButton1_Click()

Dim employee As String, total, total2, total3, total4, total5 As Integer, sheet As Worksheet, i As Integer, rng As Range

Z = Sheet1.Cells(Sheet1.Rows.Count, "a").End(xlUp).Row


Range("b2:b100").Select
    Selection.ClearContents
       Range("b3").Select
       

For J = 2 To Z

 total = 0

employee = Range("A" & J).Value



For Each sheet In Worksheets
y = sheet.Cells(sheet.Rows.Count, "a").End(xlUp).Row

    For i = 1 To y
    
        If sheet.Range("A" & i).Value = employee And sheet.Name <> Worksheets("INDEX").Name Then
        
            total = total + sheet.Range("B" & i).Value
            
               End If
   
           
    Next i
    
   
   
Next sheet

Sheet1.Range("B" & J).Value = total


Next J

End Sub 

[iranianhero]

بسیار سپاس گذارم دوستان عزیز بابت راهنمایی.فقط یه مورد اینکه در حالتی که بخوام از ماکرو استفاده کنم و بخوام چند تا شیت دیگه نیز به این فایل اکسل اضافه کنم باید در ماکرو تغییر خاصی ایجاد کنم یا خودش شیت های دیگر رو نیز محاسبه میکنه؟

[iranweld]

با سلام

در صورت اضافه شدن شیت و افزایش سطرها هیچ مشکلی ایجاد نمی شود فقط ترتیب ستونها و نام شیت گزارشگیری تغییر ننماید

یک مشکل در فایل قبلی بود که نفر اول را محاسبه نمیگرد ، برطرف گردید

[iranianhero]

با سلام

در صورت اضافه شدن شیت و افزایش سطرها هیچ مشکلی ایجاد نمی شود فقط ترتیب ستونها و نام شیت گزارشگیری تغییر ننماید

یک مشکل در فایل قبلی بود که نفر اول را محاسبه نمیگرد ، برطرف گردید

سپاسگذارم دوست عزیز