Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Fonksiyonlar (http://www.excel.web.tr/forumdisplay.php?f=47)
-   -   Koşullu Biçimlendirme (http://www.excel.web.tr/showthread.php?t=170377)

sward175 07-02-2018 12:47

Koşullu Biçimlendirme
 
1 Eklenti(ler)
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 07-02-2018 13:20

1 Eklenti(ler)
Merhaba;
Eki deneyin.
İyi çalışmalar.

sward175 07-02-2018 13:34

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 07-02-2018 14:43

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 08-02-2018 05:59

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 08-02-2018 10:15

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 08-02-2018 14:34

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("b4:o65536").Interior.ColorIn dex = 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


Saat 17:27

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.