Düşeyara İle Karmaşık Metin İçerisinden Belirli Bölüm Bulmak

[fozbay]

Merhaba,

PLAKA	Hareket Saatleri
34YYY111	07:00-08:00 18:00-19:30
34XXX222	05:30-07:00 18:00-19:30

Şeklinde bir tablom var ve bu tabloda başka plakalar ve her plaka için farklı saat aralıkları mevcut.

Plaka	Hareket Zamanı	Durum
34YYY111	18:10​	Geçerli
34YYY111	14:40​	Geçersiz
34XXX222	05:45​	Geçerli
34XXX222	18:05​	Geçerli

Plakaların verileri B kolonunda olduğu şekilde tarafımıza akmakta. Bu gelen verilere göre yukarıda paylaşmış olduğum saat aralıklarına uyup uymadığını C Kolonunda "Geçerli"/"Geçersiz" şeklinde göstermek istiyorum. Ancak hem buçuklu saatler olması nedeni ile Eğer formülünü düzgün bir şekilde işletemedim hem de Düşeyara formülü ile karışık saat aralıklarından sadece bana uygun olanını seçemedim.

Konu hakkında desteğinizi rica ederim, herkese iyi günler dilerim.

 

[Muzaffer Ali]

Merhaba.
Örnek dosya hazırlarsanız kod ile çözüm sağlanabilir.
Örnek dosyanızı dosya.tc gibi bir paylaşım sitesiyle paylaşabilirsiniz.

 

[fozbay]

Merhaba,

İlginiz için teşekkür ederim.

Örnek dosyaya; https://s6.dosya.tc/server17/68c40r/Ornek.xlsx.html linkinden erişebilirsiniz. C Kolonundaki "Durum" yazan kısma koşulları sağlaması durumunda Geçerli, sağlamaması durumunda Geçersiz yazdırmak istiyorum.

 

[Muzaffer Ali]

Örnek dosyada Hareket Zamanları sayfasında Zaman kısmı

Ç.Zamanı

12:10:13:20

18:09:45:86

18:11:10:56

18:11:54:14

13:09:49:54

18:10:01:10

şeklinde veriler var. Burada hangi saati baz alacağız.

 

[fozbay]

Merhaba,

Saatakika:Saniye:Salise olarak verilmiş durumda o veriler. Örnek olarak; 12:10 diye verilen kısmı baz alabilirsiniz.

 

[Muzaffer Ali]

Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Long
    Dim syfHrk As Worksheet
    Dim syfMuaf As Worksheet
    Dim Saat As Date
    Dim Bul As Long
    Dim Saatler As Variant
    Dim Hrk1 As Variant
    Dim Hrk2 As Variant
        
    Set syfHrk = Worksheets("Hareket Zamanları")
    Set syfMuaf = Worksheets("Gün ve Saat Bazlı Muafiyt")
    
    For Bak = 2 To syfHrk.Cells(Rows.Count, "A").End(xlUp).Row
        Saat = Left(syfHrk.Cells(Bak, "A").Text, 8)
        Bul = syfMuaf.Range("A:A").Find(what:=syfHrk.Cells(Bak, "B").Text).Row
        Saatler = Split(syfMuaf.Cells(Bul, "B"), Chr(10))
        Hrk1 = Split(Saatler(0), "-")
        Hrk2 = Split(Saatler(1), "-")
        If Saat > Hrk1(0) And Saat < Hrk1(1) Or Saat > Hrk2(0) And Saat < Hrk2(1) Then
            syfHrk.Cells(Bak, "C").Value = "Geçerli"
        Else
            syfHrk.Cells(Bak, "C").Value = "Geçersiz"
        End If
    Next
    
End Sub

 

[Korhan Ayhan]

Alternatif..

Harici Link (Silinebilir) ; https://dosya.co/svi8y6gyfwnn/Ornek_(Formülle_Çözüm).xlsx.html

 

[fozbay]

Destekleriniz için teşekkür ederim ancak çok özür dileyerek örnek dosyayı güncellemem gerekmekte. Nitekim örnek dosya oluştururken bir hata yapmışım.

Çalışma gerçekleştirdiğim dosyanın örneği bu şekilde olması gerekmekte; https://s6.dosya.tc/server17/r615f2/Ornek.xlsx.html

Yani bir hücrede 2 farklı saat aralığı bulunmakta.

 

[Muzaffer Ali]

Önceki dosya ile aynısını paylaşmışsınız.