Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 15-10-2017, 13:14   #1
yavuz_yil
 
Giriş: 28/06/2013
Şehir: MUĞLA
Mesaj: 113
Excel Vers. ve Dili:
EXCELL2010 /TÜRKÇE
Post Saat aralığında günlere göre özellik saydırma

Değerli Üstadlarım,

Aşağıda örnek linki mevcut dosyamdaki çalışmayı otomatik olarak saydırmak istiyorum.İş yerinde kullandığım ve özellikle yaz aylarında hazırlamakta çok vakit harcamak zorunda kaldığım bu tablo ile ilgili yardımcı olabilirseniz minnettar kalırım,

https://www.dosyaupload.com/dq1i

Saygılarımla,
__________________
Yavuz YILMAZ
Milas-Bodrum Havalimanı
yavuz_yil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2017, 15:20   #2
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,797
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Anladığım Sayfa1 sayfasındaki verilerin Belirlenen kriterlere göre YOLCU sayfasında sayılarını istiyorsunuz.
O halde;
Tarih verisi Sayfa1 sayfasında hangi sütunda?
SABAH AKŞAM GECE verisi Sayfa1 sayfasında hangi sütunda?
DAR GÖVDE GENİŞ GÖVDE verisi Sayfa1 sayfasında hangi sütunda?
Bunları belirlerseniz çözüm kolaylaşır.
İyi çalışmalar.
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2017, 16:45   #3
yavuz_yil
 
Giriş: 28/06/2013
Şehir: MUĞLA
Mesaj: 113
Excel Vers. ve Dili:
EXCELL2010 /TÜRKÇE
Varsayılan

Alıntı:
muygun tarafından gönderildi Mesajı Görüntüle
Merhaba;
Anladığım Sayfa1 sayfasındaki verilerin Belirlenen kriterlere göre YOLCU sayfasında sayılarını istiyorsunuz.
O halde;
Tarih verisi Sayfa1 sayfasında hangi sütunda?
SABAH AKŞAM GECE verisi Sayfa1 sayfasında hangi sütunda?
DAR GÖVDE GENİŞ GÖVDE verisi Sayfa1 sayfasında hangi sütunda?
Bunları belirlerseniz çözüm kolaylaşır.
İyi çalışmalar.
Sn.MUYGUN,

Öncelikle ilginiz için teşekkür ederim.Tarih verisini alacağımız sütun Sayfa1 de E sütünu, Sabah ,akşam ve gece verilerini kalkış saati sütunu olan M sütunundan tespit edeceğiz,dar/*geniş gövde verisi ise N sütununda...Umarım ifade edebilmişimdir...
__________________
Yavuz YILMAZ
Milas-Bodrum Havalimanı
yavuz_yil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-10-2017, 21:42   #4
Ziynettin
Altın Üye
 
Giriş: 17/04/2008
Şehir: istanbul
Mesaj: 399
Excel Vers. ve Dili:
office2010
Varsayılan

Merhaba;

Dosyanız ekte,

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ifade_say()
Set s1 = Worksheets("Sayfa1")
Set s2 = Worksheets("YOLCU")
a = s1.Range("B3:N" & s1.Cells(Rows.Count, 2).End(3).Row).Value
b = s2.Range("L8:L" & s2.Cells(Rows.Count, "L").End(3).Row).Value
c = s2.Range("N8:N" & s2.Cells(Rows.Count, "N").End(3).Row).Value
Set d = CreateObject("scripting.dictionary")
saat1 = Format("08:00:00", "hh:mm:ss")
saat2 = Format("17:00:00", "hh:mm:ss")
saat3 = Format("23:59:59", "hh:mm:ss")
saat4 = Format("00:00:01", "hh:mm:ss")
On Error Resume Next

ReDim p(1 To UBound(a), 1 To 6)
For i = 1 To UBound(a)
    deg = Format(a(i, 4), "dd.mm.yyyy")
    If Not d.exists(deg) Then
        say = say + 1
        d(deg) = say
    End If
    tar = Format(a(i, 12), "hh:mm:ss")

'============= Sabah dar gövde =================
    For x = 1 To UBound(b)
        If (a(i, 13)) = b(x, 1) And tar >= saat1 And tar < saat2 Then
            p(d(deg), 1) = p(d(deg), 1) + 1
        End If
    Next x
'--------------Sabah geniş gövde ----------------
    For x = 1 To UBound(c)
        If (a(i, 13)) = c(x, 1) And tar >= saat1 And tar < saat2 Then
            p(d(deg), 2) = p(d(deg), 2) + 1
        End If
    Next x

'========== Akşam dar gövde ====================
    For x = 1 To UBound(b)
        If (a(i, 13)) = b(x, 1) And tar >= saat2 And tar < saat3 Then
            p(d(deg), 3) = p(d(deg), 3) + 1
        End If
    Next x
'--------------Akşam geniş gövde ---------------
    For x = 1 To UBound(c)
        If (a(i, 13)) = c(x, 1) And tar >= saat2 And tar < saat3 Then
            p(d(deg), 4) = p(d(deg), 4) + 1
        End If
    Next x

'=============Gece dar gövde ===================
    For x = 1 To UBound(b)
        If (a(i, 13)) = b(x, 1) And tar >= saat4 And tar < saat1 Then
            p(d(deg), 5) = p(d(deg), 5) + 1
        End If
    Next x
'--------------Gece geniş gövde ----------------
    For x = 1 To UBound(c)
        If (a(i, 13)) = c(x, 1) And tar >= saat4 And tar < saat1 Then
            p(d(deg), 6) = p(d(deg), 6) + 1
        End If
    Next x
Next i

c = s2.Range("B7:B" & s2.Cells(Rows.Count, "B").End(3).Row).Value
ReDim k(1 To UBound(c), 1 To 6)
For i = 1 To UBound(c)
    deg = Format(c(i, 1), "dd.mm.yyyy")
    For y = 1 To 6
        k(i, y) = p(d(deg), y)
    Next y
Next i
s2.[C7].Resize(UBound(c), 6) = k
MsgBox "İşlem tamam...", vbInformation
End Sub
Eklenmiş Dosyalar
Dosya Türü: xlsm Bjv Dar-Geniş Gövde Sefer Sayısı (Çalışma).xlsm (77.2 KB, 9 Görüntülenme)
Ziynettin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 07:20   #5
yavuz_yil
 
Giriş: 28/06/2013
Şehir: MUĞLA
Mesaj: 113
Excel Vers. ve Dili:
EXCELL2010 /TÜRKÇE
Varsayılan

Alıntı:
Ziynettin tarafından gönderildi Mesajı Görüntüle
Merhaba;

Dosyanız ekte,

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ifade_say()
Set s1 = Worksheets("Sayfa1")
Set s2 = Worksheets("YOLCU")
a = s1.Range("B3:N" & s1.Cells(Rows.Count, 2).End(3).Row).Value
b = s2.Range("L8:L" & s2.Cells(Rows.Count, "L").End(3).Row).Value
c = s2.Range("N8:N" & s2.Cells(Rows.Count, "N").End(3).Row).Value
Set d = CreateObject("scripting.dictionary")
saat1 = Format("08:00:00", "hh:mm:ss")
saat2 = Format("17:00:00", "hh:mm:ss")
saat3 = Format("23:59:59", "hh:mm:ss")
saat4 = Format("00:00:01", "hh:mm:ss")
On Error Resume Next

ReDim p(1 To UBound(a), 1 To 6)
For i = 1 To UBound(a)
    deg = Format(a(i, 4), "dd.mm.yyyy")
    If Not d.exists(deg) Then
        say = say + 1
        d(deg) = say
    End If
    tar = Format(a(i, 12), "hh:mm:ss")

'============= Sabah dar gövde =================
    For x = 1 To UBound(b)
        If (a(i, 13)) = b(x, 1) And tar >= saat1 And tar < saat2 Then
            p(d(deg), 1) = p(d(deg), 1) + 1
        End If
    Next x
'--------------Sabah geniş gövde ----------------
    For x = 1 To UBound(c)
        If (a(i, 13)) = c(x, 1) And tar >= saat1 And tar < saat2 Then
            p(d(deg), 2) = p(d(deg), 2) + 1
        End If
    Next x

'========== Akşam dar gövde ====================
    For x = 1 To UBound(b)
        If (a(i, 13)) = b(x, 1) And tar >= saat2 And tar < saat3 Then
            p(d(deg), 3) = p(d(deg), 3) + 1
        End If
    Next x
'--------------Akşam geniş gövde ---------------
    For x = 1 To UBound(c)
        If (a(i, 13)) = c(x, 1) And tar >= saat2 And tar < saat3 Then
            p(d(deg), 4) = p(d(deg), 4) + 1
        End If
    Next x

'=============Gece dar gövde ===================
    For x = 1 To UBound(b)
        If (a(i, 13)) = b(x, 1) And tar >= saat4 And tar < saat1 Then
            p(d(deg), 5) = p(d(deg), 5) + 1
        End If
    Next x
'--------------Gece geniş gövde ----------------
    For x = 1 To UBound(c)
        If (a(i, 13)) = c(x, 1) And tar >= saat4 And tar < saat1 Then
            p(d(deg), 6) = p(d(deg), 6) + 1
        End If
    Next x
Next i

c = s2.Range("B7:B" & s2.Cells(Rows.Count, "B").End(3).Row).Value
ReDim k(1 To UBound(c), 1 To 6)
For i = 1 To UBound(c)
    deg = Format(c(i, 1), "dd.mm.yyyy")
    For y = 1 To 6
        k(i, y) = p(d(deg), y)
    Next y
Next i
s2.[C7].Resize(UBound(c), 6) = k
MsgBox "İşlem tamam...", vbInformation
End Sub
Yardımlarınız için çok teşekkür ederim. Gold üye olmadığım için sizin eklediğiniz dosyayı indiremedim lakin verdiğiniz kodu dosyama eklediğimde aldığım sayı 451 oldu.Halbuki listede 484 adet uçak tipi sayması gerekir.Bu eksiklik nereden kaynaklanıyor acaba?
__________________
Yavuz YILMAZ
Milas-Bodrum Havalimanı

Bu mesaj en son " 16-10-2017 " tarihinde saat 09:13 itibariyle yavuz_yil tarafından düzenlenmiştir....
yavuz_yil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 10:10   #6
yavuz_yil
 
Giriş: 28/06/2013
Şehir: MUĞLA
Mesaj: 113
Excel Vers. ve Dili:
EXCELL2010 /TÜRKÇE
Varsayılan

Alıntı:
yavuz_yil tarafından gönderildi Mesajı Görüntüle
Yardımlarınız için çok teşekkür ederim. Gold üye olmadığım için sizin eklediğiniz dosyayı indiremedim lakin verdiğiniz kodu dosyama eklediğimde aldığım sayı 451 oldu.Halbuki listede 484 adet uçak tipi sayması gerekir.Bu eksiklik nereden kaynaklanıyor acaba?
Tamamen benim dikkatsizliğimden kaynaklı bir hata yapmışım ondan dolayı size bir soru sorma gereği duydum. Fark edince herşey normale döndü.Emekleriniz ve yardımlarınız için tekrar tekrar teşekkür ederim.
__________________
Yavuz YILMAZ
Milas-Bodrum Havalimanı
yavuz_yil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-10-2017, 11:20   #7
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,797
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Soru çözümlenmiş ama alternatif olsun.
İyi çalışmalar.

Link:
http://s8.dosya.tc/server5/qrse6q/jv...isma_.zip.html
Eklenmiş Dosyalar
Dosya Türü: zip yavuz_yil-Bjv Dar-Geniş Gövde Sefer Sayısı (Çalışma).zip (57.8 KB, 5 Görüntülenme)
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 01:59


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden