Yemek Listesinde içerisinde bulunulan güne ait hücrelerin renklendirilmesi

[maakbulut]

Ekteki yemek listesinde bugüne ait(18.02.2011) mönüyü farklı renkte manuel olarak vurguladım. İstediğim ise dosya açıldığında sistem tarihini kontrol ederek bu işlemin otomatik olarak yapılmasıdır. (İçerisinde bulunulan güne ait mönünün farklı renkte vurgulanması)

 

[usubaykan]

Ekteki yemek listesinde bugüne ait(18.02.2011) mönüyü farklı renkte manuel olarak vurguladım. İstediğim ise dosya açıldığında sistem tarihini kontrol ederek bu işlemin otomatik olarak yapılmasıdır. (İçerisinde bulunulan güne ait mönünün farklı renkte vurgulanması)

Merhaba;

Option Explicit

Sub auto_open()
Dim Bul As Range
Set Bul = Cells.Find(What:=Format(Date, "DD MMMM YYYY DDDD"), LookAt:=xlPart, LookIn:=xlValues)
Rows("4:38").Interior.ColorIndex = xlNone
Cells(Bul.Row, Bul.Column).Interior.ColorIndex = 15
Cells(Bul.Row, Bul.Column - 1).Interior.ColorIndex = 15
Cells(Bul.Row + 1, Bul.Column).Interior.ColorIndex = 40
Cells(Bul.Row + 2, Bul.Column).Interior.ColorIndex = 40
Cells(Bul.Row + 3, Bul.Column).Interior.ColorIndex = 40
Cells(Bul.Row + 4, Bul.Column).Interior.ColorIndex = 40
End Sub

kodu deneyiniz.

 

[maakbulut]

Merhaba;

Option Explicit
Sub auto_open()
Dim Bul As Range
Set Bul = Cells.Find(What:=Format(Date, "DD MMMM YYYY DDDD"), LookAt:=xlPart, LookIn:=xlValues)
Rows("4:38").Interior.ColorIndex = xlNone
Cells(Bul.Row, Bul.Column).Interior.ColorIndex = 15
Cells(Bul.Row, Bul.Column - 1).Interior.ColorIndex = 15
Cells(Bul.Row + 1, Bul.Column).Interior.ColorIndex = 40
Cells(Bul.Row + 2, Bul.Column).Interior.ColorIndex = 40
Cells(Bul.Row + 3, Bul.Column).Interior.ColorIndex = 40
Cells(Bul.Row + 4, Bul.Column).Interior.ColorIndex = 40
End Sub

kodu deneyiniz.

Maalesef herhangi bir değişiklik olmadı.

 

[mustafa1205]

Örneği inceleyin Koşullu Biçimlendirme ile yaptım. diğerlerini ona göre uygularsınız.

 

[usubaykan]

Maalesef herhangi bir değişiklik olmadı.

Eki inceleyiniz. Bende çalışıyorken sizde çalışmaması imkansız. Acaba makrolarınızın güvenliği en yüksek seviyedemi?