aylik arac giris sayisi icin sablon

[cansuyu66]

Merhaba arkadaslar,
forumu uzun süredir takip ediyorum fakat ilk defa bir soru soracagim bu yüzden hata yaparsam mazur görün.

Isim geregi her ay SAP den aylik acilan is emri raporunu cekiyorum. Bu rapor is emri numarasi, is emri tarihi ve aracin sase numarasini iceriyor (vb fakat önemli olan bu 3ü).
Bu rapordan benim aylik arac giris sayisini almam gerekiyor.
Bazi sistemsel gereksinimler yüzünden ayni tarihte 1 araca ait 2 veya daha fazla is emri numarasi olabiliyor. Fakat 1 arac = 1 ara giris sayisina tekabül etmekte.
Simdiye kadar her ay "eger" fonksionu ile manuel bir hesaplama yapiyordum. Is yüküm cogaldigindan bunun icin bir sablon olusturma fikri olustu ama nasil yapacagimi bilmiyorum.
Yani kisacasi SAP den excel formatinda cektigim raporu bir sablona yapistirdigimda bana aylik arac giris sayisini hesaplayip vermesini istiyorum.

Bu mümkünmüdür arkadaslar ve nasil gerceklestirilir, belki benim düsündügümden cok daha basit bir fikrinizde olabilir..

Daha aciklayici olmasi icin ekte örnek bir rapor gönderiyorum ...
Simdiden ilgilenen okuyan herkese tesekkür ederim..

 

[hhaseken]

pivot table

böyle bir bakın

 

[cansuyu66]

hhaseken,
ilgilendiginiz icin tesekkür ederim..
fakat pivot olmadanda is emri numarlarini saydigimizda ayni sonuca ulasiyoruz ve ne yazikki bu sonuc yanlis, cünkü bir araca ayni tarihte örnegin 3 adet is emri acilmis ise bu 1 olarak sayilmali.

yani örnegin

is emri no Tarih Sase numarasi
10061249 17.04.2012 wagp123471
10061250 17.04.2012 wagp123471
10061251 17.04.2012 wagp123471




bu araca 17 nisanda 3 is emri acilmis fakat arac giris olarak 3 degil 1 hesaplamali.

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

 

[cansuyu66]

dEdE,

valla süper olmus, dogru sonuc cikiyor..
birde bana nasil hazirlandigini ögretirseniz daha süper olacak =)

 

[dEdE]

Merhaba,
Kod sayfasınının içindeki Modül1 de bulunan kodlar bu sonucu üretiyor. Bu kodlar aslında;Veri/Filitre Uygula/Gelişmiş Filitre... (ingilizcesini bilmiyorum) menüsünden yaptığınız işi yapar. Ek olarak satır sayma işlemi eklenmiştir.

Sub Benzersiz1()
    Range("C:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("E:E"), Unique:=True
    son = [E65536].End(3).Row
    Cells(son + 1, 5).Value = "Toplam " & son & " Araç"
    Columns("E:E").AutoFit
End Sub

 

[cansuyu66]

ya arkadasim cok yardimci oluyorlar demisti ama bu kadar hizli sonuca varacagimida acikcasi beklemyiordum dEdE cok cok tesekkür ederim.. iyi aksamlar diliyorum

 

[dEdE]

Merhaba,
Kodda küçük bir yanlışlık yapmışım. İlk satırı da araç olarak saydırmışım. Doğrusu aşağıdadır.

Sub BenzersizSay()
    Range("C:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("E:E"), Unique:=True
    son = [E65536].End(3).Row
    Cells(son + 1, 5).Value = "Toplam " & son [COLOR="Red"]- 1[/COLOR] & " Araç"
    Columns("E:E").AutoFit
End Sub

Ayrıca aşağıdaki kod ile de sayfa üzerinde işlem yapılmadan sonuç alınabilir.

Sub BenzersizSay1()
i = 0
son = [C65536].End(3).Row
For say = 2 To son
    If WorksheetFunction.CountIf(Range(Cells(say, 3), Cells(son, 3)), Cells(say, 3).Value) = 1 Then i = i + 1
Next
   MsgBox "Toplam " & i & "  Araç.."
End Sub

Hoşçakalın.

 

[cansuyu66]

Sayın dEdE,

tekrar konu gündeme geldi ve bir kaç deneme sonucu küçük bir yanlış anlaşılma buldum..

farklı tarihlerde giriş yapan aynı şaselerinde 1 olarak saydırmak istiyorum

eke bir örnek koydum araç girişinin 11 olması gerektiği halde 9 çıkıyor.

Kodlamada ne tür bir değişiklik yapmak gerekiyor ki farklı tarihlerde giriş yapan araçlarıda ayrı saysın?

Şimdiden Teşekkürler....

 

[cansuyu66]

bunun için bir fikrim var fakat makroya dahil etmeyi başaramadım..
sizin yazdığınız kod sadece şase numarlarını sayıyor ama tarihide dikkate alması gerekiyor..

bunun için yeni bir sütunda AND fonksiyonunu kullanarak 2 sütunu kombine ederek istediğim sonuca varacağımızı düşünüyorum..

Makroya bunu nasıl ekleyebiliriz?

 

[dEdE]

Merhaba,
Aşağıdaki kodu modüle yapıştırarak dener misiniz.
Sorunu gelişmiş flitre ile çözdüm. CountIf olsa daha iyi olurdu sayfayı kullanmamış olurduk ama yapamadım. E ve F sütunarında veri olmamalıdır. Kod bu sütunları kullanıyor.

Sub Suz()
    Application.ScreenUpdating = False
    Set R = Range("B1:C1")
    Columns("E:F").ClearContents
    Range("B1:C" & [C65536].End(3).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=R, _
        CopyToRange:=Columns("E:F"), Unique:=True
    Son = [E65536].End(3).Row - 1
    Columns("E:F").ClearContents
    Application.ScreenUpdating = True
    MsgBox "Toplam  " & Son & "  Araç", vbInformation, Application.UserName
End Sub

 

[cansuyu66]

merhaba sayın dEdE,
yardımlarınızdan dolayı çok çok teşekkür ederim..
hafta sonu bende bir deneme yaptım ve kontrollerim sonucunda doğru sonuca ulaştığımı düşünüyorum ve sizinle paylaşmak istedim..

A ve B sütununu "&" ile birleştirdim ve onları saydırdım

 

[gurbuzs]

Merhaba,
Ekli dosyayı inceler misiniz?

merhaba
bu benim de ilgilendiğim bir konu ve aynı sıkıntı bende de var.
ancak ben pivot taplo olarak çözmek istiyorum.
ayın 1inden 30una kadar bir ay boyunca yüzlerce araç geliyor.pivot yapıyorum ama şasiler aynı günde mükerrer olunca adetler hatalı oluyor. bunu pivot ile çözebilir miyiz.