Overtime yardım

[Avidus]

Merhabalar Ek'te ki dosya da sorunum belirtilmiştir.
Bir türlü gecemedim bu problemi
şimdiden teşekkür ederim.

 

[Avidus]

Arkadaşlar nolur biri yardımcı olsun nollluur

 

[Ferhat Pazarçevirdi]

Eğer sorunuzu doğru anladıysam

Sayfanıza bir adet "Düğme" ilave edin. (Araç Çubukları > Formlar > Düğme)

VBE'de bir modül açın ve aşağıdaki kodu kopyalayın. Düğmeye her basışınızda liste kontrol edilerek, eğer varsa kırmızılar işaretlenecektir

 Sub gun36()
Set sh = Sheets("OCAK07")
'Listede Kaç tane eleman olduğunu buluyoruz
x = sh.Cells(4, 1).End(xlDown).Row
'Önce tüm personel listesinin görünüm özelliklerini standart yapıyoruz.
With sh.Range("B4:B" & x)
   .Font.ColorIndex = 0 'Yazı Tipi rengi siyah
   .Font.Bold = False 'Yazıtipi koyu değil
   .Interior.ColorIndex = xlNone 'Hücre zemini renksiz
End With
'ilk personelden son personele kadar kontrol et.
For i = 4 To x
'Eğer Sizin IE sütununda belirttiğiniz rakam 36'dan büyükse
If Cells(i, 239) > 36 Then
   Cells(i, 2).Font.ColorIndex = 2 'Yazı tipi rengi BEYAZ
   Cells(i, 2).Font.Bold = True ' Yazı tipi KOYU
   Cells(i, 2).Interior.ColorIndex = 3 'Hücre zemini KIRMIZI olsun
End If
Next i
Set sh = Nothing
End Sub