Aşağıdaki makro. Otomatik renk makrosu oluşturdum (fazla bilgim olmadığı halde deneme yanılma yöntemiyle)... Yalnız 3 renk işlemi yapabiliyorum 4. bir renkte hata veriyor. ben fazla sayıda renk eklemek istiyorum. Yardımcı olursanız sevinirim.
| | | | | | | | | | | | |
| | | | | | sub Makro2() | | | | | | |
| | | | | | ' | | | | | | |
| | | | | | ' Makro2 Makro | | | | | | |
| | | | | | ' Makro OLCAY tarafından 16.09.2011 tarihinde kaydedildi. | | | | | | |
| | | | | | ' | | | | | | |
| SARI | | | | | | ' Klavye Kısayolu: Ctrl+u | | | | | | |
| KIRMIZI | | | | | | ' | | | | | | |
| MAVİ | | | | | | Columns("B:B").Select | | | | | | |
| MAVİ | | | | | | Selection.FormatConditions.Delete | | | | | | |
| MAVİ | | | | | | Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ | | | | | | |
| SARI | | | | | | Formula1:="=""sarı""" | | | | | | |
| SİYAH | | | | | | Selection.FormatConditions(1).Interior.ColorIndex = 6 | | | | | | |
| YEŞİL | | | | | | | | | | | | |
| | | | | | Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ | | | | | | |
| | | | | | Formula1:="=""mavi""" | | | | | | |
| | | | | | Selection.FormatConditions(2).Interior.ColorIndex = 8 | | | | | | |
| | | | | | | | | | | | |
| | | | | | Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ | | | | | | |
| | | | | | Formula1:="=""yeşil""" | | | | | | |
| | | | | | Selection.FormatConditions(3).Interior.ColorIndex = 4 | | | | | | |
| | | | | | | | | | | | |
| | | | | | Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ | | | | | | |
| | | | | | Formula1:="=""kırmızı""" | | | | | | |
| | | | | | Selection.FormatConditions(4).Interior.ColorIndex = 3 | | | | | | |
| | | | | | | | | | | | |
| | | | | | | | | | | | |
| | | | | | | | | | | | |
| | | | | | | | | | | | |
| | | | | | | | | | | | |
| | | | | | End Sub | | | | | | |
