İsim ve Tutar Sıralama

[ugurcadir]

Arkadaşlar
Ekteki Dosyada Ba-Bs Mutabakı Eki vardır Satış bilgilerimi yapıştırarar formülle isme göre sıralama yapmak istiyorum.

Kısaca C Sutunununda tekrar eden isimleri vergi matrah toplamına göre K sutunu sıralayacak L sutunuada toplam vergi matrahını yazacak.

 

[Vedat Özer]

Selamlar,


Ekdeki dosyayı inceleyin.

 

[ugurcadir]

Selamlar,


Ekdeki dosyayı inceleyin.

Hocam ilk olarak ellerinize sağlık. Yanlız galiba fatura tutarı kısmında bir sorun var

=EĞER(J2="";"";NSAT(ETOPLA(C:C;C2;E:E))) c2 yerine "J2" olması gerekmiyomu.

Bide Hocam Fatura tutarına göre sıralamıyo (çok önemli değil ama) raporu başka yerlerde belki kullana bilirim bunun imkanı varmıdır.

 

[Vedat Özer]

Selamlar,


Ekdeki dosyayı inceleyin,

Option Explicit
 
Sub verial()
Dim S1 As Worksheet, S2 As Worksheet
Dim i As Long, son As Long, son1 As Long, sat As Long
 
Set S1 = Sheets("Satışlar"): Set S2 = Sheets("Rapor")
 
Application.ScreenUpdating = False
 
son = S1.[c65536].End(3).Row
S2.Range("A2:C65536").ClearContents
S2.Range("A:C").Borders.LineStyle = 0
 
sat = 1
For i = [COLOR="blue"]2[/COLOR] To son
    If WorksheetFunction.CountIf(S1.Range("[COLOR="Blue"]c2:c[/COLOR]" & i), S1.Cells(i, "c")) = 1 Then
        sat = sat + 1
        S2.Cells(sat, "A") = S1.Cells(i, "c")
    End If
Next i
 
son1 = S2.[A65536].End(3).Row
 
For i = 2 To son1
   S2.Cells(i, "B") = WorksheetFunction.CountIf(S1.Range("c2:c" & son), S2.Cells(i, "A"))
   S2.Cells(i, "C") = WorksheetFunction.SumIf(S1.Range("[COLOR="blue"]c2:c[/COLOR]" & son), S2.Cells(i, "A"), S1.Range("[COLOR="Blue"]e2:e[/COLOR]" & son))
   
   Next i
 
S2.Range("a1:c" & son1).Borders.LineStyle = 1

S2.Range("a1:c" & son).Sort Key1:=S2.Range("c2"), order1:=xlDescending

Application.ScreenUpdating = True

MsgBox "İşleminiz Tamamlanmıştır", vbCritical

End Sub

 

[ugurcadir]

Hocam Teşekkür ederim yüzde 99,9 olarak çalışıyor. 0,01 ise 2 .satırı almıyo

 

[Vedat Özer]

Selamlar,


Yukarda yazı rengini belirtiğim yerleri değiştirdim,

Örnek dosya günceldir.

 

[accountant80]

Vedat bey emeğinize sağlık Uğur Bey'inde vesilesi ile bu çalışma benim de çok işime yaradı. Tekrar teşekkürler.

 

[ugurcadir]

Selamlar,


Yukarda yazı rengini belirtiğim yerleri değiştirdim,

Örnek dosya günceldir.

Vedat Bey Elinize Kolunuz sağlık tam istediğim gibi oldu sağolun.

Benim açımdan konu kapanmıştır. ama Bunu formülle yapmak mümkünmüdür. (makro bilmediğimden tekrar böle birşeyle karşılaştığımda kendi başıma çözmek açısından soruyorum)

 

[ugurcadir]

Vedat bey emeğinize sağlık Uğur Bey'inde vesilesi ile bu çalışma benim de çok işime yaradı. Tekrar teşekkürler.

Kardeşim Aynen önemli bir konu özellikle mikro kullanıcıları belki liste çıkarmak için değil ama kontrol amaçlı kullanmak açısından (067110 kodlu menü) satış faturaları alıp bs kontrolü yada ba kontrolü yapabilirler.

 

[accountant80]

Ben GMSNet kullanıyorum, program BABS formlarıı kendi hazırlıyor ama her ay 191 ve 391 den kontrol ediyordum, bu kod sayesinde şimdi muavin defteri excele alıyorum, oradan bu çalışmaya aktarıyorum tek tuşla kontrol ediliyor.

 

[ugurcadir]

Ben GMSNet kullanıyorum, program BABS formlarıı kendi hazırlıyor ama her ay 191 ve 391 den kontrol ediyordum, bu kod sayesinde şimdi muavin defteri excele alıyorum, oradan bu çalışmaya aktarıyorum tek tuşla kontrol ediliyor.

Desene Program Farklı amaç aynı

 

[accountant80]

Evet aynen öyle cezaların el yaktığı bu dönemde yoğurdu üfleyerek yiyoruz.

Sizde mi SMMM siniz?

 

[Vedat Özer]

Selamlar,

Formül ile yapılışı

Ekli dosyadaki "SIRALAMA" Sayfa sekmesini inceleyin,

 

[ugurcadir]

Evet aynen öyle cezaların el yaktığı bu dönemde yoğurdu üfleyerek yiyoruz.

Sizde mi SMMM siniz?

Yok ben şirkette çalışıyorum Smmm staj ile hala uğraşıyom (anlayacağınız daha olamadım)

Benim Programda Rapor veriyor ama programlar koda göre raporlamaları veriyorlar bende iste farklı kodlu ama aynı ismi vergi numarası 3-4 cari olan firmalar var bunlarda sorun çıkıyodu Ba-Bs Bide Müşteri yükü çok ağır 200 ü geçiyor firma sayısı

 

[ugurcadir]

Selamlar,

Formül ile yapılışı

Ekli dosyadaki "SIRALAMA" Sayfa sekmesini inceleyin,

Çok Teşekkürler.

 

[accountant80]

Yok ben şirkette çalışıyorum Smmm staj ile hala uğraşıyom (anlayacağınız daha olamadım)

Benim Programda Rapor veriyor ama programlar koda göre raporlamaları veriyorlar bende iste farklı kodlu ama aynı ismi vergi numarası 3-4 cari olan firmalar var bunlarda sorun çıkıyodu Ba-Bs Bide Müşteri yükü çok ağır 200 ü geçiyor firma sayısı

Allah kolaylık versin ben belgeyi geçen yıl aldım, ne kadar sıkıntılı bir dönem olduğunu biliyorum.