Satış Temsilcileri satışları

[muslant]

arkadaşlar elimdeki listede yüzlerce ürün satışı ve bunları satan temsilciler var.
benim istediğim bu listeye yeni ürün satışı eklediğimde kimin ne kadar satış yaptığını otomatik olacak toplayacak veya detaylarını kendi sayfalarına kopyalayacak bir formül. bu konuda bana yardımcı olabilir misiniz?
satış temsilcisinin adını elle giriş yapacağım.

 

[Ömer]

Merhaba,

Eki inceleyiniz. Aktar butonuna tıklamanız yeterli olacaktır..

.

 

[muslant]

Ömer çok teşşkürler birde toplamını Yeni Sayfa ya alabilir miyiz?

 

[Ömer]

Kodu aşağıdakiyle değiştirerek deneyiniz..

Sub SayfasınaAktar()
Dim i As Long, t As Long, j As Integer, Sayfa As String
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Satışlar")
Set s2 = Sheets("Yeni Sayfa")
Application.ScreenUpdating = False
s2.Range("C2:C65536").ClearContents
For t = 2 To s2.[B65536].End(3).Row
    s2.Cells(t, "c") = WorksheetFunction.SumIf(s1.Range("J:J"), _
    s2.Cells(t, "b"), s1.Range("F:F"))
Next t
s1.Select
For j = 3 To Worksheets.Count
    Sheets(j).Cells.Delete Shift:=xlUp
Next j
For i = 2 To s1.[J65536].End(3).Row
    Sayfa = Trim(s1.Cells(i, "J"))
    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa
        s1.Select
        s1.Range("A1:J1").Copy Sheets(Sayfa).Range("A1")
    End If
    s1.Range("A1:J1").Copy Sheets(Sayfa).Range("A1")
    s1.Range("A" & i & ":J" & i).Copy Sheets(Sayfa).Range("A" & _
    Sheets(Sayfa).[B65536].End(3).Row + 1)
    Sheets(Sayfa).Range("A:J").EntireColumn.AutoFit
Next i
Application.ScreenUpdating = True
End Sub
 
Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

.

 

[muslant]

çok teşekkür ederim ellerin dert görmesin. sizden ricam ekteki dosyaya ben uygulayamadım. bi bakabilr misiniz?

 

[Ömer]

Dosyanız ektedir..

.