telefon faturalarını Şirketlere göre yazdırma

[KuTuKa]

hazırlamış olduğum dosya ektedir.benden istenen aranan numaralar
şehirler arası ise alt alta
turkcel ise alt alta,telsim ise alt alta ,avea ise alt alta yazılması gerekiyor.her telefon şebekesi için ayrı ayrı açıklamalar isteniyor.ben bunu veri süz otomatik yapıştır ile dnedim ama böyle çok zor oluyor ve hata payı yüksek.ekte dosyayı gönderiyorum.buna nasıl bir çare bulabiliriz.

saygılar
halil kutuka

 

[AS3434]

SN. KuTuKa
Dosyanız üzerinde az olan bilgim dahilinde küçük bir çalışma yaptım. Umarım işinize yarar.
Sevgilerle

 

[KuTuKa]

benim istediğim topam şeklinde değil her telefon şirketine göre ayrı ayrı göstermek.
ben 2815011 e göre aranan numaralar listeledim örnek aşağıda buna göre yapmamız gerekiyor.

 

[veyselemre]

yandaki sutunlara şirketlere göre aktarır

[vb:1:b4924d13d3]Sub grupla()

Columns("T:AZ").Delete

SAT53 = 9
SAT54 = 9
SAT55 = 9
SATXX = 9
For X = 9 To 46
For Y = 3 To 15 Step 6
If Left(Cells(X, Y + 2), 2) = "53" Then
SUT = 21
SAT = SAT53
GoSub YAZ
SAT53 = SAT53 + 1
End If
If Left(Cells(X, Y + 2), 2) = "54" Then
SUT = 28
SAT = SAT54
GoSub YAZ
SAT54 = SAT54 + 1
End If
If Left(Cells(X, Y + 2), 2) = "55" Or Left(Cells(X, Y + 2), 2) = "50" Then
SUT = 35
SAT = SAT55
GoSub YAZ
SAT55 = SAT55 + 1
End If
If Cells(X, Y + 2) <> "" And Left(Cells(X, Y + 2), 1) <> "5" Then
SUT = 42
SAT = SATXX
GoSub YAZ
SATXX = SATXX + 1
End If
Next Y, X
Exit Sub
YAZ:
Cells(SAT, SUT) = Format(Cells(X, Y), "dd.mm.yyyy")
Cells(SAT, SUT + 1) = Format(Cells(X, Y + 1), "hh:mm")
For Z = 2 To 4
Cells(SAT, SUT + Z) = Cells(X, Y + Z)
Next Z
Return
End Sub[/vb:1:b4924d13d3]

 

[mesudiye_052]

cevap

mesela liste içinde aveaların toplamı
505, 555 li hatlar
bir önceki gönderdiğim formüldeki hatalara düzeltme yapıldı

I4:I1000 arası 505 ve 544 avea hatlı telefonların toplam karşılığı olan K4:K1000 aralıklarını koşula uygun olarak toplar

=TOPLA(EĞER(I4:I1000>=100;EĞER(SAYIYAÇEVİR(PARÇAAL(I4:I1000;1;3))=505;K4:K1000)))+(TOPLA(EĞER(I4:I1000>=100;EĞER(SAYIYAÇEVİR(PARÇAAL(I4:I1000;1;3))=544;K4:K1000))))
yadıktan sonra enter demeden ctrl+şift+enter tuşlarına sıyala basınız
formulün başı ve sonu aşagıdaki şekli alacaktır

{=TOPLA(EĞER(I4:I1000>=100;EĞER(SAYIYAÇEVİR(PARÇAAL(I4:I1000;1;3))=505;K4:K1000)))+(TOPLA(EĞER(I4:I1000>=100;EĞER(SAYIYAÇEVİR(PARÇAAL(I4:I1000;1;3))=544;K4:K1000))))}

 

[Kullanıcı_Adı]

VERI | ALTTOPLAM ile kolaylıkla çözebilirsin.

 

[KuTuKa]

arkadaşlar çok teşekkür ederim. veyselemre nin makrosunu kullanamadım (mutlaka benden kaynaklanıyordur pek bakamadım)hepinize ayrı ayrı tşekkürler.

 

[abdi]

bende 2815012 nolu telefonun dökümlerini özet tablo ile düzenledim bi bakın isterseniz

 

[mesudiye_052]

ÖRNEK ÇALIŞMA

ÖRNEK ÇALIŞMA
güncellendi

 

[mesudiye_052]

TELEFON

Sayın YURTAŞ kardeşimizin satır yukarı çekme formülünü ve kendi formülümü ekleyerek yapmış olduğum bir çalışma

birkaç hata vardı onları da düzelttim

 

[mesudiye_052]

Hata

Listenin son bölümünde formül hatası yapmışım düzeltip yeniden güncelleyeceğim