Overtime yardım

Katılım
1 Temmuz 2007
Mesajlar
6
Excel Vers. ve Dili
Turkish
Merhabalar Ek'te ki dosya da sorunum belirtilmiştir.
Bir türlü gecemedim bu problemi
şimdiden teşekkür ederim.
 
Katılım
15 Haziran 2006
Mesajlar
3,704
Excel Vers. ve Dili
Excel 2003, 2007, 2010 (TR)
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

Kod:
 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
 
Üst