Çözüldü TRY ile Başlayan Cümle

[k0081]

Merhaba arkadaşlar;

3 kolondan oluşan Excel tablomda ( A-B-C) ;

C kolonunda "TRY" ile başlayan satırı koşullu biçimlendirme ile, arka hücre rengini kırmızı nasıl yapabiliriz ?

Arka plan kırmızı renki tüm satırı ve kolonları kapsayacak:

Not: TRY her zaman C kolonunda ve satırın ilk kelimesidir.

ör;
C5= TRY 13500

A5 : B5 : C5 gibi...

Yardımcı arkadaşa şimdiden Teşekkürler...

 

[Erdem Akdemir]

Merhaba,

C sütununda olmasını istediğiniz alanı seçin ve koşullu biçimlendirmede aşağıdaki formülü kullanın.
C'de nerden başlayacaksanız C1'i ona göre değiştirin.

=SOLDAN(C1;3)="TRY"

 

[Erdem Akdemir]

Resimdeki gibi'de olabilir.

 

[Korhan Ayhan]

Erdem beyin önerisini aşağıdaki gibi düzenlerseniz seçtiğiniz aralıktaki satırı renklendirir.

=SOLDAN($C1;3)="TRY"

 

[k0081]

Erdem_34;

Hocam ; Teşekkür ederim.

 

[k0081]

Korhan Ayhan;

Teşekkürler, Tamamdır... Yalnız;

şöyle bişey var:

Bu koşullu biçimlendirme , txt dosya import ile birlikte çalışıyor... bu da dosya alımını baya yavaşlatıyor. Bu koşullu biçimlendirmeyi Makro ile nasıl yapabiliriz ? Dosya importundan sonra çağıralım..

 

[YUSUF44]

Sayın Korhan Bey'in izni olursa eğer aşağıdaki makroyu deneyiniz:

Sub renklendir()
son = Cells(Rows.Count, "C").End(3).Row
Range("A1:C" & Rows.Count).Interior.Color = xlNone
For i = 1 To son
    If WorksheetFunction.Proper(Left(Cells(i, "C"), 3)) = "Try" Then
        Range("A" & i & ":C" & i).Interior.Color = vbRed
    End If
Next
End Sub

 

[k0081]

YUSUF44;

Hocam çok teşekkür ederim, Tamamdır... elinize sağlık.

 

[Korhan Ayhan]

Bu da koşullu biçimlendirme ile çözüm;

Sub Kosullu_Bicimlendir()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Son = Cells(Rows.Count, 3).End(3).Row
    With Range("A1:C" & Son)
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=SOLDAN($C1;3)=""TRY"""
        .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).StopIfTrue = False
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
        End With
    End With
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[k0081]

Korhan hocam;

Çok Teşekkür ediyorum, Tamamdır... elinize sağlık.