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 |
