Şarta Bağlı Değer Bulma,

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

Şarta Bağlı Değer Bulma,

İleti#1)  gicimi » 05 Haz 2018 00:45

Merhaba;

ekteki excel çalışmasında bilgiler yer almaktadır. Desteğinizi ve yardımlarınızı rica ederim. Şartta bağlı bir kaç formül yazılması gerekiyor.
Sayfa1-Sayfa2-Sayfa3 konu ile ilgili tablolar bulunmaktadır.

Açıklamalar;

*Tarih ve Kullanıcı bilgilerine göre saatler arası yapılan başarılı / başarısız iş adeti
*Tarih ve Kullanıcı bilgilerine göre 12:00 ile 13:00 arası yapılan son işin saati
*Tarih ve Kullanıcı bilgilerine göre 13:00 ile 14:00 arası yapılan ilk işin saati
*Tarih ve Kullanıcı bilgileri baz alınarak saatler arası yapılan iş adeti
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Şarta Bağlı Değer Bulma,

İleti#2)  gicimi » 05 Haz 2018 02:04

Makro olarak yardımcı olabilir misiniz. Formül olarak mevcut veri fazla olmasından dolayı problem oluyor.
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Şarta Bağlı Değer Bulma,

İleti#3)  feraz » 05 Haz 2018 05:55

Bir deneyiniz mantık hatası olabilir.
Ogle Ara sayfasındaki düğmeye tıklayınız.

Adet olayına bakamadım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5040
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Şarta Bağlı Değer Bulma,

İleti#4)  gicimi » 05 Haz 2018 11:17

feraz yazdı:Bir deneyiniz mantık hatası olabilir.
Ogle Ara sayfasındaki düğmeye tıklayınız.

Adet olayına bakamadım.


Merhaba,
ilginiz için teşekkür ederim. Başarılı ve Başarısız bilgilerini adet olarak gelebilir mi_?
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Şarta Bağlı Değer Bulma,

İleti#5)  feraz » 05 Haz 2018 12:57

Rica ederim.Akşam bakabilirim ancak.

Örnek verebilirmisiniz adet olarak sonuç nasıl çıkacak.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5040
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Şarta Bağlı Değer Bulma,

İleti#6)  gicimi » 05 Haz 2018 13:16

feraz yazdı:Rica ederim.Akşam bakabilirim ancak.

Örnek verebilirmisiniz adet olarak sonuç nasıl çıkacak.


Kullanıcı bilgisi ve tarih bilgisine bakarak ana listede OK - BSRZ adeti

Kullanıcı Tarih Başarılı Başarısız
20010 04.06.2018 4 2 şeklindedir.
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Şarta Bağlı Değer Bulma,

İleti#7)  feraz » 06 Haz 2018 01:18

Dener misiniz?

Çokeğersay mantığıyla yaptım yanlış anlamdıysam.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5040
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Şarta Bağlı Değer Bulma,

İleti#8)  gicimi » 06 Haz 2018 01:28

feraz yazdı:Dener misiniz?

Çokeğersay mantığıyla yaptım yanlış anlamdıysam.

Üstadım Teşekkür ederim.
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Şarta Bağlı Değer Bulma,

İleti#9)  feraz » 06 Haz 2018 01:44

Rica ederim çalıştığına sevindim kodun.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5040
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Şarta Bağlı Değer Bulma,

İleti#10)  feraz » 06 Haz 2018 02:00

Sanırım yanlışlık var.

Ogle Ara sayfasındaki A4 ü 20013 yapıncada aynı çıkıyor.Biraz uğraşayım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5040
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Şarta Bağlı Değer Bulma,

İleti#11)  feraz » 06 Haz 2018 02:21

Şimdi tam oldu.Deneyebilirsiniz her türlü.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
   
Dim bul As Range
Dim i As Integer
Dim bulunan As String
Dim sayfaoglenara As Worksheet
'
Set sayfaoglenara = Sheets("Ogle Ara")

With Sheets("Sayfa1")

'0,5 = 12:00:00 icin
'0,541666666666667 = 13:00:00 icin
'0,583333333333333 = 14:00:00 icin

sayfaoglenara.[C2:F65536] = ""
[J:K] = ""
    On Error Resume Next
    Application.ScreenUpdating = False
    For i = 2 To sayfaoglenara.Cells(Rows.Count, 1).End(3).Row
        Set bul = .Range("A:A").Find(sayfaoglenara.Range("A" & i).Value, , , 1)
        If Not bul Is Nothing Then
            bulunan = bul.Address
           
            Do
                If bul.Offset(0, 2) = sayfaoglenara.Cells(i, 2) Then
                    If bul.Offset(0, 3) >= "0,5" And bul.Offset(0, 3) <= "0,541666666666667" Then
                         sayfaoglenara.Cells(i, "E") = bul.Offset(0, 3)
                         sayfaoglenara.Range("C" & i).Value = WorksheetFunction.CountIfs(.[A:A], sayfaoglenara.Cells(i, "A").Value, .[C:C], sayfaoglenara.Cells(i, "B").Value, Sayfa2.[E:E], "OK")
                    End If
                   
                    If bul.Offset(0, 3) >= "0,541666666666667" And bul.Offset(0, 3) <= "0,583333333333333" Then
                        sayfaoglenara.Cells(i, "F") = bul.Offset(0, 3)
                        sayfaoglenara.Range("D" & i).Value = WorksheetFunction.CountIfs(.[A:A], sayfaoglenara.Cells(i, "A").Value, .[C:C], sayfaoglenara.Cells(i, "B").Value, .[E:E], "BŞSZ")
                    End If
                End If
                Set bul = .Range("A:A").FindNext(bul)
            Loop While Not bul Is Nothing And bul.Address <> bulunan
           
        End If
    Next
    Application.ScreenUpdating = True
End With
 
  Set bul = Nothing: i = Empty: bulunan = vbNullString
 
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5040
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Şarta Bağlı Değer Bulma,

İleti#12)  gicimi » 06 Haz 2018 03:03

feraz yazdı:Şimdi tam oldu.Deneyebilirsiniz her türlü.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
   
Dim bul As Range
Dim i As Integer
Dim bulunan As String
Dim sayfaoglenara As Worksheet
'
Set sayfaoglenara = Sheets("Ogle Ara")

With Sheets("Sayfa1")

'0,5 = 12:00:00 icin
'0,541666666666667 = 13:00:00 icin
'0,583333333333333 = 14:00:00 icin

sayfaoglenara.[C2:F65536] = ""
[J:K] = ""
    On Error Resume Next
    Application.ScreenUpdating = False
    For i = 2 To sayfaoglenara.Cells(Rows.Count, 1).End(3).Row
        Set bul = .Range("A:A").Find(sayfaoglenara.Range("A" & i).Value, , , 1)
        If Not bul Is Nothing Then
            bulunan = bul.Address
           
            Do
                If bul.Offset(0, 2) = sayfaoglenara.Cells(i, 2) Then
                    If bul.Offset(0, 3) >= "0,5" And bul.Offset(0, 3) <= "0,541666666666667" Then
                         sayfaoglenara.Cells(i, "E") = bul.Offset(0, 3)
                         sayfaoglenara.Range("C" & i).Value = WorksheetFunction.CountIfs(.[A:A], sayfaoglenara.Cells(i, "A").Value, .[C:C], sayfaoglenara.Cells(i, "B").Value, Sayfa2.[E:E], "OK")
                    End If
                   
                    If bul.Offset(0, 3) >= "0,541666666666667" And bul.Offset(0, 3) <= "0,583333333333333" Then
                        sayfaoglenara.Cells(i, "F") = bul.Offset(0, 3)
                        sayfaoglenara.Range("D" & i).Value = WorksheetFunction.CountIfs(.[A:A], sayfaoglenara.Cells(i, "A").Value, .[C:C], sayfaoglenara.Cells(i, "B").Value, .[E:E], "BŞSZ")
                    End If
                End If
                Set bul = .Range("A:A").FindNext(bul)
            Loop While Not bul Is Nothing And bul.Address <> bulunan
           
        End If
    Next
    Application.ScreenUpdating = True
End With
 
  Set bul = Nothing: i = Empty: bulunan = vbNullString
 
End Sub


Teşekkür ederim zahmet verdim. İyi Çalışmalar.
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Şarta Bağlı Değer Bulma,

İleti#13)  gicimi » 08 Haz 2018 01:30

Merhaba;

Sayfa2 iş saati dağılımı yapılamadı. Yardımlarınız lütfen.
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Şarta Bağlı Değer Bulma,

İleti#14)  feraz » 08 Haz 2018 01:57

Sanırım diğer forumda istediğiniz ,kod ile çözülmüştü.
Aradım bulamadım kodları.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5040
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Şarta Bağlı Değer Bulma,

İleti#15)  gicimi » 08 Haz 2018 03:14

Evet teşekkür ederim. Çözüldü.
Kullanıcı avatarı
gicimi
Yeni Başlamış
 
Kayıt: 28 Arl 2014 04:06
Meslek: teknisyen
Yaş: 30
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara


Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe