Grup ve Gune Gore Toplam Aldırma

[lfkaya]

Arkadaşlar Ustaların yardımına İhtiyacım Var İçinde Açıklaması Olan Excel Tablosunda Toplama Aldırmam Lazım Bu Konuda Yardımcı Olursanız Sevınırım
I

 

[Orion1]

Dosyanız ektedir.

Sub toplamalar()
Dim i As Long, sat As Long, deg As String, myarr() As Variant, z As Object
Dim a As Long
Sheets("Bordro").Select
Application.ScreenUpdating = False
Range("E2:G65536").ClearContents
sat = Cells(65536, "A").End(xlUp).Row
ReDim myarr(1 To 3, 1 To sat)
Set z = CreateObject("Scripting.Dictionary")
For i = 2 To sat
    deg = Cells(i, "A").Value & "-" & Cells(i, "C").Value
    If Not z.exists(deg) Then
        a = a + 1
        z.Add deg, a
        myarr(1, a) = Cells(i, "A").Value
        myarr(2, a) = Cells(i, "C").Value
    End If
    myarr(3, z.Item(deg)) = myarr(3, z.Item(deg)) + 1
Next i
If a > 0 Then Range("E2").Resize(z.Count, 3) = Application.Transpose(myarr)
Application.ScreenUpdating = True
MsgBox "Toplamlar çıkarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[lfkaya]

Arkadaşlar İlginize Teşekkür Ederim

 

[lfkaya]

muygun arkadaşımın göndermiş olduğun tabloda poz nosu aynı olan grunların gun ve kısı toplamı alta veya yana nasıl aldırabılrım

 

[hhaseken]

Özet tablo

ile denedim bakarsınız

 

[lfkaya]

İlgine Teşekkürler ama istediğim tam o değildi yanlış ifade ettim sanırım dosyayı yeniden açıklayarak upload ettim

 

[hhaseken]

Pardon a06 değeri 57 hangi işlemin sonucu bunu tam anlayamadım bilgi verebilirmisiniz

 

[lfkaya]

Ekli Dosyayı Yeniden Düzenleyip Gönderdim Arkadaşım Bu Sefer Tam Açıklama Var

 

[hhaseken]

Geçici olarak

Ben geçici olarak yapmaya çalıştım umarım üstadlar bunu dahada basitleştirir

 

[lfkaya]

Kardes Bu bıt olcude ısımı gorurde kendısının pos numarasına gore grublemeyı otomatık yapması lazım sen manuel gruplayıp toplamı aldırmısssın benım sorunum aynı poz olanları dokup sonra altına toplam aldırmada

 

[muygun]

Merhaba;
Doğru anladıysam eki inceleyin. (istediğiniz farklı birşey ise örnekleyerek belirtin)
İyi çalışmalar.

 

[lfkaya]

İstediğim değerler doğru ama şekil yanlış pozları F ve H sütunları arasındaki gibi dokulse ama o poz bitince alta alt toplam şeklinde olsa istedim sanırım en son göndermiş olduğum dosyada bunu anlatmıştım

 

[muygun]

Merhaba;
Formatınızda ısrarlı değilseniz eki tekrar inceleyin.
İyi çalışmalar.

 

[lfkaya]

Teşekkürler Bu İşimi Görür Ellerinize Sağlık

 

[lfkaya]

Muygun arkadasım gonderdıgın tabloda formul cubugunun ustune gelıp enterleyınce degerler degısıyor sebebı ne

 

[muygun]

Merhaba;
Sorunuzun kaynağı I ve J sütunlarındaki gri hücreli alanlar ise burdaki formüller dizi formülüdür.
Dizi formülleri formül satırında iken CTRL+SHİFT+ENTER tuşlarına birlikte basılarak aktive edilmelidir. Bu işlem sonucunda formül {} parantezleri arasına girer.
Sitenin arama motorunda dizi formülü diye arama yaparsanız daha geniş açıklama ve ugulama örnekleri bulabilirsiniz.
İyi çalışmalar.

 

[lfkaya]

Yardımları Icın Tum Arkadaslara Tesekkur Ederım Bılıyorum Cok Oluyorsunuz Dıyeceksınız Ama Ekde Gondhttp://www.excel.web.tr/newattachment.php?do=manageattach&p=#erdıgım Acıklayıcı Bılgılerın Oldugu Dosyadakı Duzenlemelerı Yapmamada Yardımcı Olmanız Mumkumu Sımdıden Tesekkur Ederım