Koşullu Biçimlendirme İle Hücre Boyama!!

[yavuz_yil]

Değerli üstadlar;

Öncelikle yardım ve fikirleriniz için teşekkür ederim.Yapmak istediğim a ve b hücrelerine saat yazıp aradaki fark kadar ki örneğin 15 dk lık bir farkı boyatmak istiyorum.Ancak bu süre arttıkça hücre otomatik olarak byanacak. Daha net olması açısından

A Hücresi değeri: 15:30
B Hücresi değeri: 16:00

D -Z hücreleri arasında her bir hücreyi 5 dk olarak hesaplayıp 30 dk karşılığı 6hücreyi boyamak!! Fark 35 dk olduğunda ilave hücreyide otomatik boyamasını istiyorum?

Bunu nasıl yapabilirim?

 

[Milady Meriç]

Merhaba,

Aşağıdaki makroyu kullanabilirsiniz. A sütununda ve B sütununda saatlerin olduğunu ve 1. satırda başlık olmadığını farzeder.
Eğer 1. satırınızda başlık var ise, kırmızı ile işaretlediğim kısmı 2 olarak değiştiriniz.

Kolay gelsin.

Sub hucre_boya()

x = Cells(Rows.Count, "A").End(xlUp).Row

For i = [B][COLOR="Red"]1[/COLOR][/B] To x
 y = Cells(i, 2).Value - Cells(i, 1).Value
 Z = Evaluate(Minute(y))
 t = Z / 5
  For ii = 4 To 3 + t
   Cells(i, ii).Interior.ColorIndex = 5
  Next
 Next

End Sub

 

[yavuz_yil]

Çok değerli Milady Meriç ,

Öncelikle cevap için teşekkür ederim.Makroyu kaydettim ancak çalıştırdığımda hiçbir değişiklik olmuyor.A hücresine ve B hücresine saat yazıyorum ancak boyamayı yapmıyor.1. satırda başlık var ve ilgili değişikliğide yaptım.Acaba boyama rengi ile ilgili bir sorun olabilirmi veya boyanacak hücrelere 5 diye değer falan vermeme gerek varmı?

 

[ÖmerBey]

Koşullu biçimlendirmeye aşağıdaki kodu yazınız.

=EĞER($B1<>"";(SÜTUN(D1)-3)<=(SAAT($B1-$A1)*60+DAKİKA($B1-$A1))/5)

Uygulama hedefi de

=$D:$Z

 

[Milady Meriç]

Yavuz Bey,

Mucit Bey'in çözümü işe yaramadı ise (ki çalışması gerekiyor) dosya gönderirseniz daha kolay yardımcı oluruz. (rapid vs.. gibi bir siteden de gönderebilirsiniz)

teşekkürler.

 

[yavuz_yil]

Mucit beyin formülü işe yaradı çok teşekkür ederim.Süpersiniz!!!

 

[yavuz_yil]

Mucit beyin formülü işe yaradı çok teşekkür ederim.Süpersiniz!!!

Hepinizden özür dileyerek kendi anlatım hatamdan kaynaklı formülü uygulayınca istediğim şeyin bu olmadığını gördüm.

Çünkü bu formülde saat kaç olursa olsun hep aynı hücreden boyamaya başlıyor ve benim anlatmak istediğimi yapmamış oluyor.

Tam olarak yapmak istediğim şey zaman cetveli üzerinde A ve B hücresine yazdığım saati saat olarak belirttiğim aralıklarda boyaması.Daha anlatıcı olması için ilk fırsatta bir dosya yüklerim.


Yardımlarınız ve emekleriniz çin tekrar tekrar teşekkürler!!!

 

[yavuz_yil]

Arkadaşlar,

Taslak dosya ekteki linkedir.Tekrar teşekkürler...

http://dosya.co/jixem3634xev/Taslak.xlsx.html

 

[ÖmerBey]

Dosyanız linktedir.
Taslak.xlsx

 

[yavuz_yil]

Çok teşekkür ederim. İşte tam buydu!!!Emeğinize sağlık!!!

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...