Koşullu Biçimlendirme

[sward175]

Herkese Merhabalar,

Ekli dosyada MENÜ sayfasında açılır kutulardan MENÜ Liste sayfasından yemek listesi oluşturulmakta MENÜ sayfası C4:N52 aralığında "CAL" kalori seçimine göre yemek ismi ve kalori hücresinin zemin rengi MENÜ Liste sayfasındaki renkler olması için yardımlarınızı rica ederim.

Saygı ve Sevgi ile,
sward175

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[sward175]

Sayın: muygun, Merhaba,
Teşekkür ederim. Fakat veri biçimlendirmeler silinmiş, Biraz yaptım fakat Meyve be Salata Bar seçimleri yani 10,11,12 sütunlar renklenmiyor.
Saygı ve sevgi ile,
sward175

 

[muygun]

Merhaba;
bu iki ürün satırlarını (diğer sütunlardan herhangi birinin) sonuna ekleyin yada;

Makrodaki;

For q = 1 To 8 Step 2

satırında 8 sayısını 12 yapın.

İyi çalışmalar.

Not: yazdığım makroda başlangıçta renklendirme varsa sildirdim. Bunun dışında herhangi bir biçim müdahalesi yapmadım. (hangi alana biçimlendirme uyguladığınızı belirtirseniz bakma şansım olur.)

 

[sward175]

Sayın, muygun, Günaydın.
İşlerinizde kolaylıklar diliyorum.
Söylemiş olduğunuz ilaveyi dosyaya uyguladım, Gayet güzel çalışıyor.
Teşekkür ederim.
Problem olması durumunda tekrar yardımınızı rica ederim.
Saygı ve sevgi ile,
sward175

 

[sward175]

Sayın, muygun , Merhaba,
2 sorum olacak müsaadenizle.
1. Dolgu renkleri Dolgu efektlerinde olduğu gibi Renk2 yapılabilir mi ? ( Çift renk )
2. B14:O14, B25:O25, B36:O36, B47:O47 Hücrelerini ben renklendirsem ve hiç silinmese olabilir mi ?
saygılarımla,
sward175

 

[sward175]

Herkese Merhabalar,
Sayın:muygun Bey' in yazmış olduğu kod aşağıda,
Şöyle bir değişiklik istiyorum.
1. Dolgu renkleri Dolgu efektlerinde olduğu gibi Renk2 yapılabilir mi ? ( Çift renk ).
2. B14:O14, B25:O25, B36:O36, B47:O47 Hücrelerini ben renklendirsem ve hiç silinmese olabilir mi ?
Aşağıdaki kod da yapılacak değişiklik için yardımlarınızı rica ederim.
Saygı ve sevgi ile,
sward175


Sub renklendir()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("MENÜ").Range("b465536").Interior.ColorIndex = xlNone
Set s1 = ThisWorkbook.Worksheets("MENÜ")
Set s2 = ThisWorkbook.Worksheets("Menü Liste")
For i = 4 To s1.Range("b65536").End(xlUp).Row
For k = 2 To 14 Step 2
For z = 2 To 100
For q = 1 To 12 Step 2
If s1.Cells(i, k) <> "" And s1.Cells(i, k) = s2.Cells(z, q) Then
s1.Cells(i, k).Interior.ColorIndex = s2.Cells(z, q).Interior.ColorIndex
s1.Cells(i, k + 1).Interior.ColorIndex = s2.Cells(z, q + 1).Interior.ColorIndex
End If
Next q
Next z
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub