Yillik Takvİm Takİp Sİstemİ Hakkinda

[Ugurtan]

Arkadaşlar göndermiş olduğum excel dosyasında 2008 yılı nisan ayına ait günler bulunmaktadır. diğer sayfada ise nisan ayına ait günlerin olduğu bir bölüm bu bölümde 4 satır bir gün vermiş bulunuyorum diyelim 01/04/2008 tarihinde 1nci satırda olan yere birşey yazdığımda takvim olan bölümde ayın birinin renginin otomatik değişmesini istiyorum ve mümkünse 01/04/2008 de 2nci satıra bir ödeme daha yazdığımda renginin biraz daha koyulaşmasını istiyorum yardımcı olursanız çok sevinirim
şimdiden teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları "NİSAN" sayfasının kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B34]) Is Nothing Then Exit Sub
Gün = Day(Target.Offset(0, -1))
Set Bul = Sheets("TAKVİM").[B3:H7].Find(Gün)
If Target <> "" Then
    Sheets("TAKVİM").Range(Bul.Address).Interior.ColorIndex = 3
    Sheets("TAKVİM").Range(Bul.Address).Font.ColorIndex = 6
Else
    Sheets("TAKVİM").Range(Bul.Address).Interior.ColorIndex = 2
    Sheets("TAKVİM").Range(Bul.Address).Font.ColorIndex = 1
End If
End Sub

 

[Ugurtan]

Merhaba,

Aşağıdaki kodları "NİSAN" sayfasının kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B34]) Is Nothing Then Exit Sub
Gün = Day(Target.Offset(0, -1))
Set Bul = Sheets("TAKVİM").[B3:H7].Find(Gün)
If Target <> "" Then
    Sheets("TAKVİM").Range(Bul.Address).Interior.ColorIndex = 3
    Sheets("TAKVİM").Range(Bul.Address).Font.ColorIndex = 6
Else
    Sheets("TAKVİM").Range(Bul.Address).Interior.ColorIndex = 2
    Sheets("TAKVİM").Range(Bul.Address).Font.ColorIndex = 1
End If
End Sub

öncelikle teşekkürler dostum. bunu bir satır için mi yaptın öncelikle çünkü bir kaç satırada yazsam birşeyler renk değişim olmuyor ve birşey daha diyelim ki o satırı yanlışlıkla yazdım sildiğimde hata kodu veriyor ve takvimde bulunan rengi eski haline almıyor

 

[Necdet]

Merhaba,

B sütununda herhangi bir hücrede değişiklik yapıldığında renklensin istemiştim.

Çoklu giriş ve Silme için kontrol yapmamıştım.

Birde aşağıdaki kodları dener misiniz? Satırlar arasında bir kontrol yok, yani birinci satır dolu olduğunda bir renk, sonra ikinci satır dolduğunda daha koyu bir renk gibi.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B[B][COLOR=darkred]138[/COLOR][/B]]) Is Nothing Then Exit Sub
Gün = Day(Range("A" & Target.Row))
Set Bul = Sheets("TAKVİM").[B3:H7].Find(Gün)
If Range("B" & Target.Row) <> "" Then
    Sheets("TAKV&#304;M").Range(Bul.Address).Interior.ColorIndex = 3
    Sheets("TAKV&#304;M").Range(Bul.Address).Font.ColorIndex = 6
Else
    Sheets("TAKV&#304;M").Range(Bul.Address).Interior.ColorIndex = 2
    Sheets("TAKV&#304;M").Range(Bul.Address).Font.ColorIndex = 1
End If
End Sub

 

[Ugurtan]

Bir değişiklik olmadı 4 satırada farklı şeyler yazdım ama birinci renk ne ise aynen devam etti
fakat sildiğim zaman renkler normale haline döndü bunun için teşekkürler ellerine sağlık buda yeterli.

 

[Necdet]

Merhaba,

Olmaz tabi neden olsun ki, range i yanlış yazmışım. Bir önceki mesajımda düzelttim.

 

[lolnecati]

Necdet Yeşertener Bey ve konuyu acan ugurtan bey ikinizde cok teşekür ederim beni buyuk bir zahmet ten kurtardınız her ikinizede sonsuz teşekürler

 

[Necdet]

Güle güle kullanınız Sayın lolnecati,

Sizde dosyanızı buraya eklerseniz çok kişi yararlanmış olur.

 

[Ugurtan]

Necdet Bey ellerine sağlık sayenizde bir çok arkadaşımın yararlanacağını düşünüyorum bu konuda affınıza sığınarak birşey daha değinmek istiyorum. şu ana kadar herşey güzel peki diyelim ki F sütununda bulunan kısma ödedi dediğimiz zaman rengin değişmesi için nasıl bir kodlama yapabiliriz. yani bu kodla nasıl birleştirebiliriz. yani şu kadar ödememiz vardı ama şu kadar ödendi ödenenler takvim içerisinde belli diye. Tekrar teşekkürler

 

[Necdet]

Merhaba,

Bir deneme yaptım, dener misiniz? F sütununa "Ödedi" ibaresini görürse takvimde renklendirir.

Ayrıca Takvim ekledim, Tarihleri yazan makro ekledim.
Bütün işlerim kaldı, birazda kendi işimle ilgileniyem

 

[Ugurtan]

Merhaba,

Bir deneme yaptım, dener misiniz? F sütununa "Ödedi" ibaresini görürse takvimde renklendirir.

Ayrıca Takvim ekledim, Tarihleri yazan makro ekledim.
Bütün işlerim kaldı, birazda kendi işimle ilgileniyem

Ellerine sağlık sanırım bir çok arkadaşlarımızın işine yarayacaktır. işinden alı koyduğumun içinde kusura bakma:mrgreen:

 

[Necdet]

Rica ederim Sayın Ugurtan,

Güle güle kullanınız, umarım istediğiniz gibi olmuştur.