Makro ile koşullu biçimlendirme özelliklerini değiştirme problemi

[sultanmimar]

Benim excel sayfamdaki bazı hücrele uygulamış olduğum koşullu biçim var.Böylece bu hücreler 30 ile 50 arasında bir değer içeriyorsa dolgu rengi sarıya dönüyor.Şimdi ben makro kaydet ile bu koşullu biçimlendirmenin bir özelliğini değiştirerek sarı yerine mavi dolgu rengi kullanmak istiyorum.Makroyu çalıştırdığımda hedef hücre en başta belirlediğim hücreler değil kafasına göre bir hücre belirleniyor.Bunun sebebi nedir acaba?

 

[Emir Hüseyin Çoban]

. . .

Oluşturduğunuz kodları paylaşabilir misiniz.
Hedef başlangıç hücresinde hata olabilir...

. . .

 

[sultanmimar]

kod böyle . Teşekkürler


Sub Makro1()
'
' Makro1 Makro
'

'
Cells.FormatConditions.Delete
Union(Range( _
"AO3:AO5,AM3:AM5,AK3:AK5,T3:T5,AF3:AF5,AD3:AD5,AB3:AB5,Z3:Z5,X3:X5,V3:V5,AX3:AX5,BJ3:BJ5,BH3:BH5,BF3:BF5,BD3:BD5,BB3:BB5,AZ3:AZ5,Q3:Q5,O3:O5,M3:M5,K3:K5,I3:I5,G3:G5,E3:E5,BM3:BM5,BY3:BY5,BW3:BW5,BU3:BU5,BS3:BS5,BQ3:BQ5,BO3:BO5,CB3:CB5" _
), Range( _
"CN3:CN5,CL3:CL5,CJ3:CJ5,CH3:CH5,CF3:CF5,CD3:CD5,AI3:AI5,AU3:AU5,AS3:AS5,AQ3:AQ5" _
)).Select
Range("Y15").Activate
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=X15=""İS"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0.499984740745262
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Union(Range( _
"AM5,AM3,AO5,AO3,AQ3,AQ5,AS5,AS3,AU5,AU3,AX5,AX3,AZ5,AZ3,BB5,BB3,BD5,BD3,BF5,BF3,BH5,BH3,BJ5,BJ3,BM5,BM3,BO5,BO3,BQ5,BQ3,BS5,BS3" _
), Range( _
"BU5,BU3,BW5,BW3,BY5,BY3,CB5,CB3,CD5,CD3,CF5,CF3,CH5,CH3,CJ5,CJ3,CL5,CL3,CN5,CN3,E3,G3,I3,K3,M3,O3,Q3,E5,G5,I5,K5,M5" _
), Range("O5,Q5,T3,V3,X3,Z3,AB3,AD3,AF3,AF5,AD5,AB5,Z5,X5,V5,T5,AI5,AI3,AK3,AK5" _
)).Select
Range("Y15").Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=30000000000", Formula2:="=60000000000"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = -0.499984740745262
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("AJ4:CN4,D4:CN4").Select
Range("Y15").Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=30000000000", Formula2:="=60000000000"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 14876158
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

 

[Emir Hüseyin Çoban]

. . .

Mesajlarınızda kod veya formül yazarken
yanıtlama menüsündeki # simgesi olan CODE tagını kullanmalısınız.

Bu butonu tıkladığınızda mesaj alanında [CODE] [/CODE]
metni otomatik olarak çıkacaktır. Mesajlarınızdaki kodları bu aralığa yazmanız gerekiyor.

[CODE] Kod veya formülünüz [/CODE]

. . .

 

[alicimri]

Aşağıdaki kodu kendinize göre uyarlayın.

Sub Macro1()
b = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions).Address
b = Split(b, ",")
For i = 0 To UBound(b)
    Range(b(i)).FormatConditions.Delete
Range(b(i)).FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="6"
Range(b(i)).FormatConditions(1).Font.ColorIndex = 4
Next
End Sub

 

[alicimri]

Kusura bakmayın kodlarınızı tam incelemeden cevap yazmışım. Sizin kodlarınızda Ofis 2007 ve sonrası özellikleri var. Ben 2003 Ofis kullanıyorum.