Sayfa ekleme ve kopyalama

[esahin1907]

Merhaba,
Ekteki çalışmada veriler var.
Bu verileri masraf merkezlerine göre sayfa açıp ilgili masrafın sayfaya kopyalanmasını istiyorum. Ayrıca açılacak sayfanın adınında o masraf merkezi olabilir mi?
desteklerinizi rica ederim.

iyi çalışmalar.

 

[hamitcan]

Sub SayfalaraAktar()
    Sheets("Sayfa1").ShowAllData
    For i = Sheets.Count To 1 Step -1
        Application.DisplayAlerts = False
            If Sheets(i).Name <> "Sayfa1" Then Sheets(i).Delete
        Application.DisplayAlerts = True
    Next
    With Sheets("Sayfa1")
        For i = .[a65536].End(3).Row To 2 Step -1
            If WorksheetFunction.CountIf(.Range("a2:a" & i), .Cells(i, 1)) = 1 Then
                 Sheets.Add: ActiveSheet.Name = .Cells(i, 1)
                .Range("A1").AutoFilter _
                 field:=1, _
                 Criteria1:=.Cells(i, 1), _
                 VisibleDropDown:=False
                .Range("a1:k500").Copy [a1]
            End If
        Next
    End With
MsgBox "Bitti"
End Sub

 

[esahin1907]

Sn.Hamitcan,
Sheets("Sayfa1").ShowAllData alanında hata verdi.

 

[qwertylion]

denermisiniz.

 

[esahin1907]

Teşekkür ederim. İstediğim gibi olmuş çalışma.