Sayfa oluşturma ve format değiştirme

[yanginci34]

Ekli dosyayı görüntüle yeni çalışma.xlsm
Merhaba arkadaşlar. Sizden ricam dosyamdaki ORJ sayfası ve tanımlama sayfasindan yararlanılarak diğer sayfaları makro ile kendisi yapması ÇALIŞMA detay sayfasındaki K sutunundaki ilk numara manüel olarak girilecek. Şimdiden teşekkürler.

 

[yanginci34]

Arkadaşlar ben ÇALIŞMA detay sayfasını oluşturdum sizlerden tek ricam FATURA FORMATI sayfasına müşteri ve ürün kodlarını dikkate alarak tekrarsız liste oluşturup C,D,E,F sütunlarının toplamlarını almak.

 

[cems]

Anladığım doğru ise ;

Öncelikle fatura formatı sayfasını kopyaladım, sağda yeni sayfa oluşturdum.
Müşteri kodu ve ürün kodunu baz alarak yinelenenleri kaldırdım ( 9 yinelenen buldu )
EĞERSAY ile satır sayısını aldım
ALTTOPLAM ile sütun toplamını aldım.

Sonuç dosya ektedir , inceleyiniz.

 

[yanginci34]

İlginiz için teşekkür ederim fakat çok özür dilerim ben yanlış anlatmış olabilirim ben FATURA FORMATI sayfasını makro yardımı ile otomatik oluşturmak istiyordum.

 

[cems]

FATURA FORMATI sayfası

Neyi kasdediyorsunuz ? Elde bir örnek hazırlayıp eklermisiniz?

 

[yanginci34]

Dikkat ettiyseniz c sütunu ÇALIŞMA detay sayfasının c sütunu yani müşteri kodu ve f sütunundaki yakıt cinsinin tanımlama sayfasına denk gelen yakıt kodunun aynı olanlarının toplamları ben bunu fatura FORMATI sayfasının c,d,e,f sütunlarının hepsinde makro ile yapmak istiyorum

 

[yanginci34]

Üstad benim genel olarak anlatmak istediğim FATURA FORMATI sayfasını makro ile yapmak istiyorum

 

[yanginci34]

Mevcut şekli elle yapılmış ben bu şekle makro ile getirmek istiyorum

 

[yanginci34]

Pekala aşağıdaki formülü makro ya çevirip FATURA FORMATI sayfasının c sutununa A sütununun son dolu satırına kadar uygulama bilir miyiz
=TOPLA.ÇARPIM(('ÇALIŞMA detay'!C:C='FATURA FORMATI'!A2)*('ÇALIŞMA detay'!L:L='FATURA FORMATI'!B2);'ÇALIŞMA detay'!G:G)

 

[yanginci34]

Üstadlar sadece bu formülü makro ya çevirmek bana yetecek şimdiden teşekkürler.

 

[yanginci34]

Arkadaşlar benim için zor ama forumda bu soruyu çok kolay halledecek Üstadlar var lütfen yardımlarınızı bekliyorum

 

[Ziynettin]

Arkadaşlar ben ÇALIŞMA detay sayfasını oluşturdum sizlerden tek ricam FATURA FORMATI sayfasına müşteri ve ürün kodlarını dikkate alarak tekrarsız liste oluşturup C,D,E,F sütunlarının toplamlarını almak.

Merhaba,

C, D, E, F sütun toplamlarını ORJ sayfanızdan alınmıştır.

Sub toplam_al()
Set s1 = Sheets("ORJ")
Set s2 = Sheets("FATURA FORMATI")
Set d = CreateObject("scripting.dictionary")
a = s1.Range("K2:P" & s1.Cells(Rows.Count, "K").End(3).Row)
On Error Resume Next
ReDim b(1 To UBound(a), 1 To 4)
For i = 1 To UBound(a)
    deg = CStr(a(i, 1))
    If Not d.exists(deg) Then
        say = say + 1
        d(deg) = say
    End If
    sat = d(deg)
    For y = 3 To UBound(a, 2)
        b(sat, y - 2) = b(sat, y - 2) + CDbl(a(i, y))
    Next y
Next i

c = s2.Range("A3:A" & s2.Cells(Rows.Count, "A").End(3).Row)
ReDim v(1 To UBound(c), 1 To 4)
For i = 1 To UBound(c)
    For y = 1 To 4
        v(i, y) = b(d(c(i, 1)), y)
    Next y
Next i
s2.[C3].Resize(UBound(c), 4) = v
MsgBox "tamam", vbInformation
End Sub

 

[yanginci34]

Çok teşekkür ederim Hakkınızı helal ediniz epey uğraş vermişsiniz elinize sağlık. Eğer vaktiniz olursa kodların açıklamalarını yaparsanız çok memnun olurum olmazsa da canınız sağolsun tekrar teşekkürler.