Maliyet tablosu

[MURATSONMEZ03]

Merhabalar;
Maliyet ve tablo adı altında iki sayfam var 750 kişi civarında formül ve ya makrolar yardımıyla maliyet sayfasındaki verileri tablo sayfasına atacağım.
Formül yazmaya çalıştım ama yapamadım.

 

[Trilenium]

Head Count için : =COUNTIF(MALİYET!E:E;A3)
Toplamlar için Örnek NEt Maaş : =SUMIF(MALİYET!E:E;A3;MALİYET!F:F)

Diğer maliyet kolonları için formülü aynı sekilde yaparsınız

Kolay eglsin

 

[MURATSONMEZ03]

Formül için teşekkürler;
Yanlız formülü uygulayamadım ,

 

[numan şamil]

Merhaba
Örnek dosyandan ve ifadelerinizden ne istediğiniz tam anlaşılamadı
Aşağıdaki kodları bir modüle kopyalayıp butona atayıp dener misiniz

Kırmızı yerleri neyi nereye geleceğini istiyorsanız ona göre değiştiriniz.

Sub numan()
Dim sat2 As Long, sat1 As Long, s1, s2 As Worksheet, i As Long
Set s1 = Sheets("TABLO")
Set s2 = Sheets("MALİYET")
sat2 = s2.Cells(Rows.Count, "E").End(xlUp).Row
s1.Range("A3:O" & Rows.Count).ClearContents
ApplicationScreenUptading = False
sat1 = 3
For i = 2 To sat2
If WorksheetFunction.CountIf(s2.Range("E2:E" & i), s2.Cells(i, "E").Value) = 1 Then
 s1.Cells(sat1, "A").Value = s2.Cells(i, "E").Value
 s1.Cells(sat1, "C").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("F2:F" & sat2)) ' burdaki "C" TABLO sayfasındaki "C" sutununu "F2:F" ise Maliyet sayfasındaki f sutununu ifade eder
 s1.Cells(sat1, "D").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("G2:G" & sat2))
  s1.Cells(sat1, "F").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("H2:H" & sat2))
   s1.Cells(sat1, "G").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("I2:I" & sat2))
    '**********************************
    s1.Cells(sat1, "[COLOR="Red"]H[/COLOR]").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("[COLOR="Red"]J[/COLOR]2:[COLOR="Red"]J[/COLOR]" & sat2))
     '**********************************
    'Daha hangi sutunlar işlem yapacaksa '*************** arasındaki kodları ekleyip kırmızı yerlerideğiştirerek dosyanıza uydurabilirsiniz
    
sat1 = sat1 + 1
    End If
    Next i
ApplicationScreenUptading = True
MsgBox "İşlem  tamamlanmıştır." & vbLf & "Numan Şamil" _
    , vbOKOnly + vbInformation, Application.UserName
End Sub

 

[MURATSONMEZ03]

Örnekte anlatmak istediğim tablo kısmındaki sutun başlıklarına göre maliyet kısmındaki sutun başlıkları altındaki ücretler çalışanlar ve tüm değerleri toplatmak.Teşekkür ederim modüle atayıp denedim istediğim şekilde üzerindeki revizeleri yapıyorum .Yanlız bir sorunum daha var şimdi onun üzerinde çalışıyorum,tablo kısmındaki çalışan sayısını,maliyet kısmındaki bölümlerden saydırıp,tablo kısmına attıracağım,eğersay formülü kullansam bu işlem için olur mu?
iyi çalışmalar kolay gelsin

 

[numan şamil]

Merhaba
Dener misiniz

Sub numan()
Dim sat2 As Long, sat1 As Long, x As Long, s1, s2 As Worksheet, i As Long
Set s1 = Sheets("TABLO")
Set s2 = Sheets("MALİYET")
sat2 = s2.Cells(Rows.Count, "E").End(xlUp).Row
s1.Range("A3:O" & Rows.Count).ClearContents

ApplicationScreenUptading = False
sat1 = 3
For x = 2 To sat2
If s2.Range("E" & x).Value <> "" Then
    s2.Range("HH" & x) = 1
    End If
  Next x
For i = 2 To sat2
If WorksheetFunction.CountIf(s2.Range("E2:E" & i), s2.Cells(i, "E").Value) = 1 Then
s1.Cells(sat1, "A").Value = s2.Cells(i, "E").Value

s1.Cells(sat1, "B").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("HH2:HH" & sat2)) 'Çalışan sayısını tablo sayfasının B sütununa yazar
 
 s1.Cells(sat1, "C").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("F2:F" & sat2)) ' burdaki "C" TABLO sayfasındaki "C" sutununu "F2:F" ise Maliyet sayfasındaki f sutununu ifade eder
 s1.Cells(sat1, "D").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("G2:G" & sat2))
  s1.Cells(sat1, "F").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("H2:H" & sat2))
   s1.Cells(sat1, "G").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("I2:I" & sat2))
    '**********************************
    s1.Cells(sat1, "H").Value = WorksheetFunction.SumIf _
            (s2.Range("E2:E" & sat2), s2.Cells(i, "E").Value, s2.Range("J2:J" & sat2))
     '**********************************
    'Daha hangi sutunlar işlem yapacaksa '*************** arasındaki kodları ekleyip kırmızı yerlerideğiştirerek dosyanıza uydurabilirsiniz
    
sat1 = sat1 + 1
    End If
    
    'End If
    Next i
    s2.Range("HH2:HH" & Rows.Count).ClearContents
ApplicationScreenUptading = True
MsgBox "İşlem  tamamlanmıştır." & vbLf & "Numan Şamil" _
    , vbOKOnly + vbInformation, Application.UserName
End Sub