• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ceza Sayılarını Toplu almak

E

Ergün GÖKER

Katılım
25 Ağustos 2012
Mesajlar
562
Excel Vers. ve Dili
Office 2003
Herkese iyi akşamlar
Ekli dosyada anlatmaya çalıştım bir veri giriş sayfam var burada günlük olarak ceza yazılan araç cinslerini ve ceza maddeleri girişi yapıyorum. Günlük olarak 150-200 ceza kaydı giriyorum. Aylık olarak yaklaşık 2500-3000 ceza girdiğini düşünürsek ay sonu bunu tek tek saymak ve ayırmak baya zamanımı alıyor.Hangi ceza maddesinden hangi araç cinsi vs. Bunu makro ile bazen hangi ekip hangi ceza maddelerinden hangi araca ne kadar ceza girişi yapmış yada TOPLAM ekipler olarak yazmış görmek ve ay sonu çıktıyı almak istiyorum. Bunu çözebilecek bir makro koduna ihtiyacım var. Yardım edenlere şimdiden teşekkürler
 

Ekli dosyalar

Hocam dosyanıza baktım.
ancak ne istediğinizi değilde
Kriterlerinizi pek anlayamadım
Koşullarınızı yani..
Daha açık ve örneklerle desteklerseniz çözüm buluruz elbet..
 
Merhabalar,

Özet tablolar (pivot table) ile istediğiniz rapor sayfalarını oluşturabilir, veri eklendikçe sürekli güncel kalmalarını da sağlayabilirsiniz.

Saygılarımla.
 
exceluygulamalari' Alıntı:
Merhabalar,

Özet tablolar (pivot table) ile istediğiniz rapor sayfalarını oluşturabilir, veri eklendikçe sürekli güncel kalmalarını da sağlayabilirsiniz.

Saygılarımla.
Genişletmek için tıkla ...

sayın exceluygulamalari ben makro ile yapmanın daha uygun ve kullanışlı olacağını düşünüyorum. çünkü buna bağlantılı çok sayfam var. Teşekkürler
 
EK1B Sayfası kod bölümüne eklyip denermisiniz.
Kod: 
Private Sub CommandButton1_Click()
Set s1 = Sheets("DEPO4")
Set s2 = Sheets("EK1B")
s2.Range("C14:Q200").ClearContents
ilk = 10
son = s1.Range("E65536").End(xlUp).Row
For i = ilk To son
a = 6
If s2.Cells(2, "C") = s1.Cells(i, "A").Value And s2.Cells(3, "C") = s1.Cells(i, "B") Then
s2.Cells(2, "G") = s2.Cells(2, "C"): s2.Cells(3, "G") = s1.Cells(i, "a")
SON1 = s2.Range("C201").End(3).Row + 1
For k = 3 To 15
s2.Cells(SON1, k).Value = s1.Cells(i, a)
a = a + 1
Next
s2.Cells(SON1, "Q").Value = WorksheetFunction.Sum(Range("D" & SON1 & ":P" & SON1))
End If
Next
End Sub

Private Sub CommandButton2_Click()
Set s1 = Sheets("DEPO4")
Set s2 = Sheets("EK1B")
s2.Range("C14:Q200").ClearContents
ilk = 10
son = s1.Range("E65536").End(xlUp).Row
For i = ilk To son
a = 6
If s2.Cells(3, "C") = s1.Cells(i, "B") Then
s2.Cells(2, "G") = s2.Cells(2, "C"): s2.Cells(3, "G") = s1.Cells(i, "a")
SON1 = s2.Range("C201").End(3).Row + 1
For k = 3 To 15
s2.Cells(SON1, k).Value = s1.Cells(i, a)
a = a + 1
Next
s2.Cells(SON1, "Q").Value = WorksheetFunction.Sum(Range("D" & SON1 & ":P" & SON1))
End If
Next
End Sub
 
Hocam ilginize teşekkürler. Hocam dosyayı denedim. Ancak hiçbir veriyi getirmedi. sadece G2 ve G3 hücrelerine ekip isimlerini getirdi. sanırım kodda bir eksiklik var.
saygılarımla
 
Son düzenleme:
Hocam dosyanız ekte denermisiniz.
 

Ekli dosyalar

Hocam öncelikle teşekkürler. Evet istediğime yakın küçük düzeltmeler gerekiyor
Hocam önce sağa doğru toplam var araçlara yazılan onu topluyor sonra UYGULANAN DİĞER CEZALAR onuda sayıp en sağa genel toplam alacak
ayrıca alta doğru 200 satırda yukardan aşağı doğru toplamı alacak araçlara yazılanlar ve toplam diğer ceza ve genel toplamı yani benim yazacağım ceza maddeleri 200 satıra kadar olacak umarım anlatabildim. Tekrar teşekkür ederim
Saygılarımla
Hocam şimdi göreve gidiyorum. Gece 01 de döneceğim o zaman kontrol ederim.
 
Hocam DEPO4 sayfası F sütununa girdiğiniz caza kodlarını baz alarak kaç değişik ceza kodu girerseniz o kadar satır çizimi yapıyor.
Altına toplamını alıyor.
 

Ekli dosyalar

Hocam evet şimdi oldu toplamları veriyor ve sorun yok gibi. Küçük bir kaç dokunuşunuza ihtiyacım var.
1. Örneğin: ceza maddesinden araç cinsi yoksa o satırlarda gizlenecek bunu hem ekip kriteri hemde ay kriterine göre yapacak yani o ay içerisinde yazılan cezalar dönemi göster dediğimde hepsini gösterecek. gösteriyorda ancak ekip olarak göster dediğimde bazı ceza maddelerinde araç yazılmamışsa o satırıda gizleyece. sadece araç cinsi olanlar yazılacak
2. Hocam resmi yazışma olduğu için alttaki toplam altına tanzim eden ve tasdik eden isimler açılacak. Açıyorum lakin veri getir dediğimde bunları siliyor. Bunu belli bir satır aralığında sınırlayıp altına ilgili isimleri açsam sadece o satırlar arasına atsa ve isimler görünmesi mümkünmüdür.
Size biraz zahmet veriyorum Kusuruma bakmayınız.
Tekrar teşekkür ederim
 
Mustafa MUTLU' Alıntı:
Hocam DEPO4 sayfası F sütununa girdiğiniz caza kodlarını baz alarak kaç değişik ceza kodu girerseniz o kadar satır çizimi yapıyor.
Altına toplamını alıyor.
Genişletmek için tıkla ...

Hocam resim ekledim umarım fikir verir
 

Ekli dosyalar

  • onay 1.jpg
    onay 1.jpg
    190.5 KB · Görüntüleme: 7
  • onay.jpg
    onay.jpg
    93 KB · Görüntüleme: 1
Ergün hocam
Alt kısma yazacağın Ünvan vs. dir herhalde
Ben C sütununa 4 satır yazdım
Bunları C4,C5,D4,D5 den alacak

Kodların aşağıdaki kısmı bu işlemi yapıyor.
isterseniz değiştirebilirsiniz.
Örneğin : "c" yerine "d" yazarsanız d sütununa alır
+2 ile değilde +3 ile başlarsanız son satırdan sonra 2 satır boş bırakır.

deneyiniz..

Kod: 
Sheets("EK1B").Cells([EK1B!B1] + 2, "c") = [EK1B!C4]
Sheets("EK1B").Cells([EK1B!B1] + 3, "c") = [EK1B!C5]
Sheets("EK1B").Cells([EK1B!B1] + 4, "c") = [EK1B!D4]
Sheets("EK1B").Cells([EK1B!B1] + 5, "c") = [EK1B!D5]

Sheets("EK1B").Range("B1:Q1").ClearContents
End Sub
 

Ekli dosyalar

Komutanım inşallah istediğin gibi olmuştur..

iyi geceler..
 

Ekli dosyalar

Mustafa Hocam evet istediğim şekil tam olarak bu Ellerine sağlık
Biliyorum bana kızacaksın. Belkide yeter diyeceksin biliyorum affına sığınarak yazıyorum
diğer yaptıklarında kodlar çok hızlı çalışyor fakat bu son yaptığında 5-6 saniyede süzme ve veri alma işini yapıyor. Bunun sebebi nedir ?
Allah razı Olsun hocam
 
Satır gizleme olayı zamanı uzatıyor.
 
Evet hocam anladım
farklı ceza maddeleri olduğu zaman örneğin 20-25 farklı ceza grubu süre baya bir uzadı 20-25 saniyeyi buldu..
 
Yarın tekrar incelerim.
Daha hızlı çalışması için ne yapabiliriz bakarım.

Vakit geç oldu
İyi geceler..
 
Çok teşekkür ederim hocam. En güzel günler sizlerin olsun. Hakkınız ödenmez. Elleriniz dert görmesin.
sağlıcakla ve afiyetle kalın Hayırlı geceler
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst