• DİKKAT

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

İstatistik oluşturma

A

agreee

Katılım
4 Mayıs 2009
Mesajlar
64
Excel Vers. ve Dili
excel 2003
Dim sbt As Range, tar3 As Date, tar4 As Date, tarih1 As Integer
tar3 = "1 / 2 / 2009"
tar4 = "28 / 2 / 2009"
For Each sbt In Worksheets("GİRİŞ").Range("U2:U5550")
If IsDate(sbt) And sbt >= tar3 And sbt <= tar4 Then
tarih1 = tarih1 + 1
TextBox12.Value = tarih1
Sheets("KADRO").Range("B18").Value = TextBox12.Text
End If

Next

Yukarida sadece u2 kolonuna göre tarihler sayılarak işlem yapılıyor.
Örneğin N kolonunda bekar ve evliler var. U kolonundada işe giriş tarihleri
ocak veya şubat ayında işe alınanların kaçı bekar kaçı evlidir.bunu bulabirimiyiz
 
Herhangi bi sonuç yok
Private Sub Label86_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Set c = Sheets("Sayfa1").Range("U2:U65000").Find(CDate("1/1/2009"))
If Not c Is Nothing Then
Set s1 = Sheets("sayfa1").Range("U2:U65000").Find(CDate("31/01/2009"))

u = WorksheetFunction.CountIf(Sheets("Sayfa1").Range("N2" & c.Row & ":N6500" & s1.Row), "BEKAR")
TextBox11.Value = u
End If
End Sub
 
Bunuda denedim iki tarih arasında kalan "bekar" kişi sayısını bulamıyorum
 
Arkadaşlar ekteki dosyada u kolonunda tarihler var.Bu tarihler işe giriş tarihi.. amacım işe giriş tarihine göre kaçtene lisans mezunu,kaç tane bekar, vs var.Örneğinin: Ocak ayında 1inde 3ünde ve 5 inde işe giren ler olsun.3 kişinin 2 si evli biri bekar olsun. Şunu istiyorum Ocak ayında kaç bekar kaç evli işe aldım.
Yardımcı olursanız sevinirim.
 
Arkadaşım siz makrolu yapmak istiyorsunuz ama ben basitce Alttoplam ve filtre ile yaptım işinize yararmı bilmiyorum önce alt toplam süzde kalıyormuş onun için yenilemek gereği duydum.
Kolay gelsin
 

Ekli dosyalar

Çok teşekkür ederim sayın fedeal bu konu ile ilgili bildiniğiniz kaynak kitaplar varsa ve paylaşırsanız sevinirim
Saygılarımla,
Bu arada iş görüşmelerim olumsuz geçti.
İşe girdiğimde bu dosyalardan çok faydalanacağım.
Çok teşekkürler.....
 
Sayın fedeal burda bekar, evli yerine maaşlar olsaydı nasıl toplamını görürdük.ocak ayında girenlerin maaşlarının toplamı gibi... denedim ama yapamadım.Kusura bakmayın çok soru soruyorum Cahillk işte benimkisi
 
Kaynak kitap için elit.nette excel2003 enine boyuna programlama kitabını öneririm bana çok faydası oldu 1 senede müthiş şeyler ögrendim.
 
tutar toplamı için
TextBox11.Text = Val(TextBox11.Text) + 1 olan satırı

TextBox11.Text = Val(TextBox11.Text) + SF.Cells(I, 8).Value
olarak değiştirmelisiniz. kırmızı sütun numarası maaş yazan sütun numarasıyla değiştirin
 
Sn. Agree aşağıdaki kod ile deneyin.
Kod: 
Sub Evli_BeKar()

    Range("L2") = WorksheetFunction.CountIf(Range("G2:G14"), "BEKAR")
    Range("L3") = WorksheetFunction.CountIf(Range("G2:G14"), "EVLİ")
    
End Sub

Sub Kadın_Erkek()

    Range("N2") = WorksheetFunction.CountIf(Range("F2:F14"), "KADIN")
    Range("N3") = WorksheetFunction.CountIf(Range("F2:F14"), "ERKEK")
    
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst