Mizanda hesap kodu 3 hanelileri makroyla nasıl kırmızı yapabiliriz?

[assenucler]

Değerli dostlar;


Ekteki dosya içindeki mizanda; 3 haneli (100, 102 vb.) hesap kodu içeren satırların makroyla "kırmızı"kalın biçimde olması için, yardım ve katkılarınızı rica ediyorum.

Sevgi ve saygılar.

 

[Ömer BARAN]

Merhaba.

Bunun için makroya gerek var mı sizce?
KOŞULLU BİÇİMLENDİRME ile yapılabilir.
A8 hücresinden itibaren alan seçiliyken,
koşullu biçimlendirme kısmına aşağıdaki formülü uygulayıp renk belirleyin.
.

=[COLOR="Red"]ESAYIYSA[/COLOR]($A8)

 

[Merhum İdris SERDAR]

.

Makro ile:

Sub Kalin_Kirmizi()

    For Each c In Worksheets("Sayfa1").Range("A1:A150").Cells
    
        If Len(c) = 3 Then
        c.Font.Bold = True
        c.Font.ColorIndex = 3
   
    End If
    
    Next
    
End Sub

.

 

[askm]

Alternatif

Sub askm_Kirmizi_Yap()
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
For i = 9 To SonSat
If Len(Cells(i, "A")) = 3 Then
    Cells(i, "A").Font.Color = vbRed
    Cells(i, "A").Font.Bold = True
End If
Next
End Sub

 

[Merhum İdris SERDAR]

.

Yukarıda verdiğim kod eksik olabilir.

Bunu kullanabilirsiniz.

Sub Kirmizi_Kalin()

For i = 9 To 150
If Len(Cells(i, "A")) = 3 Then
    Range("A" & i, "F" & i).Font.ColorIndex = 3
    Range("A" & i, "F" & i).Font.Bold = True
End If
Next
End Sub

.

 

[assenucler]

Teşekkürler

Sayın Ömer BARAN,

Formül ile koşullu çözüm için teşekkürler. İyi ki varsınız.


Sayın askm,

Çözüm öneriniz için size de teşekkürler.


Sayın İdris SERDAR,

Üstadım, her zaman hepimizin yanındasınız. En içten teşekkürlerimi sunarım.

Yardım ve katkılarınız için sağ olun, var olun.

Sevgi ve saygılar.

 

[assenucler]

Bir ricam olabilir mi?

Değerli Üstatlarım;


Yukarıdaki mesajdaki kodlar ile sadece 3 koddan oluşan ana hesapların (100,102,120 vb) bulunduğu sütun renkleniyor.

Ana hesapların bulunduğu satırların "Kırmızı" kalın, 10 punto ve Ariel biçiminde olması için koda nasıl bir ekleme yapmak gerekiyor?

Yardımınızı rica ediyorum.

Sevgi ve saygılar.

 

[1903emre34@gmail.com]

Merhaba,

Aşağıdaki kod Sn.Baran üstat'a aittir, üzerinde değişiklik yapıldı;

Sub TDH_ALT_KIRILIMLAR()
For satır = 8 To Cells(Rows.Count, 1).End(3).Row
    If Len(Cells(satır, 1)) = 3 Then
        With Range("A" & satır & ":F" & satır).Font
            .Name = "Arial": .Color = vbRed
            .Size = 10: .Bold = True: .Underline = True
        End With
    End If
Next
End Sub

 

[assenucler]

Sayın igultekim2000,


İlginiz için teşekkürler.


Sevgi ve saygılar.