Exceldeki Yazıya göre Satırı renklendirme

[bjk55]

Merhaba excelde herhangi bir satırda diyelim "iptal" yazıyor ben bu satırda bulunan a'dan H'ye kadar olan satırların otomatik rengin değiştirilmesini istiyorum bunu nasıl yapabilirim. Biçimlendirme ile sadece iptal yazan sutunu otomatik biçimlendirebiliyorum.

Ayrıca bir sorum daha olacak excelde seçtiğim satırın anlaşılması için o satırın otomatik olarak istediğim renkte olmasını istiyorum forumda bunlar ilgili arama yaptığımda kullandığım kodların hepsi önceki biçimlendirmelerimi siliyorum Bunun için ne yapabilirim

 

[sesar]

=$P1="İPTAL"

Bunu koşullu biçimlendirme formülünde yazarsan tüm satırı istediğin renge boyayabilirsin.

Kutools eklentisinde dediğin özellik mevcut satır ve sütun olarak fare dolaştırdığında boyama yapıyor.

 

[KuTuKa]

merhaba
ı hücresine değer girerseniz a ve h satırını boyar.

 

[bjk55]

Denedim olmadı, alakasız yerleri biçimlendirdi. Benim istediğim Sütünun herhangi "A" dan "Q" a kadar sütün var bunların herhangi birinde iptal yazdımı diğerlerinde de aynı renk olmasını istiyorum

 

[çıtır]

Biçimlendirme yapaçağınız alanı seçiniz.(A2 hücresinden itibaren biçimlendireçeğiniz varsayıldı)
Giriş sekmesi Koşullu biçimlendirme.Yeni kural.Biçimlendirileçek hücre için formül kullan.
Formül alanına aşağıdaki formülü kopyalayınız ve bçimlendirme belirleyiniz.Tamam

=EĞERSAY($A2:$Q2;"İPTAL")>0

 

[bjk55]

Malesef olmadı ekte dosyayı yolluyorum bu şekilde olacak sutunlar boşta olabilir yazıda yazılmış olabilir ama bir satırda iptal yazıyor o satırı komple renklendirmesini istiyorum

 

[Orion1]

Buyurun

 

[çıtır]

Formülü uygulamamışsınız.1.Satırdan uygulayaçaksanız 2 leri 1 yapınız.Dosyanız.

 

[bjk55]

teşekkür ederim. Emeğinize sağlık

 

[çıtır]

teşekkür ederim. Emeğinize sağlık

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[bjk55]

Bunun için makro oluşturamıyorum Makro kodu yazabilir misiniz müsait olunca birde altta başka biçimlendirme şekli var buna da makro kaydedemedim

=EĞERSAY($A1:$Q1;"İPTAL")>0

=$A:$Q

--------------------------------------
=YADA(HÜCRE("row")=SATIR())

=$A:$Q

 

[çıtır]

sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then 
        Exit Sub
    End If
If Intersect(Target, [a1:Q1000]) Is Nothing Then Exit Sub
  a = Target.Row
say = WorksheetFunction.CountIf(Range("A" & a & ":" & "Q" & a), "İPTAL")
If say > 0 Then
Range("A" & a & ":" & "Q" & a).Interior.ColorIndex = 3
Else
Range("A" & a & ":" & "Q" & a).Interior.ColorIndex = xlNone
End If
End Sub

 

[bjk55]

sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then
        Exit Sub
    End If
If Intersect(Target, [a1:Q1000]) Is Nothing Then Exit Sub
  a = Target.Row
say = WorksheetFunction.CountIf(Range("A" & a & ":" & "Q" & a), "İPTAL")
If say > 0 Then
Range("A" & a & ":" & "Q" & a).Interior.ColorIndex = 3
Else
Range("A" & a & ":" & "Q" & a).Interior.ColorIndex = xlNone
End If
End Sub

=YADA(HÜCRE("row")=SATIR())

=$A:$Q

bunun için nasıl bir makro oluşturabilirim seçili sutunu a' dan q'a renklendirmek için

 

[Orion1]

Change olayına yazılmış kodu,select olayına yazarsanız olur sanırım.

 

[bjk55]

Change olayına yazılmış kodu,select olayına yazarsanız olur sanırım.

anlıyamadım

 

[bjk55]

Sub Makro10()
'
' Makro10 Makro
'

'
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=YADA(HÜCRE(""row"")=SATIR())"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

Bu Makroya Uygulama Hedefini yazamıyorum Makro o kısımda kaydetmiyor . Uygulama hedefi yolu =$A:$Q bu olması gerek

 

[Orion1]

anlıyamadım

 

[bjk55]

Ekli dosyayı görüntüle 207883

denedim ama çalışmadı

 

[Orion1]

denedim ama çalışmadı

Sayın çıtır kodları yzmış.12nci mesajda.
Uygulayacağınız sayfa sekmesine sağ tıklayıp açılan vb editöründeki sayfa modülüne kodları kopyalayıp yapıştırın.
Sonra vb editörünü kapatın.A sütununa bir değer girdiğinizde sayfada A:Q aralığında Bir hücreye "İPTAL" yazın çalışacaktır.
Yapamıyorsanız dosyanızı ekleyin.

 

[41AFU52]

Merhaba,
Aşağıdaki videoyu izleyerek Makro kullanmadan herhangi bir hücre değerine bakarak tüm satırın veya bir hücrenin nasıl boyandığını rahatlıkla öğrenip uygulayabilirsiniz. Ayrıca koşullu biçimlendirmenin farklı örnekleri de mevcuttur.