BS Formu Düzenleme

[pliyades]

her ay vergi dairesine vermekle yükümlü oldugum Bs satış ve Ba alış faturalarının cok fazla sayıda olması ve bir firmanın birden fazla belge adedi olması işleri karıstırdı.
Örnerk:
türkcel firmasının 234 adet faturası toplamı 88.639 TL (kruşlar önemsiz) ancal vergi dairesi sitemine bu tabloyu beyan ederken türkcele ait tek bir satırda göstermem gerekiyor yani 234 adet belge sayısını ,toplam tutarı ve vergi numarasını tek bir satırda olması gerekiyor. suan bu toplama işlevini excelde elle yapıyorum 1600 satırı firma firma inceleyerek belge sayısını ayrı tutarlarını ayrı toplatıyor ve bir satıra toplam degerleri yazıyorum geriye kalan satırları siliyorum.
bunu bir formülle yapmak mümkünmüdür.yani her firmayı vergi numarasından tespit etse ve belge sayısını ve tutarlarını toplatsa ve tek satırda bilgileri yeniden düzenlese. ne güzel olacak ama.
ilginiz için şimdiden teşekkürler....

 

[AzminZaferi]

Kolay Gelsin

Veri menüsünün altında alttoplamlar veya özet tablo seçeneklerini incele işini baya kolaylaştıracaktır.:hey:

 

[Necdet]

Merhaba,

Her TURKCELL kaydı aynı şekilde yazılmamış, nasıl karşılaştırmak gerek?

TURKCELL İLETİŞİM
TÜRKCELL İLETİŞİM HİZ.AŞ.
TÜRCELL A.Ş.
TÜRKCELL İLETİŞİM HİZ.
TURKCELL İLETİŞİM HİZMETLERİ A.Ş.
TURKCELL İLETİŞİM HİZ.AŞ.

gibi. Bunlar nasıl tek kalemde toplanır?

hepsi aynı olsa Özet Tablo ile yapmak çok kolay olacaktır.

 

[Zeki Gürsoy]

Dosyanızdaki listeyi nerden elde ettiniz? Eğer program çıktısı ise, hesap isimlerini kullanın. Zira, bu haliyle işiniz zor görünüyor.

 

[Ömer]

Merhaba,

Anladığım kadar ile yapmaya çalıştım. Firma isimlerine göre değilde Abone Numaralarına göre hazırladım. Örnek dosyayı incelermisiniz istediğiniz bu mu?

.

 

[Recep İpek]

Alternatif bir çalışmayı ekte bulabilirsiniz.

Sub AktarTopla()
Dim a, i, n, sat, veri()
Set s1 = Sheets("data")
Set s2 = Sheets("rapor")
'*******************************************
a = s1.Range("a2:d" & s1.[b65536].End(3).Row).Value
sat = s1.[b65536].End(3).Row + 1
ReDim veri(1 To UBound(a, 1), 1 To 4)
'*******************************************
With CreateObject("Scripting.Dictionary")
    .CompareMode = vbTextCompare
    For i = 1 To UBound(a, 1)
           If Not IsEmpty(a(i, 2)) Then
                 If Not .exists(a(i, 2)) Then
                    n = n + 1
                    veri(n, 1) = a(i, 1)
                    veri(n, 2) = a(i, 2)
                    .Add a(i, 2), n
                  End If
                    veri(.Item(a(i, 2)), 3) = veri(.Item(a(i, 2)), 3) + a(i, 3)
                    veri(.Item(a(i, 2)), 4) = veri(.Item(a(i, 2)), 4) + a(i, 4)
            End If
    Next i
End With
'*******************************************
sat = s2.[b65536].End(3).Row + 1
s2.Range(Cells(2, "a"), Cells(sat, "d")).ClearContents
s2.[a2].Resize(n, 4).Value = veri
''*******************************************
MsgBox "Bitti"
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[AzminZaferi]

=soldan(a1;10) yazıp ünvanları eşitlemeye çalışın ilk on harfte farklılık yoksa sağlıklı bir çalışma olur,zaten genelde ünvanların sonlarında farklılık olur. Daha sonra özet tabloya devam. Türkcell vadefon avea gibi ünvanları tektip yazmaya çalışın veya herkesin cari açmasına izin vermeyin...

 

[pliyades]

Merhaba,

Anladığım kadar ile yapmaya çalıştım. Firma isimlerine göre değilde Abone Numaralarına göre hazırladım. Örnek dosyayı incelermisiniz istediğiniz bu mu?

.

evt olmuş yaa süpersin üstad cok teşekkür ederim. valla gözlük almak zorunda kalacaktım bir kaç sonra. bu arada tüm ilgilenen arkadaşlara da teşekkürler bu tablodaki veriyi tedaş ın abone net sisteminden aldım. aslında sistemde bir bs formu modülü var ancak 2,5 milyon abone olunca ve 8.000 ytl üzeri satış yapılan aboneler listelendiginde mesela türkcel gibi 300 den fazla aboneligi olan firmaları alt alta sıralıyor, vergi dairesi toplam satışı istediginden toplamak zorunda kalıyordum.
cok teşekkürker arkadaşlar herkesin yeni yılını kutluyorum..

 

[selo1234]

Bir de ekteki dosyaya bakınız. Aradığınız budur sanırım.
Ancak, abone noları aynı olan isimleri birbirine yakın firma isimleri var. Herhalde onları baştan temizlemek gerekir.
Kolay gelsin

 

[exes]

Sayın Recep İpek Bey,
Verileri

s2.[a2].Resize(n, 4).Value = veri
'Yerine
Listbox1.list=veri 'gibi

sayfada listelemek yerine Listbox ta listeleme şansımız varmı acaba?

 

[Recep İpek]

'*******************************************
sat = s2.[b65536].End(3).Row + 1
s2.Range(Cells(2, "a"), Cells(sat, "d")).ClearContents
s2.[a2].Resize(n, 4).Value = veri
''*******************************************

yerine

'*******************************************
ListBox1.Clear
ListBox1.List = veri
''*******************************************

yazarak listeleyebilirsiniz.

 

[exes]

Sayın Recep İpek Bey,

Yarıdımınız içi teşekkür ederim. Sizin yazdığınız kodu denedim.

s2.[a2].[COLOR=red][COLOR=black]Resize(n,[/COLOR] 4[/COLOR][COLOR=black])[/COLOR].Value = veri

Bu kodun listbox'ta çalışması veya sayfadaki kolonların listboxta görünmesi.
Bir kolon için sorun görünmüyor ve çok güzel.
Saygılarımla