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

bjk55

Altın Üye
Katılım
29 Mart 2010
Mesajlar
174
Excel Vers. ve Dili
TÜRKÇE - MİCROSOFT OFFİCE PROFESSİONAL PLUS 2021
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
 
Katılım
23 Kasım 2017
Mesajlar
138
Excel Vers. ve Dili
2013
=$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

Altın Üye
Katılım
10 Mart 2005
Mesajlar
729
Excel Vers. ve Dili
Microsoft Office LTSC Pr. Pl 2021 - 64 bit Türkçe
merhaba
ı hücresine değer girerseniz a ve h satırını boyar.
 

Ekli dosyalar

bjk55

Altın Üye
Katılım
29 Mart 2010
Mesajlar
174
Excel Vers. ve Dili
TÜRKÇE - MİCROSOFT OFFİCE PROFESSİONAL PLUS 2021
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
 
Son düzenleme:
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
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
Kod:
=EĞERSAY($A2:$Q2;"İPTAL")>0
 

bjk55

Altın Üye
Katılım
29 Mart 2010
Mesajlar
174
Excel Vers. ve Dili
TÜRKÇE - MİCROSOFT OFFİCE PROFESSİONAL PLUS 2021
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
 

Ekli dosyalar

Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Formülü uygulamamışsınız.1.Satırdan uygulayaçaksanız 2 leri 1 yapınız.Dosyanız.
 

Ekli dosyalar

bjk55

Altın Üye
Katılım
29 Mart 2010
Mesajlar
174
Excel Vers. ve Dili
TÜRKÇE - MİCROSOFT OFFİCE PROFESSİONAL PLUS 2021
teşekkür ederim. Emeğinize sağlık:)
 

bjk55

Altın Üye
Katılım
29 Mart 2010
Mesajlar
174
Excel Vers. ve Dili
TÜRKÇE - MİCROSOFT OFFİCE PROFESSİONAL PLUS 2021
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
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
sayfa kodu olarak kopyalayınız.
Kod:
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

Altın Üye
Katılım
29 Mart 2010
Mesajlar
174
Excel Vers. ve Dili
TÜRKÇE - MİCROSOFT OFFİCE PROFESSİONAL PLUS 2021
sayfa kodu olarak kopyalayınız.
Kod:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Change olayına yazılmış kodu,select olayına yazarsanız olur sanırım.:cool:
 

bjk55

Altın Üye
Katılım
29 Mart 2010
Mesajlar
174
Excel Vers. ve Dili
TÜRKÇE - MİCROSOFT OFFİCE PROFESSİONAL PLUS 2021
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.:cool:
Yapamıyorsanız dosyanızı ekleyin.
 
Katılım
27 Şubat 2014
Mesajlar
56
Excel Vers. ve Dili
2010 - Türkçe
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.

 
Üst