BA-BS Formu

[bulentkars]

Arkadaşlar Merhaba

Ekte ki bs ba tablosunda kı birden fazla firmaları rapor sayfasına tek olarak aktarmak istiyorum.yardımlarını bekliyorum şimdiden teşekkür ederim

 

[tar23]

sayın bülentkars
özet tablo ile sorununuzu çözebilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BS_BA_RAPOR()
    Sheets("Rapor").Select
    Range("A2:D65536").Clear
    Sheets("VERİ").Columns("A:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1:B1"), Unique:=True
    With Range("C2:C" & [A65536].End(3).Row)
        .Formula = "=SUMIF(VERİ!B:B,B2,VERİ!C:C)"
    End With
    With Range("D2:D" & [A65536].End(3).Row)
        .Formula = "=SUMIF(VERİ!B:B,B2,VERİ!D:D)"
    End With
    With Range("C65536").End(3).Offset(1)
        .Font.Bold = True
        .Interior.ColorIndex = 6
        .Formula = "=SUM(C2:C" & [C65536].End(3).Row & ")"
    End With
    With Range("D65536").End(3).Offset(1)
        .Font.Bold = True
        .Interior.ColorIndex = 6
        .Formula = "=SUM(D2:D" & [D65536].End(3).Row & ")"
    End With
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[Ali]

Aşağıdaki linki inceleyiniz.

Ba ve Bs Bildirim Formlarıyla İlgili Örnek Uygulamalar

.

 

[bulentkars]

Çok Teşekkür ederim