Makine revizyon saati/çalışma saati

[mucox]

Merhaba,

Ekte verdiğim dosyada da açıklama mevcut. Fabrikada kullanılan makinaların üzerinde çalışma saati var. Haftalık olarak çalışma saati elle giriliyor. Revizyon olan saatlerde hücre yeşile boyanacak ve ayrı bir sekmede sadece revizyon saatleri birikecek. Oluşturmak istediğim mantık bu, konuya hakim arkadaşlardan daha pratik fikirleri de değerlendirebilirim.
Şimdiden teşekkürler.

 

[mucox]

Her sütundaki en yeni tarihli yeşil hücredeki değer ile, bir önceki yeşil hücredeki değerin farkı bulunacak. İnşallah anlatabiliyorumdur kendimi

 

[ÖmerFaruk]

Dosyanıza Yeni Sayfa ekledim. Sonuç isimli.
Sayfanın kod sayfasına aşağıdaki kodları yapıştırdım.
Sayfayı her açtığınızda revizyon saatlerini yeniden hesaplıyor.
Kriter olarak hücrelerinizin dolgu rengi varsa ve hücre değeri Sıfırdan Büyükse olarak ayarladım. Revizyon berlirtmek için istediğiniz rengi kullanabilirsiniz. Yeşl şart değil. Karışık dahi olabilir. Dosyanızın yeni halini de ekledim.

Sub RevizyonHesapla()
Dim Sh As Worksheet
Dim i As Integer
Dim k As Integer
Dim Son As Integer
    Range("A2:L" & Rows.Count).ClearContents
    Set Sh = Worksheets("REVİZYON")
    For i = 2 To Sh.Range("A1").End(xlToRight).Column
        k1 = 0
        k2 = 0
        Sat = 2
        Son = Sh.Cells(Sh.Rows.Count, i).End(xlUp).Row
        For k = 2 To Son
            If Sh.Cells(k, i).Interior.ColorIndex <> -4142 And Sh.Cells(k, i) > 0 Then
                If k1 > 0 Then
                    Cells(Sat, i - 1) = Sh.Cells(k, i) - Sh.Cells(k1, i)
                    k1 = k
                    Sat = Sat + 1
                Else
                    k1 = k
                End If
            End If
        Next k
    Next i
End Sub

Private Sub Worksheet_Activate()
Call RevizyonHesapla
End Sub

 

[mucox]

Eyvallah üstad, tamda istediğim gibi oldu. Eline sağlık

 

[mucox]

İstediğim rengi ayarlamak istersem;
Interior.ColorIndex <> -4142 yerine Interior.ColorIndex = 3 (kırmızı için) yazmam mı gerekiyor?

 

[ÖmerFaruk]

Revizyon içermeyen saatleriniz Renksiz olursa -4142 den farklı değerdeki hücre..revizyon demektir benim için.
Yani revizyon belirtmek için hep aynı rengi tutturamayabilirsiniz diye, belirtilen hücre aralığında herhangi bir renge sahip hücre revizyon içermektedir.
Revizyonlarınızı sarı kırmızı turuncu vs herhangi bir renk ile işaretleyebilirsiniz

 

[mucox]

Başka bir sekmede, son girilen saat ile ondan önceki renkli hücredeki saatin farkını hesaplayabilirim? Yani son revizyon itibaren olan çalışma saatini yazdırmak istiyorum.