Koşullu Biçimlendirme (Makro İle)

[baydeniro]

Merhaba arkadaşşar. A sütununda bulunan yazıların içinde : (iki nokta üst üste) varsa : nin sol tarafında yazılı olanları KOYU-BORDO-ALTI ÇİZİLİ yap makrosu olabilir mi ?

 

[İhsan Tank]

Dosya var mı_?

 

[baydeniro]

Haklısınız bir dosya eklesem daha iyi olurdu.

 

[baydeniro]

pardon eklenmemiş !!

 

[İhsan Tank]

pardon eklenmemiş !!

Merhaba
Renk kodunu bulamadığım için
Değişik bir renk oldu
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub bul()
Dim ts, kaplan
For ts = 4 To Cells(Rows.Count, "A").End(xlUp).Row
kaplan = InStr(1, Cells(ts, "A"), ":", vbTextCompare)
If kaplan > 1 Then
Cells(ts, "A").Characters(Start:=1, Length:=kaplan).Font. _
Bold = True
Cells(ts, "A").Characters(Start:=1, Length:=kaplan).Font. _
Underline = xlUnderlineStyleSingle
Cells(ts, "A").Characters(Start:=1, Length:=kaplan).Font. _
ColorIndex = 53
End If
Next
End Sub

 

[baydeniro]

süpersiniz sayın İhsan Tank, Allah sizden razı olsun.

 

[İhsan Tank]

süpersiniz sayın İhsan Tank, Allah sizden razı olsun.

Allah sizden de Razı Olsun
:keyif:

 

[sratacc]

selamlar.
h sütunumda İŞLEM YAPILMADI. olarak yazılı olan hücrelerimin zemin rengi kırmızı metin renginin beyaz olması için hangi kodu kullanabilirim.

araştırma yaptım ancak benzer örnekleri kendimde çalıştıramadım.

teşekkürler.

 

[sratacc]

cevap yokmu ?

 

[Emir Hüseyin Çoban]

selamlar.
h sütunumda İŞLEM YAPILMADI. olarak yazılı olan hücrelerimin zemin rengi kırmızı metin renginin beyaz olması için hangi kodu kullanabilirim.

araştırma yaptım ancak benzer örnekleri kendimde çalıştıramadım.

teşekkürler.

. . .

Sub kod_bir()
Application.ScreenUpdating = False
aa = [h65536].End(3).Row

For i = 1 To aa
If Cells(i, "h") = "İŞLEM YAPILMADI" Then
Cells(i, "h").Interior.ColorIndex = 3
Cells(i, "h").Font.ColorIndex = 2

Else
End If
Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[sratacc]

. . .

Sub kod_bir()
Application.ScreenUpdating = False
aa = [h65536].End(3).Row

For i = 1 To aa
If Cells(i, "h") = "İŞLEM YAPILMADI" Then
Cells(i, "h").Interior.ColorIndex = 3
Cells(i, "h").Font.ColorIndex = 2

Else
End If
Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

teşekkür ederim sayın hüseyin çoban elinize sağlık.

 

[sratacc]

peki hocam bu koda ilave ederek aynı sutundaki hücrelerde ''elden teslim.'' verisi yazan kısımların yeşil renkte olması için ne yapmam gerekir

teşekkürler

 

[Emir Hüseyin Çoban]

peki hocam bu koda ilave ederek aynı sutundaki hücrelerde ''elden teslim.'' verisi yazan kısımların yeşil renkte olması için ne yapmam gerekir

teşekkürler

. . .

Sub kod_bir()
Application.ScreenUpdating = False
aa = [h65536].End(3).Row

For i = 1 To aa
If Cells(i, "h") = "İŞLEM YAPILMADI" Then
Cells(i, "h").Interior.ColorIndex = 3
Cells(i, "h").Font.ColorIndex = 2
Else
End If

If Cells(i, "h") = "elden teslim." Then
Cells(i, "h").Interior.ColorIndex = 50
Cells(i, "h").Font.ColorIndex = 2
Else
End If

Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[sratacc]

. . .

Sub kod_bir()
Application.ScreenUpdating = False
aa = [h65536].End(3).Row

For i = 1 To aa
If Cells(i, "h") = "İŞLEM YAPILMADI" Then
Cells(i, "h").Interior.ColorIndex = 3
Cells(i, "h").Font.ColorIndex = 2
Else
End If

If Cells(i, "h") = "elden teslim." Then
Cells(i, "h").Interior.ColorIndex = 50
Cells(i, "h").Font.ColorIndex = 2
Else
End If

Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

önceki verdiğiniz koda göre bende sizin şimdi gönderdiğiniz kodu yazmıstım ancak çalışmıyor.

 

[Emir Hüseyin Çoban]

peki hocam bu koda ilave ederek aynı sutundaki hücrelerde ''elden teslim.'' verisi yazan kısımların yeşil renkte olması için ne yapmam gerekir

teşekkürler

. . .

Kodlarda aranacak metinin yazılışı önemli.
Sütunda aranakcak metin ne şekilde yazılıyor. Gönderdiğim kodlarda "elden teslim."
olarak tanımladım.

. . .

 

[sratacc]

. . .

Kodlarda aranacak metinin yazılışı önemli.
Sütunda aranakcak metin ne şekilde yazılıyor. Gönderdiğim kodlarda "elden teslim."
olarak tanımladım.

. . .

teşekkürler sayın Hüseyin Çoban