Gün, Saat ve dakika olarak verilen zaman birimini saate çevirme

[quixotic79]

Merhaba arkadaşlar yapmak istediğim şey; E sütununda gün, dakika, ve saat olarak verilen zaman birimini saate çeviren bir formul. saniyenin önemi yok. Yani eğer "e" sütunun da 2 gün 3 sa 30 dak yazıyorsa bunu bana 51,5 saat olarak çeviren bir formul... bu formülü "F" sütununa yazacağım. Yalnız dikkat edilmesi gereken bazen zaman birimleri günle değil de saatle veya dakika ile başlayabiliyor. Yani 22 sa 12 dak gibi yardımlarınız için şimdiden teşekkürler. "gün,sa,dak ve sn birimleri sabittir"
url=http://i.hizliresimupload.net/JQKAehX9.png]

[/url]

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayın

Function Hesapla(Rng As Range)

    Dim d, _
        Gn  As Integer, _
        Sa  As Integer, _
        Dk  As Integer, _
        Sn  As Integer, _
        i   As Integer
    
    d = Split(Trim(Rng), " ")
    
    For i = 1 To UBound(d) Step 2
        If d(i) = "gün" Then
            Gn = d(i - 1)
        ElseIf d(i) = "sa" Then
            Sa = d(i - 1)
        ElseIf d(i) = "dak" Then
            Dk = d(i - 1)
        Else
            Sn = d(i - 1)
        End If
        
    Next i
    
    Hesapla = TimeSerial(Gn * 24 + Sa, Dk, Sn)
    
End Function

F sütununu Özel hücre biçiminden :dd:nn olarak biçimlendirin.

F3

=hesapla(E3)

 

[quixotic79]

malesef olmadı... ya da ben beceremedim ama bayağı uğraştım... F Süstununda #AD? hatası veriyor.

 

[Ömer BARAN]

Merhaba.

Ekran görüntüsü yerine,
(cevabımın altındaki İMZA bölümünde yer alana açıklamaları okuyarak)
hazırlayacağınız örnek belge üzerinden destek isterseniz,
başka çözüm önerilerinin de geleceğini düşünüyorum.
.

 

[Necdet]

malesef olmadı... ya da ben beceremedim ama bayağı uğraştım... F Süstununda #AD? hatası veriyor.

Siz yapamadınız. Basit bir kullanıcı tanımlı fonksiyon.

Fonksiyonu bir modüle kopyaladınız mı? Olmadı deyip kestirip atıyorsunuz.
Ne yaptığınızı anlatın ki hatanız anlaşılsın, buradan da bir çok arkadaş yardımcı olur.