Koşullu biçimlendirme-Bir hücrede iki renk

[Muhammet Okumuş]

Arkadaşlar merhaba

With Range(Cells(6, 7), Cells(5 + Cells(3, 4), 6 + Cells(2, 4))).FormatConditions.Add(xlExpression, xlEqual, "=$G$3=G6")
With .Interior
.ColorIndex = 3
End With
With .Font
.ColorIndex = 2
.Bold = True
End With
End With

bu kod kuşulu sağlayan hücreyi tamamen kırmızı yapıyor. Ama ben ortasının beyaz alt ve üstün kırmızı olmasını istiyorum. Makro ile bu mümkün mü?

 

[Korhan Ayhan]

Merhaba,

Profilinizde 2007 versiyon kullandığınızı belirtmişsiniz. İstediğiniz şekilde bir renklendirme olayı yoktur. Fakat yeni biçimlendirme menüsünde tek hücrede ikili ve üçlü renk kümesi şeklinde seçenekler mevcut. Bunları makro kaydet ile uygulayarak kodlarını elde edebilirsiniz.

 

[Muhammet Okumuş]

Profilde 2007 yazıyor ama ben 2010 kulanıyorum. 2010 da bu mümkün mü?

 

[Korhan Ayhan]

Merhaba,

Bu durumda profilinizdeki bilgiyide güncellemeniz daha sonra sizlere verilecek cevaplarda diğer üyelerimizi yönlendirmiş olacaktır.

Profilde 2007 yazıyor ama ben 2010 kulanıyorum. 2010 da bu mümkün mü?

2010 versiyonda da sizin istediğiniz tarzda renklendirme yoktur.

 

[Muhammet Okumuş]

Teşekkür ederim Sn Korhan. O zaman tek renk ile çalışmaya devam.

 

[sratacc]

Teşekkür ederim Sn Korhan. O zaman tek renk ile çalışmaya devam.

selamlar. ekte bir dosya gönderiyorum. böyle birşey mi arıyorsunuz. h sütununda işlem yapılmadı. yazılıp kod çalıştırıldığında orta kırmızı üst alt açık kırmızı oluyor.

makro kaydet ile ortaya çıkan kod:

Sub KOŞULLU_BİÇİMLE()
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"İŞLEM YAPILMADI.", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 90
.Gradient.ColorStops.Clear
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0)
.Color = 13421823
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0.5)
.Color = 8420607
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(1)
.Color = 13421823
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.ColumnWidth = 18.57
End Sub

 

[Muhammet Okumuş]

Sn sratacc teşekkür eder ederim. Ancak ben formül ile uygulamak istiyordum. Bir de renkler keskin olacak.

 

[sratacc]

Sn sratacc teşekkür eder ederim. Ancak ben formül ile uygulamak istiyordum. Bir de renkler keskin olacak.

Koşullu biçimle ile yapabilirsiniz. ancak makro kodlu dosyanız varsa koşullu biçimlemeler genellikle çalışmıyor(en azından bende çalışmıyor)

excel üzerinden
giriş / koşullu biçimlendirme / yeni kural / yalnızca şunu içeren hücreleri biçimlendir.
arasında yazan bölümü eşit olarak değiştirin. / koşullu biçimlendirme yapacağınız metni yazın. / biçimlendir bölümüne tıklayın /dolgu / dolgu efektleri / isteğiniz biçimi ve rengi girin.
işlem tamamdır.
(excel 2010)

kolay gelsin.

 

[Merhum İdris SERDAR]

Arkadaşlar merhaba



bu kod kuşulu sağlayan hücreyi tamamen kırmızı yapıyor. Ama ben ortasının beyaz alt ve üstün kırmızı olmasını istiyorum. Makro ile bu mümkün mü?

.

Örneği inceleyin.


.

 

[Muhammet Okumuş]

Sn yuttas teşekkür ederim. G3 hücresindeki değer değişince renkler değişmiyor.

 

[Korhan Ayhan]

Merhaba,

Dolgu efektleri ilk başta aklıma gelmediği için sizi yanlış yönlerdirdim. Kusura bakmayın. Ama sağolsun arkadaşlar çözüm yolunu sunmuşlar.

 

[Muhammet Okumuş]

Estağfurullah Korhan Hocam. Neden kusura bakayım.

 

[sratacc]

Sub işlemyap1()
On Error Resume Next
Application.ScreenUpdating = True
'Range("H5:H2000").Font.ColorIndex = xlNone
For i = 5 To 2000
If Range("H" & i).Value = "İŞLEM YAPILMADI." Then
Range("H" & i).FormatConditions.Add Type:=xlTextString, String:= _
"İŞLEM YAPILMADI.", TextOperator:=xlContains
Range("H" & i).FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Range("H" & i).FormatConditions(1).Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
With Range("H" & i).FormatConditions(1).Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 130
.Gradient.ColorStops.Clear
End With
With Range("H" & i).FormatConditions(1).Interior.Gradient.ColorStops.Add(0)
.Color = 13421823
.TintAndShade = 0
End With
With Range("H" & i).FormatConditions(1).Interior.Gradient.ColorStops.Add(0.5)
.Color = 8420607
.TintAndShade = 0
End With
With Range("H" & i).FormatConditions(1).Interior.Gradient.ColorStops.Add(1)
.Color = 13421823
.TintAndShade = 0
End With
Range("H" & i).FormatConditions(1).StopIfTrue = False

Else
Range("H" & i).Interior.Color = RGB(242, 242, 242)
End If


If Range("H" & i).Value = "DEVAM EDİYOR" Then XXXXXXXXXXXX
Range("H" & i).Interior.Color = RGB(255, 255, 153)
Else
End If

Next
Application.ScreenUpdating = True
End Sub


selamlar.

koddaki XXX Bölümünden sonrası kalıcı olmasına karşın yukardaki kısım koşullu biçimlendirme kodu olduüğundan, benim makrolar da koşullu biçimlendirmeyi sildiğinden sabit hale getirmek istiyorum(tıpkı xxx bölümü gibi). bunun bir yöntemi varmıdır.

teşekkürler.