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

[ali-sharifi]

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

[ali.b]

این کدبه دردت میخوره

Sub sabt()Dim c As Range
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
    For Each c In Sheet1.Range("K3")
        If c.Value = Sheets(i).Name Then
    Sheets(i).Activate
    Range("A3").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Sheet1.Range("A3:J3").Copy
Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
        End If
    Next c
Next i
Application.ScreenUpdating = True
End Sub

داده هارو تو ی شیت مینویسی بعد اسم شیتموردنظر رو تو سلول k3 میزاری اطلاعات رو به شیتیکه هم نامk3 باشه می فرسته

[khakzad]

می تونید pivot بگیرید و اسم شعبات رو در فیلتر بیارید
بعد گزینه show report filter pages رو بزنید
به ازای هر مورد فیلتر یک شیت میسازه و داده های اون رو میاره در شیت مربوطه
موفق باشید