koşullu biçimlendirmeyle sağa sola yaslama

[emraha]

Bir hücrenin içinde "fazla" metni yazıyorsa o hücrenin metnini sağa yaslasın, yazmıyorsa sola yaslasın.. Koşullu biçimlendirmenin menüsünde yaslama seçeneğini yok. makrosuz yapılabilir mi ?

 

[emraha]

yada şu şekilde de olabilir. Bir hücrenin içinde "fazla" metni yazıyorsa o hücrenin metnini sağa yaslasın, yazmıyorsa hiç bir işlem yapmasın..

 

[Korhan Ayhan]

Selamlar,

Koşullu biçimlendirme menüsünde böyle bir özellik yoksa yapamazsınız. Makro ile çözüm aramalısınız.

 

[emraha]

peki buna özel bir macro fonksiyonu yazılabilir mi ?

 

[Korhan Ayhan]

Selamlar,

Eğer hücreye yazdıktan sonra hizalama yapılmasını istiyorsanız. Sayfanın kod bölümüne aşağıdaki kodu uygulayın.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If UCase(Target) = "FAZLA" Then
        Target.HorizontalAlignment = xlRight
    Else
        Target.HorizontalAlignment = xlGeneral
    End If
End Sub

Eğer seçtiğiniz alandaki hücrelerde "FAZLA" yazanları tek bir hamlede hizalamak istiyorsanız aşağıdaki kodu deneyiniz.

Option Explicit
 
Sub VERİLERİ_SAĞA_HİZALA()
    Dim Hücre As Range
    
    For Each Hücre In Selection
        If UCase(Hücre.Value) = "FAZLA" Then
            Hücre.HorizontalAlignment = xlRight
        Else
            Hücre.HorizontalAlignment = xlGeneral
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[musumek]

Ben sadece sağa yada sola yaslamak istiyorum. Yada ortalama. Yukarıdaki gibi makroluk bişi değil.

 

[ÖmerFaruk]

Koşullu biçim standart formunda Hizalama seçenekleri aktif değildir.
Kodla yapılmak zorunda.