Makro hatası

baytunc2 · 16 Eyl 2011

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

Makro hatası

baytunc2

Üyecik

Benzer konular