Makro hatası

Katılım
11 Mrt 2011
Mesajlar
1
Beğeniler
0
Yaş
38
#1
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
 

Benzer konular

Top