Zaman Çizelgesi

[otobus]

Aşağıdaki örnek tabloda
kırmızı ile ilgili boyanmış hücrelerin C ve D kolonuna yazdığım tarihlere göre otomatik boyanmasını ne şekilde yapabilirim. Yani C deki veya D deki tarihi değiştirdiğimde kırmızı alanda otomatik değişecek.

Belki çok karmaşık görülebilr ama elimdeki tarihleri daimi değiştirmek zorunda kalabiliyorum.

Yardım edenlere şimdiden teşekkür ederim.

 

[apocalyt]

merhaba..
sayfanıza sağ klik yapıp kod görüntüle diyin..sonrasında açlıan sayfaya kopyalayın..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c2:d2000")) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 6), Cells(Target.Row, 200)).Interior.Color = xlNone
If Target.Column = 3 Then
Set x = Range("f1:hz1").Find(Target, , , 1)
ben = x.Column
Set y = Range("f1:hz1").Find(Target.Offset(0, 1), , , 1)
sen = y.Column
Range(Cells(Target.Row, ben), Cells(Target.Row, sen)).Interior.Color = vbRed
Else
Set x = Range("f1:hz1").Find(Target, , , 1)
ben = x.Column
Set y = Range("f1:hz1").Find(Target.Offset(0, -1), , , 1)
sen = y.Column
Range(Cells(Target.Row, sen), Cells(Target.Row, ben)).Interior.Color = vbRed
End If
End Sub

 

[uzmanamele]

Merhaba

F2 hücre koşullu biçimlendirmesine yazın ve tablo aralığında uygulayın.

=VE(F$1>=$C2;F$1<=$D2)

 

[usta07]

Merhaba,
F2 Hücresine aşağıdaki formülü yazıp sürükleyerek istediğin kadar çoğaltabilirsin.

=EĞER(YADA($C2>=F$1; F$1<=$D2);"1";"")

Biçimlenmesini istediğin alanı da seçip
Biçim - Koşullu biçimlendirme sekmesinden.
Hücre değeri -eşit ="1" şeklinde yazıp biçimlendirmeyi yapabilirsin.
Form içeriğinde Gant grafiği diye ararsan daha çok seçenek bulabilirsin.
Kolay gelsin.

 

[apocalyt]

çok gereksiz kasmışım

 

[otobus]

Cevaplarınız için tesekkur ederim

Formüllü halini yapabildim

Ama "apocalyt" üstadın kodunu yapıştırıp çalıştırmakta başarılı olamadım.
Cevap yazanlara tesekkur ederim.
Not: "apocalyt" kodlu halini dosyaya ekme imkanı olursa memnun olurum.

tekrar çok tesekkurler

 

[apocalyt]

benim kod çok gereksiz olmuş bende onu farkettim..bence onu boşverin.uzmanamele hocamın çözümü olayı bitirmiş

 

[otobus]

benim kod çok gereksiz olmuş bende onu farkettim..bence onu boşverin.uzmanamele hocamın çözümü olayı bitirmiş

Kodla olması hücrenin kullanımına olanak tanır diye düşündüm eger sizin kod olursa daha cok iyi olur
tekrar tesekkurler

 

[apocalyt]

syn otobus..diğer çözümlerdede hücrelerinizin kullanımında bir sorun yok ..ama ben genede dosyayı göndreyim..ekli dosyayı inceleyin..
bu arada tekrar sölüyorum bu çözüm çok gereksiz..sn uzmanamele hocanın yaptığı çözüm çok net ve basit..hücre kullanımınızdada sorun yok..belli ki yanlış yere formül uygulamaya çalışmışsınız..koşullu biçimlendirme konusunu araştırmanızı tavsiye ederim..

 

[otobus]

syn otobus..diğer çözümlerdede hücrelerinizin kullanımında bir sorun yok ..ama ben genede dosyayı göndreyim..ekli dosyayı inceleyin..
bu arada tekrar sölüyorum bu çözüm çok gereksiz..sn uzmanamele hocanın yaptığı çözüm çok net ve basit..hücre kullanımınızdada sorun yok..belli ki yanlış yere formül uygulamaya çalışmışsınız..koşullu biçimlendirme konusunu araştırmanızı tavsiye ederim..

cevaplarınız ve yardımlarınız için cok tesekkur ederim