Girilen grup numarasıyla verilerden tablo oluşturma

[atamanadil]

arkadaşlar veri listesinden grup nosunu girerek yan sayfada oluşan tabloyu oluşturmak istiyorum.
nasıl yapabilirim

 

[YUSUF44]

Aşağıdaki kodları bir modüle ekleyip deneyiniz:

Sub Makro1()
 c = Sheets("tablo").Cells(Rows.Count, 1).End(3).Row
 Sheets("tablo").Range("A3:L" & c).ClearContents
 Application.ScreenUpdating = False
 grup = Sheets("tablo").[b1].Value
    a = Sheets("veri").Cells(Rows.Count, 1).End(3).Row
 If WorksheetFunction.CountIf(Sheets("veri").Range("A1:a" & a), grup) = 0 Then
 uyarı = MsgBox("Belirtilen Grup Numarası veri listesinde bulunmamaktadır!", vbCritical)
 GoTo 10
 End If
    Sheets("veri").Select
    Range("A1:L1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$L$" & a).AutoFilter Field:=1, Criteria1:=grup
    Rows("1:1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("tablo").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Sıra"
    b = Sheets("tablo").Cells(Rows.Count, 1).End(3).Row
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A4").Select
    If b = 3 Then GoTo 10
    ActiveCell.FormulaR1C1 = "2"
    Range("A3:A4").Select
    Selection.AutoFill Destination:=Range("A3:A" & b)
10:
    Range("A5").Select
    Sheets("veri").Select
    Range("A1").Select
    ActiveSheet.Range("$A$1:$L$" & a).AutoFilter Field:=1
    Sheets("tablo").Select
End Sub