Üst satırdaki, alt satırdakine özdeş değilse alttaki kırmızı küçükharf nasıl olur?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Koşullu biçimlendirmede hala eksiğim var.
Örnek dosyada üst satırdaki alt satırdakine özdeş değilse, alttaki kırmızı ve küçükharf nasıl olur?
Saygılarımla

 

[Ömer BARAN]

Merhabalar Sayın KURŞUN.
Bildiğim kadarıyla, KÜÇÜKHARF/BÜYÜKHARF değişikliği bir biçim değişikliği değil.
Dolayısıyla formül yöntemiyle koşullu biçimlendirme yaparak bu değişim sağlanamaz,
bunun için kod kullanılmalıdır.

Sub BİÇİM()
Range("O12:AH12").Font.ColorIndex = 1

For sut = 15 To 34
    If Cells(11, sut) <> Cells(12, sut) Then
        Cells(12, sut) = LCase(Cells(12, sut))
        Cells(12, sut).Font.ColorIndex = 3
    End If
Next

End Sub

 

[Ömer BARAN]

Eğer ÖZDEŞ DEĞİLSE;
-- 12'nci satırdaki KÜÇÜKHARF ve kırmızı olurken,
-- 11'inci satırdakinin de BÜYÜKHARF olmasını isterseniz
Yukarıdaki kod'daki If satırından hemen sonra aşağıdaki satırı ekleyiniz.

        Cells(11, sut) = UCase(Cells(11, sut))

 

[Tevfik_Kursun]

Sayın Ömer Baran Hocam,
İlginize çok teşekkür ederim.
Özdeş komutu ile kolaylıkla 12. satırdaki harf küçükharf olabiliyor. Koşullu biçimlendirmeden kastım harf küçükse kırmızı renge dönsün. (bir düğmeye basmadan)
Bu arada fonksiyon ile fontlar, renkler ve ebatlar değiştirilemiyor değil mi?
Saygılarımla

 

[Tevfik_Kursun]

Sayın Ömer Baran Hocam,
Şimdi denedim koşullu biçimlendirme ile çözüldü.

=VE(KOD(G33)>96;KOD(G33)<123)

ilginize çok teşekkür ederim.
Saygılarımla

 

[Ömer BARAN]

Estağfurullah.
Başka alana (örneğin 13'üncü satıra) formül yazarak elbette BÜYÜKHARF/KÜÇÜKHARF dönüştürülmüş olarak sonuç elde edilebilir.
Ben verinin kendi yerinde üst satırdaki veri ile karşılaştırılıp ÖZDEŞ olmayanı KÜÇÜKHARF'e dönüştürmek istediğinizi (formül kullanırık koşullu biçimlendirme elbette sorun olmaz) düşünmüştüm.

 

[Tevfik_Kursun]

Sayın Ömer Baran Hocam,
Rica ederim, siz doğru anlamışsınız. Ben 12. satıra formül yazıp küçük harfe çevirdim. Küçükharf olunca da yukarıdaki formül koşullu biçimlendirmede cevap verdi.
Yazdığınız formülü, sayfadaki her değişiklikte kendiliğinden hesaplayan formata sokabilirsem sizin formülü kullanacağım.
Bu arada fonksiyon ile fontlar, renkler ve ebatlar değiştirilemiyor değil mi?
Bu sorum hakkında düşündüklerinizi de öğrenebilir miyim?
Tekrar ilginize çok teşekkür ederim.
Saygılarımla

 

[Ömer BARAN]

Tekrar merhaba.
Excel ile uğraşırken öğrendiğim bir şey var o da; mümkün değil lafını kullanmamak gerektiği.
Ancak fikrimi söyleyeyim.
Koşullu biçimlendirmede formül kullanarak; sayı kategorisini (sayı, yüzde, tarih gibi) yazıtipi stilini (kalın, italik gibi), kenarlık ve dolgu rengini ayarlayabilirken, yazı boyutunu ve yazı tipini (Arial, Tahoma gibi) ayarlayamazsınız.

 

[Ömer BARAN]

Hatalı mesajı silmiştim, tekrar yazdım.
Aşağıdaki kod'u sayfanın kod bölümüne uygulayınız.
11'inci satırda değişiklik yaptığınızda; 12'nci satırda KÜÇÜKHARF/BÜYÜKHARF dönüşümü
ve biçimlendirme uygulayacak şekilde otomatik çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("O11:AH11")) Is Nothing Then Exit Sub
Range("O12:AH12").Font.ColorIndex = 1
For sut = 15 To 34
    If Cells(11, sut) <> Cells(12, sut) Then
        Cells(12, sut) = LCase(Cells(12, sut))
        Cells(12, sut).Font.ColorIndex = 3
    End If
Next
End Sub

 

[Tevfik_Kursun]

Excel için değerlendirmelerinize de teşekkür ederim. Çok haklısınız.
Evet kalıbı hatırladım. Çok teşekkür ederim. Tekrar yordum sizi.
Saygılarımla

 

[Ömer BARAN]

Excel için değerlendirmelerinize de teşekkür ederim. Çok haklısınız.
Evet kalıbı hatırladım. Çok teşekkür ederim. Tekrar yordum sizi.
Saygılarımla

Estağfurullah, ihtiyaç görüldüyse mesele yok.
İyi günler dilerim.

 

[Tevfik_Kursun]

İyi günler efendim