[حل شده] فیلترینگ در اکسل

[vafa.hasti]

سلام خسته نباشید
من یک شیت دارم که حاوی اطلاعات ماده و مواد اولیه ماده است
مثلا اینکه آهن از مواد a b c تشکیل شده
940101 آهن a
940101 آهن b
940101 آهن c
940102 آهن a
940102 آهن b
940102 آهن c
940103 آهن a

اگر بخام کل aهای شیت اول رو فیلتر کنم که با کل سطرش و مقادیری که توی کل سطر مربوطه هست بیاد توی شیت دوم چکار کنم؟(با زدن یک میانبر یا یک کلیک)
و به همین ترتیب برای b و cو...

تشکر

[s.cheraghi]

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

[vafa.hasti]

ببخشید اما به دلایلی نمیخام از پیوت استفاده کنم

[s.cheraghi]

از کد زیر استفاده کنین:

 Sub MaterialReport()
Dim Materials As New Collection
Dim Material As Integer
Dim CRange As Range

For Each CRange In [MaterialList]
    On Error Resume Next
    Materials.Add Trim(CRange.Text)
Next CRange


For Material = 1 To Materials.Count

    On Error Resume Next
    Worksheets(Materials(Material)).Activate
    
    If Err.Number <> 0 Then
        With ActiveWorkbook.Worksheets.Add
            .Name = Materials(Material)
            [RangeTempate].Copy Destination:=.Range("A1")
        End With
    Else
         Sheets(Materials(Material)).Cells.Clear
         [RangeTempate].Copy Destination:=Cells(1)
    End If
    
    For Each CRange In [MaterialList]
        If Trim(CRange.Text) = Materials(Material) Then
            CRange.EntireRow.Copy Destination:=Worksheets(Materials(Material)).Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
        End If
    Next CRange
    
Next Material
End Sub 

[vafa.hasti]

با نهایت تشکر از آقای چراغی مشکلم حل شد.واقعا مرسی