Soru Saat farkı ve Renk

[k0081]

Merhaba arkadaşlar;

E2 hücresin de ki formüle göre 08:00 17:00 şeklinde bir sonucum var. E2 hücresinde ...

F2 hücresine bu değerlerden çıkartma yapıp , C2 deki isme göre renklendirebilirmiyim ?

 

[k0081]

ilgili örnek-benzer dosya linki

saatler.xlsm dosyasını indir - download

saatler.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Korhan Ayhan]

D2 hücresindeki 9 değerine nasıl ulaşıyorsunuz?

 

[k0081]

Korhan Ayhan

Hocam ; 9 değerine 08:00 17:00 farkından ulaşıyorum . ama tabloda Akşam yazdığım için o kısım 15 olacaktı... özür..

bu rakamları manuel yazdım.
command butonu ile elde etmek istediğim örnektir...

Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub CommandButton1_Click()
    Dim Veri As Range, Son As Long, Giris As Double, Cikis As Double, Fark As String
    
    Range("D2:D" & Rows.Count).ClearContents
    Range("D2:D" & Rows.Count).Font.ColorIndex = -4105

    Son = Cells(Rows.Count, 1).End(3).Row
    
    For Each Veri In Range("A2:A" & Son)
        If Veri.Offset(, 2) <> "" Then
            Giris = CDbl(CDate(Left(Veri.Offset(, 2), 5)))
            Cikis = CDbl(CDate(Right(Veri.Offset(, 2), 5)))
            Fark = Replace(Cikis - Giris, ",", ".")
            Veri.Offset(, 3) = Evaluate("MOD(" & Fark & ", 1)") * 24
            Veri.Offset(, 3).Font.ColorIndex = Veri.Font.ColorIndex
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[k0081]

Korhan Ayhan

Hocam çok teşekkür ediyorum , Tamamdır.. yine güzel bir kod çalışması sizden...

 

[Korhan Ayhan]

Artık bu tarz kodlamaları sizlerden bekliyoruz...

 

[k0081]

Korhan Ayhan ;

Hocam hücreleri birleştirdiğimde , en alttaki sonucu vermiyor.. diğer sonuçların hepsi tamam. kodları inceledim. fakat iligili kısmı bulamadım.

örnek dosya ektedir.

saatler2.xlsm dosyasını indir - download

saatler2.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[Korhan Ayhan]

Kod içindeki "Son" ile başlayan satırdaki parantez içindeki 1 değerini 3 yaparak deneyiniz.

 

[k0081]

Korhan Ayhan

Hocam size ne kadar Teşekkür etsem az.., Çok Teşekkür ederim Tamamdır.