saat tarih formatı ayrıştırma acil lütfen

[redstar13]

ekli dosyada örnek verdim.
arkadaşlar çok acil bir dosyayı yetiştirmem lazım işin içinden çıkamadım. dün aynı formatı yaptı arkadaş ama raporun formatında değişimler oldu. Acil bir yardımcı olabilir misiniz.

 

[Necdet]

ekli dosyada örnek verdim.
arkadaşlar çok acil bir dosyayı yetiştirmem lazım işin içinden çıkamadım. dün aynı formatı yaptı arkadaş ama raporun formatında değişimler oldu. Acil bir yardımcı olabilir misiniz.

Merhaba,

Kullanıcı Tanımlı Fonksiyon Hazırladım.
Aşağıdaki Fonksiyonu Bir Modüle kopyalayıp deneyiniz.

Function GUNSAATDAKIKASANIYE_BUL(Deg As String, Prm As String)

    Dim d
    Dim i As Integer
   
    d = Split(Deg, " ")
   
    For i = 1 To UBound(d)
        If d(i) = Prm Then GUNSAATDAKIKASANIYE_BUL = d(i - 1) + 0
    Next i
   
End Function

Kullanımı :

=GUNSAATDAKIKASANIYE_BUL(B9;"gün")

İlk parametre hücre adresi, ikinci parametre hücredeki kısaltmalar, Gün için "gün", Saat için "sa", Dakika için "dak", saniye için "sn" olmalı.
Kısaca ikinci parametre hücre içindeki zaman belirten sözcükler Çift tırnak içinde olmalı.

 

[redstar13]

Merhaba,

Kullanıcı Tanımlı Fonksiyon Hazırladım.
Aşağıdaki Fonksiyonu Bir Modüle kopyalayıp deneyiniz.

Function GUNSAATDAKIKASANIYE_BUL(Deg As String, Prm As String)

    Dim d
    Dim i As Integer
  
    d = Split(Deg, " ")
  
    For i = 1 To UBound(d)
        If d(i) = Prm Then GUNSAATDAKIKASANIYE_BUL = d(i - 1) + 0
    Next i
  
End Function

Kullanımı :

=GUNSAATDAKIKASANIYE_BUL(B9;"gün")

İlk parametre hücre adresi, ikinci parametre hücredeki kısaltmalar, Gün için "gün", Saat için "sa", Dakika için "dak", saniye için "sn" olmalı.
Kısaca ikinci parametre hücre içindeki zaman belirten sözcükler Çift tırnak içinde olmalı.

emeğinize sağlık;
ancak benim dosyada çalışmadı.
makro olmadan yapabilirmiyim. yada ben yanlış bir şeyler yapıyorum makroyu çalıştıramadım.yinede ilginize teşekkür ederim

 

[çıtır]

Çözümlenmiş dosyanız ektedir

 

[redstar13]

Çözümlenmiş dosyanız ektedir

çok teşekkürler
emeğinize sağlık

 

[çıtır]

çok teşekkürler
emeğinize sağlık

Rica ederim.Dönüş yaptığınız için teşekkür ederim.